Ignore line breaks when removing duplicates links

This commit is contained in:
IGARASHI Masanao
2014-11-16 05:49:24 +09:00
parent 9d3d80e9ec
commit 6b826086e0

View File

@@ -440,8 +440,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.