diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-03-28 17:14:31 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-03-28 17:14:31 +0200 |
| commit | df40cf42e5195b0050c8d1c663132610e980b1f0 (patch) | |
| tree | eb799874ab5a8d79cad8d363272919866406715c | |
| parent | e01bc94506e5a8a4e1fcdd8aff96c296d07ab436 (diff) | |
| parent | 052fc2226b5b4f5cc069587aa7e6101f7d3c68d2 (diff) | |
| download | org-mode-df40cf42e5195b0050c8d1c663132610e980b1f0.tar.gz | |
Merge branch 'master' of code.orgmode.org:bzg/org-mode
| -rw-r--r-- | lisp/org.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index cc8a902..5e5087a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -4825,10 +4825,10 @@ Support for group tags is controlled by the option ((null alist2) alist1) ((null alist1) alist2) (t (let ((alist2-cars (mapcar (lambda (x) (car-safe x)) alist2)) - to-add) + to-add) (dolist (i alist1) (unless (member (car-safe i) alist2-cars) - (push i to-add))) + (push i to-add))) (append to-add alist2))))) (defun org-set-regexps-and-options (&optional tags-only) @@ -13721,9 +13721,9 @@ instead of the agenda files." (org-tag-add-to-alist (org-get-buffer-tags) (mapcar (lambda (x) - (and (stringp (car-safe x)) - (list (car-safe x)))) - org-current-tag-alist))) + (and (stringp (car-safe x)) + (list (car-safe x)))) + org-current-tag-alist))) (if (car-safe files) files (org-agenda-files)))))))) |