diff options
| author | Bastien <bzg@gnu.org> | 2018-04-27 01:27:15 +0200 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2018-04-27 01:27:15 +0200 |
| commit | 6cd224e83341d2a6791249b7c3230e2456522a5a (patch) | |
| tree | 04b6d9f47efa97da33adc643ef3355135601f35c | |
| parent | f21fb8ad3b47409d5f86dbcff7c5d420c8503fbf (diff) | |
| parent | e2e5495239833034c27de6f21c496fa1b05f5d85 (diff) | |
| download | org-mode-6cd224e83341d2a6791249b7c3230e2456522a5a.tar.gz | |
Merge branch 'maint' of code.orgmode.org:bzg/org-mode into maint
| -rw-r--r-- | lisp/org.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index ebe9ace..54bf3e1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15090,10 +15090,12 @@ TODO keywords, should these have keys assigned to them. If the keys are nil, a-z are automatically assigned. Returns the new tags string, or nil to not change the current settings." (let* ((fulltable (append table todo-table)) - (maxlen (apply 'max (mapcar - (lambda (x) - (if (stringp (car x)) (string-width (car x)) 0)) - fulltable))) + (maxlen (if (null fulltable) 0 + (apply #'max + (mapcar (lambda (x) + (if (stringp (car x)) (string-width (car x)) + 0)) + fulltable)))) (buf (current-buffer)) (expert (eq org-fast-tag-selection-single-key 'expert)) (buffer-tags nil) |