Browse Source

ox-texinfo: Fix "cross reference to non-existent node" error

* lisp/ox-texinfo.el (org-texinfo-link): Do not transform path part of
  internal links.
Nicolas Goaziou 12 years ago
parent
commit
16118a2af8
1 changed files with 4 additions and 8 deletions
  1. 4 8
      lisp/ox-texinfo.el

+ 4 - 8
lisp/ox-texinfo.el

@@ -1173,10 +1173,8 @@ INFO is a plist holding contextual information.  See
 	  ;; LINK points to an headline.  Use the headline as the NODE target
 	  ;; LINK points to an headline.  Use the headline as the NODE target
 	  (headline
 	  (headline
 	   (format "@ref{%s,%s}"
 	   (format "@ref{%s,%s}"
-		   (org-export-data
-		    (or
-		     (org-element-property :texinfo-menu-title destination)
-		     (org-element-property :title destination)) info)
+		   (or (org-element-property :texinfo-menu-title destination)
+		       (org-element-property :title destination))
 		   (or desc "")))
 		   (or desc "")))
 	  (otherwise
 	  (otherwise
 	   (let ((path (org-export-solidify-link-text path)))
 	   (let ((path (org-export-solidify-link-text path)))
@@ -1198,10 +1196,8 @@ INFO is a plist holding contextual information.  See
 	  ;; LINK points to an headline.  Use the headline as the NODE target
 	  ;; LINK points to an headline.  Use the headline as the NODE target
 	  (headline
 	  (headline
 	   (format "@ref{%s,%s}"
 	   (format "@ref{%s,%s}"
-		   (org-export-data
-		    (or
-		     (org-element-property :texinfo-menu-title destination)
-		     (org-element-property :title destination)) info)
+		   (or (org-element-property :texinfo-menu-title destination)
+		       (org-element-property :title destination))
 		   (or desc "")))
 		   (or desc "")))
 	  (otherwise
 	  (otherwise
 	   (let ((path (org-export-solidify-link-text path)))
 	   (let ((path (org-export-solidify-link-text path)))