Remove unused letvar, spec

This commit is contained in:
Henrik Lissner 2018-07-30 23:03:34 +02:00
parent a820bbd468
commit b846a40af4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -364,7 +364,6 @@ conditions where a window's buffer hasn't changed at the time this hook is run."
(cl-loop with i = -1 (cl-loop with i = -1
for seg in (delq nil path) for seg in (delq nil path)
for face = (nth (% (cl-incf i) org-n-level-faces) org-level-faces) for face = (nth (% (cl-incf i) org-n-level-faces) org-level-faces)
for spec = (face-all-attributes face)
collect (propertize (replace-regexp-in-string "[ \t]+\\'" "" seg) collect (propertize (replace-regexp-in-string "[ \t]+\\'" "" seg)
'face (if face `(:foreground ,(face-foreground face))))) 'face (if face `(:foreground ,(face-foreground face)))))
separator)))) separator))))