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. ;; Update SEEN links along the way.
(lambda (link) (lambda (link)
(let ((footprint (let ((footprint
;; Normalize description in footprints.
(cons (org-element-property :raw-link link) (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. ;; Ignore LINK if it hasn't been translated already.
;; It can happen if it is located in an affiliated ;; It can happen if it is located in an affiliated
;; keyword that was ignored. ;; keyword that was ignored.