diff options
author | Bastien Guerry <bzg@altern.org> | 2014-05-31 14:31:46 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-05-31 14:31:46 +0200 |
commit | dd17e9d2998dd42e14835a93e467319fc05e7d5e (patch) | |
tree | 1f6b05fb5ea238251d6923b551bf9328883e50b6 | |
parent | 66db8836b5479e4ef8cd88319101d16ac8851848 (diff) | |
download | org-mode-dd17e9d2998dd42e14835a93e467319fc05e7d5e.tar.gz |
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.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index d645897..2f95023 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) |