tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix last commit 

* lisp/org.el (org--collect-keywords-1): Fix thinko.
This commit is contained in:
Nicolas Goaziou 2020-04-26 18:50:58 +02:00
parent 053676d284
commit b223a28063
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org.el
View File

@ -4504,21 +4504,21 @@ directory."
keywords unique directory
(cons uri files)
alist)))))))
(key
(let ((entry (assoc-string key alist t))
(value
(cond ((not (member key directory)) value)
(keyword
(let ((entry (assoc keyword alist))
(final
(cond ((not (member keyword directory)) value)
(buffer-file-name
(cons value
(file-name-directory buffer-file-name)))
(t (cons value default-directory)))))
(cond ((member key unique)
(push (cons key value) alist)
(setq keywords (remove key keywords))
(cond ((member keyword unique)
(push (cons keyword final) alist)
(setq keywords (remove keyword keywords))
(setq regexp (org-make-options-regexp keywords)))
((not (org-string-nw-p value)) nil)
((null entry) (push (list key value) alist))
(t (push value (cdr entry)))))))))))
((null entry) (push (list keyword final) alist))
(t (push final (cdr entry)))))))))))
alist)))
(defun org-tag-string-to-alist (s)