Browse Source

Merge branch 'maint'

Nicolas Goaziou 9 năm trước cách đây
mục cha
commit
158e40f58d
1 tập tin đã thay đổi với 17 bổ sung13 xóa
  1. 17 13
      lisp/ox-ascii.el

+ 17 - 13
lisp/ox-ascii.el

@@ -916,19 +916,23 @@ channel."
 	;; Id and custom-id links: Headlines refer to their numbering.
 	((member type '("custom-id" "id"))
 	 (let ((dest (org-export-resolve-id-link link info)))
-	   (concat
-	    (org-ascii--fill-string
-	     (format
-	      "[%s] %s"
-	      anchor
-	      (if (not dest) (org-ascii--translate "Unknown reference" info)
-		(format
-		 (org-ascii--translate "See section %s" info)
-		 (if (org-export-numbered-headline-p dest info)
-		     (mapconcat #'number-to-string
-				(org-export-get-headline-number dest info) ".")
-		   (org-export-data (org-element-property :title dest) info)))))
-	     width info) "\n\n")))
+	   (if (concat
+		(org-ascii--fill-string
+		 (format
+		  "[%s] %s"
+		  anchor
+		  (if (stringp dest)	; External file.
+		      dest
+		    (format
+		     (org-ascii--translate "See section %s" info)
+		     (if (org-export-numbered-headline-p dest info)
+			 (mapconcat #'number-to-string
+				    (org-export-get-headline-number dest info)
+				    ".")
+		       (org-export-data
+			(org-element-property :title dest) info)))))
+		 width info)
+		"\n\n"))))
 	;; Do not add a link that cannot be resolved and doesn't have
 	;; any description: destination is already visible in the
 	;; paragraph.