diff options
author | Allen Li <darkfeline@felesatra.moe> | 2017-12-30 03:41:51 -0800 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2018-04-26 16:12:39 +0200 |
commit | 8944b578b86dd3c16e568e905b43e5fa6cfa5e68 (patch) | |
tree | 032e0f8ff1fdaaa60859e064b9868f66b936f021 | |
parent | fd4ade40ed3ce135495796401296d318f2475352 (diff) | |
download | org-mode-8944b578b86dd3c16e568e905b43e5fa6cfa5e68.tar.gz |
Remove agenda-archives even with buffer restriction
* lisp/org-agenda.el (org-search-view): Remove agenda-archives even
with buffer restriction.
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 78f67cc..ed48c30 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4487,9 +4487,9 @@ is active." (setq files (org-agenda-files nil 'ifmode)) ;; Add `org-agenda-text-search-extra-files' unless there is some ;; restriction. - (unless (get 'org-agenda-files 'org-restrict) - (when (eq (car org-agenda-text-search-extra-files) 'agenda-archives) - (pop org-agenda-text-search-extra-files) + (when (eq (car org-agenda-text-search-extra-files) 'agenda-archives) + (pop org-agenda-text-search-extra-files) + (unless (get 'org-agenda-files 'org-restrict) (setq files (org-add-archive-files files)))) ;; Uniquify files. However, let `org-check-agenda-file' handle ;; non-existent ones. |