From ff276c1316ed3131c33ee31fcfd045168cc25bdc Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 10 Feb 2019 20:13:49 +0100 Subject: [PATCH] =?UTF-8?q?[Org]=20Remove=20duplicates=20when=20updating?= =?UTF-8?q?=20=E2=80=98org-agenda-files=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 1051276..b426d1f 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -20,7 +20,9 @@ the new one instead." (when (boundp symbol) (setq org-agenda-files (cl-delete (symbol-value symbol) org-agenda-files))) (set-default symbol value) - (push value org-agenda-files)) + (push value org-agenda-files) + (setq-default org-agenda-files + (cl-delete-duplicates org-agenda-files :test #'cl-equalp))) (defun db/org-agenda-list-deadlines (&optional match) ;; XXX org-agenda-later does not work, fix this