summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-19 09:57:11 +0100
committerBastien Guerry <bzg@altern.org>2013-03-19 09:57:11 +0100
commit5127f56790bd5fc587b43206912e4c88823a1b90 (patch)
tree8e9cbab516cf1cc9cbfd9a7a8a06eab06d439151
parent3725c417ead16aac35f4f04478ff034e680555a5 (diff)
downloadorg-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.el5
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)))