[elpa] externals/marginalia c5e89cf 168/241: describe-symbol: add indicator for obsolete variables/functions

[Stefan Monnier]

branch: externals/marginalia
commit c5e89cf4220196205f6d6ce21f5cef87d186c1b4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    describe-symbol: add indicator for obsolete variables/functions
---
 marginalia.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index 1916f56..54367d7 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -377,12 +377,14 @@ f function
 c command
 m macro
 ! advised
+o obsolete
 
 Variable:
 u custom
 v variable
 l local
 * modified
+o obsolete
 
 Other:
 a face
@@ -392,6 +394,7 @@ t cl-type"
    (concat
     (when (fboundp s)
       (concat
+       (when (get s 'byte-obsolete-info) "o")
        (cond
         ((commandp s) "c")
         ((eq (car-safe (symbol-function s)) 'macro) "m")
@@ -399,6 +402,7 @@ t cl-type"
        (when (marginalia--advised s) "!")))
     (when (boundp s)
       (concat
+       (when (get s 'byte-obsolete-variable) "o")
        (when (local-variable-if-set-p s) "l")
        (if (custom-variable-p s) "u" "v")
        (when (and (boundp s) (default-boundp s) (not (equal (symbol-value s) 
(default-value s)))) "*")))