tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Bastien Guerry 2012-04-22 15:27:21 +02:00
parent 0a9c29d305
commit de7c48759c
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-agenda.el
View File

@ -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)
(message "Sticky agenda was already %s"
(if org-agenda-sticky "enabled" "disabled"))
(and (called-interactively-p 'interactive)
(message "Sticky agenda was already %s"
(if org-agenda-sticky "enabled" "disabled")))
(setq org-agenda-sticky new-value)
(org-agenda-kill-all-agenda-buffers)
(message "Sticky agenda was %s"
(if org-agenda-sticky "enabled" "disabled")))))
(and (called-interactively-p 'interactive)
(message "Sticky agenda was %s"
(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")