Fix infloop with multiple tags

* lisp/org.el (org--setup-collect-keywords): Fix infloop when parsing
  multiple tags.

Reported-by: Kyle Meyer <kyle@kyleam.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/92245>
This commit is contained in:
Nicolas Goaziou 2014-11-01 11:53:46 +01:00
parent aa1fd698ec
commit 17d014ec65
1 changed files with 5 additions and 5 deletions

View File

@ -5134,7 +5134,7 @@ Return value contains the following keys: `archive', `category',
(new (apply #'nconc
(mapcar (lambda (x) (org-split-string x ":"))
(org-split-string value)))))
(if old (setcdr old (nconc new (cdr old)))
(if old (setcdr old (append new (cdr old)))
(push (cons 'filetags new) alist)))))
((equal key "LINK")
(when (string-match "\\`\\(\\S-+\\)[ \t]+\\(.+\\)" value)
@ -5162,13 +5162,13 @@ Return value contains the following keys: `archive', `category',
(let ((startup (assq 'startup alist)))
(if startup
(setcdr startup
(nconc (cdr startup) (org-split-string value)))
(append (cdr startup) (org-split-string value)))
(push (cons 'startup (org-split-string value)) alist))))
((equal key "TAGS")
(let ((tag-cell (assq 'tags alist)))
(if tag-cell
(setcdr tag-cell
(nconc (cdr tag-cell)
(append (cdr tag-cell)
'("\\n")
(org-split-string value)))
(push (cons 'tags (org-split-string value)) alist))))