ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2018-04-26 14:18:07 +02:00
parent ea6825cf1f e2e5495239
commit 60483fbfc3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -14433,10 +14433,12 @@ TODO keywords, should these have keys assigned to them.
If the keys are nil, a-z are automatically assigned. If the keys are nil, a-z are automatically assigned.
Returns the new tags string, or nil to not change the current settings." Returns the new tags string, or nil to not change the current settings."
(let* ((fulltable (append table todo-table)) (let* ((fulltable (append table todo-table))
(maxlen (apply 'max (mapcar (maxlen (if (null fulltable) 0
(lambda (x) (apply #'max
(if (stringp (car x)) (string-width (car x)) 0)) (mapcar (lambda (x)
fulltable))) (if (stringp (car x)) (string-width (car x))
0))
fulltable))))
(buf (current-buffer)) (buf (current-buffer))
(expert (eq org-fast-tag-selection-single-key 'expert)) (expert (eq org-fast-tag-selection-single-key 'expert))
(buffer-tags nil) (buffer-tags nil)