diff options
author | memeplex <carlosjosepita@gmail.com> | 2019-03-08 23:12:16 -0300 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-03-09 11:00:25 +0100 |
commit | d313b249918d490792562d0b8f57b97cec860474 (patch) | |
tree | 242b4c4c005491af6a9e9f2713f418c58a8f60ec | |
parent | 2fb60532cf10b1cabdfb376b8ec7013d8c04c8d6 (diff) | |
download | org-mode-d313b249918d490792562d0b8f57b97cec860474.tar.gz |
Avoid extra space when removing state
* lisp/org.el (org-todo): check if org-string-nw-p instead of non nil.
-rw-r--r-- | lisp/org.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index f4fe64b..ca4c5d5 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12193,7 +12193,7 @@ When called through ELisp, arg is also interpreted in the following way: (run-hook-with-args-until-success 'org-todo-get-default-hook org-state org-last-state) org-state)) - (next (if org-state (concat " " org-state " ") " ")) + (next (if (org-string-nw-p org-state) (concat " " org-state " ") " ")) (change-plist (list :type 'todo-state-change :from this :to org-state :position startpos)) dolog now-done-p) |