From dd17e9d2998dd42e14835a93e467319fc05e7d5e Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 31 May 2014 14:31:46 +0200 Subject: [PATCH] org.el (org-todo): When changing from one state to the same state, throw a more accurate message * org.el (org-todo): When changing from one state to the same state, throw a more accurate message. --- lisp/org.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index d6458978e..2f95023c9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12550,8 +12550,10 @@ When called through ELisp, arg is also interpreted in the following way: (throw 'exit nil)))) (store-match-data match-data) (replace-match next t t) - (unless (pos-visible-in-window-p hl-pos) - (message "TODO state changed to %s" (org-trim next))) + (cond ((equal this org-state) + (message "TODO state was already %s" (org-trim next))) + ((pos-visible-in-window-p hl-pos) + (message "TODO state changed to %s" (org-trim next)))) (unless head (setq head (org-get-todo-sequence-head org-state) ass (assoc head org-todo-kwd-alist) -- 2.11.4.GIT