Add missing cl- prefix to subseq
This commit is contained in:
parent
6f678cf874
commit
1fe612cc47
|
@ -4240,7 +4240,7 @@ truncated to fit within the limit"
|
||||||
(when (> (length heading-words)
|
(when (> (length heading-words)
|
||||||
org-heading-contraction-max-words)
|
org-heading-contraction-max-words)
|
||||||
(setq heading-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))
|
(when (> (+ (-sum (mapcar #'length heading-words))
|
||||||
(1- (length heading-words)))
|
(1- (length heading-words)))
|
||||||
|
|
Loading…
Reference in a new issue