diff options
author | Bastien Guerry <bzg@altern.org> | 2013-03-19 09:57:11 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-19 09:57:11 +0100 |
commit | 5127f56790bd5fc587b43206912e4c88823a1b90 (patch) | |
tree | 8e9cbab516cf1cc9cbfd9a7a8a06eab06d439151 | |
parent | 3725c417ead16aac35f4f04478ff034e680555a5 (diff) | |
download | org-mode-5127f56790bd5fc587b43206912e4c88823a1b90.tar.gz |
org-agenda.el (org-agenda-dim-blocked-tasks): Only throw a message when called interactively
* org-agenda.el (org-agenda-dim-blocked-tasks): Only throw a
message when called interactively. Fix docstring position in
the defun.
-rw-r--r-- | lisp/org-agenda.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index aacf6f4..418c636 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3792,9 +3792,10 @@ generating a new one." (overlay-put ov 'org-type 'org-priority))))) (defun org-agenda-dim-blocked-tasks (&optional invisible) - (interactive "P") "Dim currently blocked TODO's in the agenda display." - (message "Dim or hide blocked tasks...") + (interactive "P") + (when (org-called-interactively-p 'any) + (message "Dim or hide blocked tasks...")) (mapc (lambda (o) (if (eq (overlay-get o 'org-type) 'org-blocked-todo) (delete-overlay o))) (overlays-in (point-min) (point-max))) |