[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 47898d1: marginalia--symbol-class: Use impro
From: |
ELPA Syncer |
Subject: |
[elpa] externals/marginalia 47898d1: marginalia--symbol-class: Use improved variable modified indicator |
Date: |
Sun, 10 Oct 2021 05:57:17 -0400 (EDT) |
branch: externals/marginalia
commit 47898d18d23fb8a176ec5a93d868d4000fc05990
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
marginalia--symbol-class: Use improved variable modified indicator
---
marginalia.el | 20 ++++++++++++++------
1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 28ba66f..9a7e104 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -443,10 +443,9 @@ s side-effect-free
- obsolete
Variable:
-u custom
+u custom (U modified compared to global value)
v variable
-l local
-* modified
+l local (L modified compared to default value)
- obsolete
Other:
@@ -469,9 +468,18 @@ t cl-type"
(and (get s 'byte-obsolete-info) "-")))
(when (boundp s)
(concat
- (and (local-variable-if-set-p s) "l")
- (if (custom-variable-p s) "u" "v")
- (and (ignore-errors (not (equal (symbol-value s) (default-value s))))
"*")
+ (when (local-variable-if-set-p s)
+ (if (ignore-errors
+ (not (equal (symbol-value s)
+ (default-value s))))
+ "L" "l"))
+ (if (custom-variable-p s)
+ (if (ignore-errors
+ (not (equal
+ (symbol-value s)
+ (eval (car (get s 'standard-value))))))
+ "U" "u")
+ "v")
(and (get s 'byte-obsolete-variable) "-")))
(and (facep s) "a")
(and (fboundp 'cl-find-class) (cl-find-class s) "t"))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/marginalia 47898d1: marginalia--symbol-class: Use improved variable modified indicator,
ELPA Syncer <=