diff options
| author | memeplex <carlosjosepita@gmail.com> | 2019-02-21 01:09:29 -0300 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-02-22 19:38:15 +0100 |
| commit | d6fcfc06cef3356a0cbe58e452f1ed2946659623 (patch) | |
| tree | 4e610f208b27eab2305c68f96dd6560c6160662c | |
| parent | 93c3d9d281cc3c7c447a248d6d8b00f14e72b52f (diff) | |
| download | org-mode-d6fcfc06cef3356a0cbe58e452f1ed2946659623.tar.gz | |
Fix fast todo selection menu alignment
* lisp/org.el (org-fast-todo-selection): Avoid lines with just a
closing delimiter.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index b44b61c..34857d1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12684,7 +12684,9 @@ Returns the new TODO keyword, or nil if no state change should occur." (when (and (= cnt 0) (not ingroup)) (insert " ")) (insert "[" c "] " tg (make-string (- fwidth 4 (length tg)) ?\ )) - (when (= (setq cnt (1+ cnt)) ncol) + (when (and (= (setq cnt (1+ cnt)) ncol) + ;; Avoid lines with just a closing delimiter. + (not (equal (car tbl) '(:endgroup)))) (insert "\n") (when ingroup (insert " ")) (setq cnt 0))))) |