diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 5cc70bdaf..deb98a6dd 100644 --- a/lisp/ox-ascii.el +++ b/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.