branch: elpa/eglot-inactive-regions
commit cf2c7fb77d83eab616d4b32b45f9a971a7ee9d76
Author: Filippo Argiolas <filippo.argio...@gmail.com>
Commit: Filippo Argiolas <filippo.argio...@gmail.com>
do not regenerate inactive face docs if face exists
---
eglot-inactive-regions.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/eglot-inactive-regions.el b/eglot-inactive-regions.el
index 553e28b5d2..5d745cdbfd 100644
--- a/eglot-inactive-regions.el
+++ b/eglot-inactive-regions.el
@@ -189,14 +189,13 @@ If the correspondend \"eglot-inactive\" face doesn't not
exist yet create it."
(let* ((fg (face-foreground parent-face nil 'default))
(bg (face-background parent-face nil 'default))
(alpha eglot-inactive-regions-opacity)
- (face-suffix "-eglot-inactive")
- (doc-suffix " (eglot inactive region dimmed face)")
(eglot-inactive-fg (eglot-inactive-regions--color-blend fg bg alpha))
- (eglot-inactive-face-name (concat (face-name parent-face)
face-suffix))
- (eglot-inactive-face (intern eglot-inactive-face-name))
- (eglot-inactive-doc (concat (face-documentation parent-face)
doc-suffix)))
+ (eglot-inactive-face-name (concat (face-name parent-face)
"-eglot-inactive"))
+ (eglot-inactive-face (intern eglot-inactive-face-name)))
(unless (facep eglot-inactive-face)
- (custom-declare-face eglot-inactive-face '((t nil)) eglot-inactive-doc))
+ (let* ((doc-suffix " (eglot inactive region dimmed face)")
+ (eglot-inactive-doc (concat (face-documentation parent-face)
doc-suffix)))
+ (custom-declare-face eglot-inactive-face '((t nil))
eglot-inactive-doc)))
(set-face-foreground eglot-inactive-face eglot-inactive-fg)
eglot-inactive-face))
