Add missing cl- prefix to subseq

This commit is contained in:
TEC 2020-10-13 17:53:19 +08:00
parent 6f678cf874
commit 1fe612cc47

View file

@ -4240,7 +4240,7 @@ truncated to fit within the limit"
(when (> (length heading-words)
org-heading-contraction-max-words)
(setq heading-words
(subseq heading-words 0 org-heading-contraction-max-words)))
(cl-subseq heading-words 0 org-heading-contraction-max-words)))
(when (> (+ (-sum (mapcar #'length heading-words))
(1- (length heading-words)))