forked from mirrors/org-mode
Let `org-toggle-sticky-agenda' output a message only when called interactively.
* org-agenda.el (org-toggle-sticky-agenda): Only shout a message when called interactively. (org-agenda-get-restriction-and-command): Call `org-toggle-sticky-agenda' interactively.
This commit is contained in:
parent
0a9c29d305
commit
de7c48759c
|
@ -1836,12 +1836,14 @@ When nil, `q' will kill the single agenda buffer."
|
|||
(> (prefix-numeric-value arg) 0)
|
||||
(not org-agenda-sticky))))
|
||||
(if (equal new-value org-agenda-sticky)
|
||||
(and (called-interactively-p 'interactive)
|
||||
(message "Sticky agenda was already %s"
|
||||
(if org-agenda-sticky "enabled" "disabled"))
|
||||
(if org-agenda-sticky "enabled" "disabled")))
|
||||
(setq org-agenda-sticky new-value)
|
||||
(org-agenda-kill-all-agenda-buffers)
|
||||
(and (called-interactively-p 'interactive)
|
||||
(message "Sticky agenda was %s"
|
||||
(if org-agenda-sticky "enabled" "disabled")))))
|
||||
(if org-agenda-sticky "enabled" "disabled"))))))
|
||||
|
||||
(defvar org-agenda-buffer nil
|
||||
"Agenda buffer currently being generated.")
|
||||
|
@ -2650,7 +2652,7 @@ s Search for keywords * Toggle sticky agenda views
|
|||
(cons (substring (car x) 1) (cdr x))))
|
||||
custom))))
|
||||
((eq c ?*)
|
||||
(org-toggle-sticky-agenda)
|
||||
(call-interactively 'org-toggle-sticky-agenda)
|
||||
(sit-for 2))
|
||||
((and (not restrict-ok) (memq c '(?1 ?0 ?<)))
|
||||
(message "Restriction is only possible in Org-mode buffers")
|
||||
|
|
Loading…
Reference in a new issue