summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAllen Li <darkfeline@felesatra.moe>2017-12-30 03:41:51 -0800
committerBastien <bzg@gnu.org>2018-04-26 16:12:39 +0200
commit8944b578b86dd3c16e568e905b43e5fa6cfa5e68 (patch)
tree032e0f8ff1fdaaa60859e064b9868f66b936f021
parentfd4ade40ed3ce135495796401296d318f2475352 (diff)
downloadorg-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.el6
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.