branch: externals/indent-bars
commit 2452b96761aa73c6cbf595184892bff107640f8c
Author: JD Smith <[email protected]>
Commit: JD Smith <[email protected]>
Simplify create-faces
---
indent-bars.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/indent-bars.el b/indent-bars.el
index 190395f73e..a06a00abbf 100644
--- a/indent-bars.el
+++ b/indent-bars.el
@@ -445,11 +445,8 @@ Saves the vector of face symbols in variable
(cl-loop for i from 1 to num
for face = (intern (format "indent-bars-%d" i))
do
- (if (facep face)
- (when redefine
- (face-spec-reset-face face)
- (face-spec-set face (indent-bars--calculate-face-spec
i)))
- (face-spec-set face (indent-bars--calculate-face-spec i)))
+ (if (and redefine (facep face)) (face-spec-reset-face face))
+ (face-spec-set face (indent-bars--calculate-face-spec i))
collect face))))
(defsubst indent-bars--face (depth)
@@ -466,6 +463,7 @@ font-lock properties."
(let ((font-lock-extra-managed-props
(append '(display) font-lock-extra-managed-props)))
(funcall indent-bars-orig-unfontify-region beg end)))
+
;;;; Display
(defvar-local indent-bars-spacing nil)
