[elpa] externals/marginalia 1030107: Align marginalia--symbol-class with Emacs 28

[ELPA Syncer]

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

    Align marginalia--symbol-class with Emacs 28
---
 marginalia.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 783b563..5378d43 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -371,14 +371,14 @@ f function
 c command
 m macro
 ! advised
-o obsolete
+- obsolete
 
 Variable:
 u custom
 v variable
 l local
 * modified
-o obsolete
+- obsolete
 
 Other:
 a face
@@ -388,18 +388,18 @@ t cl-type"
    (concat
     (when (fboundp s)
       (concat
-       (and (get s 'byte-obsolete-info) "o")
        (cond
         ((commandp s) "c")
         ((eq (car-safe (symbol-function s)) 'macro) "m")
         (t "f"))
-       (and (marginalia--advised s) "!")))
+       (and (marginalia--advised s) "!")
+       (and (get s 'byte-obsolete-info) "-")))
     (when (boundp s)
       (concat
-       (and (get s 'byte-obsolete-variable) "o")
        (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)))) 
"*")))
+       (and (ignore-errors (not (equal (symbol-value s) (default-value s)))) 
"*")
+       (and (get s 'byte-obsolete-variable) "-")))
     (and (facep s) "a")
     (and (fboundp 'cl-find-class) (cl-find-class s) "t"))))