[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-contacts-rebased c472159 113/118: Avoid *Org-Agenda*

From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased c472159 113/118: Avoid *Org-Agenda* buffer use org-contacts-matcher in buffer-name
Date: Fri, 12 Nov 2021 15:37:15 -0500 (EST)

branch: scratch/org-contacts-rebased
commit c47215989c5519b976d5da9cdb4f03214d76bc41
Author: stardiviner <numbchild@gmail.com>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Avoid *Org-Agenda* buffer use org-contacts-matcher in buffer-name
 org-contacts.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/org-contacts.el b/org-contacts.el
index 75a6692..9f775c5 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -766,7 +766,8 @@ This function should be called from 
          (or org-agenda-overriding-header
              (concat "List of contacts matching `" name "':"))))
     (setq org-agenda-skip-regexp name)
-    (org-tags-view nil org-contacts-matcher)
+    (let ((org-agenda-sticky nil))
+      (org-tags-view nil org-contacts-matcher))
     (with-current-buffer org-agenda-buffer-name
       (setq org-agenda-redo-command
             (list 'org-contacts name)))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]