org-agenda-manipulate-query: Fix repeated canceled calls
* lisp/org-agenda.el (org-agenda-manipulate-query): When called multiple times, discarding edits, prevent accumulating trailing + + + - +{} in the query string. Reported-by: Carlos Pita <carlosjosepita2@gmail.com> Link: https://orgmode.org/list/87r1be97xd.fsf@localhost
This commit is contained in:
parent
037700c411
commit
0db82ee8f8
|
@ -8858,6 +8858,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
|
||||
|
|
Loading…
Reference in New Issue