diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 3207acfc3..69591e79f 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -751,7 +751,6 @@ generation. INFO is a plist used as a communication channel." (defun org-ascii--unique-links (element info) "Return a list of unique link references in ELEMENT. - ELEMENT is either a headline element or a section element. INFO is a plist used as a communication channel." (let* (seen @@ -761,8 +760,14 @@ is a plist used as a communication channel." ;; Update SEEN links along the way. (lambda (link) (let ((footprint + ;; Normalize description in footprints. (cons (org-element-property :raw-link link) - (org-element-contents link)))) + (let ((contents (org-element-contents link))) + (and contents + (replace-regexp-in-string + "[ \r\t\n]+" " " + (org-trim + (org-element-interpret-data contents)))))))) ;; Ignore LINK if it hasn't been translated already. ;; It can happen if it is located in an affiliated ;; keyword that was ignored.