[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 8a2c5f3aae 2/2: Minor simplification
From: |
ELPA Syncer |
Subject: |
[elpa] externals/marginalia 8a2c5f3aae 2/2: Minor simplification |
Date: |
Thu, 21 Jul 2022 14:57:42 -0400 (EDT) |
branch: externals/marginalia
commit 8a2c5f3aaed61f1c04b5d88c52e3bb59978d095b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Minor simplification
---
marginalia.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 9721107da0..ccfbe73728 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -471,8 +471,8 @@ t cl-type"
(t "f"))
(and (autoloadp (symbol-function s)) "@")
(and (marginalia--advised s) "!")
- (and (get s 'byte-obsolete-info) "-")
- (and (caddr (help-fns--analyze-function s)) "&")))
+ (and (symbolp (symbol-function s)) "&")
+ (and (get s 'byte-obsolete-info) "-")))
(when (boundp s)
(concat
(when (local-variable-if-set-p s)
@@ -487,8 +487,8 @@ t cl-type"
(eval (car (get s 'standard-value))))))
"U" "u")
"v")
- (and (get s 'byte-obsolete-variable) "-")
- (and (not (eq s (condition-case nil (indirect-variable s) (error s))))
"&")))
+ (ignore-errors (and (not (eq (indirect-variable s) s)) "&"))
+ (and (get s 'byte-obsolete-variable) "-")))
(and (facep s) "a")
(and (fboundp 'cl-find-class) (cl-find-class s) "t"))))