Browse Source

ox: Remove useless dictionary entries

* lisp/ox.el (org-export-dictionary): Remove useless dictionary entries.
* lisp/ox-ascii.el (org-ascii--build-caption): Apply removal.
Nicolas Goaziou 4 years ago
parent
commit
a52a35779f
2 changed files with 5 additions and 13 deletions
  1. 5 3
      lisp/ox-ascii.el
  2. 0 10
      lisp/ox.el

+ 5 - 3
lisp/ox-ascii.el

@@ -665,11 +665,13 @@ caption keyword."
 	      element info nil 'org-ascii--has-caption-p))
 	    (title-fmt (org-ascii--translate
 			(case (org-element-type element)
-			  (table "Table %d: %s")
-			  (src-block "Listing %d: %s"))
+			  (table "Table %d:")
+			  (src-block "Listing %d:"))
 			info)))
 	(org-ascii--fill-string
-	 (format title-fmt reference (org-export-data caption info))
+	 (concat (format title-fmt reference)
+		 " "
+		 (org-export-data caption info))
 	 (org-ascii--current-text-width element info) info)))))
 
 (defun org-ascii--build-toc (info &optional n keyword)

+ 0 - 10
lisp/ox.el

@@ -5304,10 +5304,6 @@ them."
      ("fr"
       :ascii "Programme %d :" :default "Programme nº %d :"
       :latin1 "Programme %d :"))
-    ("Listing %d: %s"
-     ("fr"
-      :ascii "Programme %d : %s" :default "Programme nº %d : %s"
-      :latin1 "Programme %d : %s"))
     ("See section %s"
      ("de" :default "siehe Abschnitt %s")
      ("es" :default "vea seccion %s")
@@ -5317,12 +5313,6 @@ them."
      ("es" :default "Tabla %d")
      ("fr"
       :ascii "Tableau %d :" :default "Tableau nº %d :" :latin1 "Tableau %d :"))
-    ("Table %d: %s"
-     ("de" :default "Tabelle %d: %s")
-     ("es" :default "Tabla %d: %s")
-     ("fr"
-      :ascii "Tableau %d : %s" :default "Tableau nº %d : %s"
-      :latin1 "Tableau %d : %s"))
     ("Table of Contents"
      ("ca" :html "Índex")
      ("cs" :default "Obsah")