Merge branch 'maint'

lisp/ox-texinfo.el

@@ -448,21 +448,25 @@ INFO is a plist used as a communication channel.  See
     ;; Else use format string.
     (fmt (format fmt text))))
 
-(defun org-texinfo--get-node (blob info)
+(defun org-texinfo--get-node (datum info)
-  "Return node or anchor associated to BLOB.
+  "Return node or anchor associated to DATUM.
-BLOB is an element or object.  INFO is a plist used as
+DATUM is an element or object.  INFO is a plist used as
 a communication channel.  The function guarantees the node or
 anchor name is unique."
   (let ((cache (plist-get info :texinfo-node-cache)))
-    (or (cdr (assq blob cache))
+    (or (cdr (assq datum cache))
-	(let ((name
+	(let* ((salt 0)
-	       (org-texinfo--sanitize-node
+	       (basename
-		(if (eq (org-element-type blob) 'headline)
+		(org-texinfo--sanitize-node
-		    (org-export-data (org-export-get-alt-title blob info) info)
+		 (if (eq (org-element-type datum) 'headline)
-		  (org-export-get-reference blob info)))))
+		     (org-export-data (org-export-get-alt-title datum info)
-	  ;; Ensure NAME is unique.
+				      info)
-	  (while (rassoc name cache) (setq name (concat name "x")))
+		   (org-export-get-reference datum info))))
-	  (plist-put info :texinfo-node-cache (cons (cons blob name) cache))
+	       (name basename))
+	  ;; Ensure NAME is unique and not reserved node name "Top".
+	  (while (or (equal name "Top") (rassoc name cache))
+	    (setq name (concat basename (number-to-string (cl-incf salt)))))
+	  (plist-put info :texinfo-node-cache (cons (cons datum name) cache))
 	  name))))
 
 (defun org-texinfo--sanitize-node (title)
@@ -935,9 +939,17 @@ CONTENTS is nil.  INFO is a plist holding contextual information."
 
 ;;;; Link
 
+(defun org-texinfo--@ref (datum description info)
+  "Return @ref command for element or object DATUM.
+DESCRIPTION is the name of the section to print, as a string."
+  (let ((node-name (org-texinfo--get-node datum info))
+	(title (org-texinfo--sanitize-node description)))
+    (if (equal title node-name)
+	(format "@ref{%s}" node-name)
+      (format "@ref{%s, , %s}" node-name title))))
+
 (defun org-texinfo-link (link desc info)
   "Transcode a LINK object from Org to Texinfo.
-
 DESC is the description part of the link, or the empty string.
 INFO is a plist holding contextual information.  See
 `org-export-data'."
@@ -957,9 +969,7 @@ INFO is a plist holding contextual information.  See
      ((equal type "radio")
       (let ((destination (org-export-resolve-radio-link link info)))
 	(if (not destination) desc
-	  (format "@ref{%s,,%s}"
+	  (org-texinfo--@ref destination desc info))))
-		  (org-texinfo--get-node destination info)
-		  desc))))
      ((member type '("custom-id" "id" "fuzzy"))
       (let ((destination
 	     (if (equal type "fuzzy")
@@ -974,38 +984,27 @@ INFO is a plist holding contextual information.  See
 	   (if desc (format "@uref{file://%s,%s}" destination desc)
 	     (format "@uref{file://%s}" destination)))
 	  (`headline
-	   (let ((node-name (org-texinfo--get-node destination info)))
+	   (org-texinfo--@ref
-	     (if desc
+	    destination
-		 (format "@ref{%s, , %s}"
+	    (or desc
-			 node-name
+		(org-export-data
-			 (org-texinfo--sanitize-node desc))
+		 (org-element-property :title destination) info))
-	       (format "@ref{%s}" node-name))))
+	    info))
 	  (_
-	   (format "@ref{%s,,%s}"
+	   (org-texinfo--@ref
-		   (org-texinfo--get-node destination info)
+	    destination
-		   (cond
+	    (or desc
-		    (desc)
+		(pcase (org-export-get-ordinal destination info)
-		    ;; No description is provided: first try to
+		  ((and (pred integerp) n) (number-to-string n))
-		    ;; associate destination to a number.
+		  ((and (pred consp) n) (mapconcat #'number-to-string n "."))
-		    ((let ((n (org-export-get-ordinal destination info)))
+		  (_ "???")))		;cannot guess the description
-		       (cond ((not n) nil)
+	    info)))))
-			     ((integerp n) n)
-			     (t (mapconcat #'number-to-string n ".")))))
-		    ;; Then grab title of headline containing
-		    ;; DESTINATION.
-		    ((let ((h (org-element-lineage destination '(headline) t)))
-		       (and h
-			    (org-export-data
-			     (org-element-property :title destination) info))))
-		    ;; Eventually, just return "Top" to refer to the
-		    ;; beginning of the info file.
-		    (t "Top")))))))
      ((string= type "mailto")
       (format "@email{%s}"
 	      (concat (org-texinfo--sanitize-content path)
-		      (and desc (concat "," desc)))))
+		      (and desc (concat ", " desc)))))
      ;; External link with a description part.
-     ((and path desc) (format "@uref{%s,%s}" path desc))
+     ((and path desc) (format "@uref{%s, %s}" path desc))
      ;; External link without a description part.
      (path (format "@uref{%s}" path))
      ;; No path, only description.  Try to do something useful.
@@ -1265,7 +1264,7 @@ holding contextual information."
 TEXT is the text of the target.  INFO is a plist holding
 contextual information."
   (format "@anchor{%s}%s"
-	  (org-export-get-reference radio-target info)
+	  (org-texinfo--get-node radio-target info)
 	  text))
 
 ;;;; Section
@@ -1313,7 +1312,7 @@ contextual information."
       (org-texinfo--wrap-float value
 			       info
 			       (org-export-translate "Listing" :utf-8 info)
-			       (org-export-get-reference src-block info)
+			       (org-texinfo--get-node src-block info)
 			       caption
 			       shortcaption))))
 
@@ -1372,7 +1371,7 @@ contextual information."
 	(org-texinfo--wrap-float table-str
 				 info
 				 (org-export-translate "Table" :utf-8 info)
-				 (org-export-get-reference table info)
+				 (org-texinfo--get-node table info)
 				 caption
 				 shortcaption)))))
 
@@ -1440,7 +1439,7 @@ a communication channel."
   "Transcode a TARGET object from Org to Texinfo.
 CONTENTS is nil.  INFO is a plist holding contextual
 information."
-  (format "@anchor{%s}" (org-export-get-reference target info)))
+  (format "@anchor{%s}" (org-texinfo--get-node target info)))
 
 ;;;; Timestamp