emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/org dba92f72d3: Merge branch 'bugfix'


From: ELPA Syncer
Subject: [elpa] externals/org dba92f72d3: Merge branch 'bugfix'
Date: Mon, 22 Apr 2024 09:59:03 -0400 (EDT)

branch: externals/org
commit dba92f72d3cc0c3f305ec8ac3f6f6682f02a8776
Merge: 5b0b7f2924 0db82ee8f8
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    Merge branch 'bugfix'
---
 lisp/org-agenda.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 638f483a11..9f790d8dfa 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -8595,6 +8595,14 @@ Negative selection means regexp must not match for 
selection of an entry."
       (org-agenda-redo))
     (message "Display now includes inactive timestamps as well"))
    ((eq org-agenda-type 'search)
+    ;; Previous calls to `org-agenda-manipulate-query' could already
+    ;; add trailing text to the query.  Prevent duplicating it.
+    ;; Trim the trailing spaces and +/.
+    (setq org-agenda-query-string
+          (replace-regexp-in-string
+           (rx (or (1+ " ") (seq (1+ " ") (any "+-") (opt "{}"))) eos)
+           ""
+           org-agenda-query-string))
     (org-add-to-string
      'org-agenda-query-string
      (if org-agenda-last-search-view-search-was-boolean



reply via email to

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