|
@@ -14433,10 +14433,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)
|