emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/marginalia 2da34efdef 2/2: Add symbol class M for modul


From: ELPA Syncer
Subject: [elpa] externals/marginalia 2da34efdef 2/2: Add symbol class M for module functions
Date: Fri, 12 May 2023 13:59:10 -0400 (EDT)

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

    Add symbol class M for module functions
---
 CHANGELOG.org | 6 ++++++
 marginalia.el | 6 ++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index c6afaa108c..651f27349b 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,12 @@
 #+author: Omar AntolĂ­n Camarena, Daniel Mendler
 #+language: en
 
+* Development
+
+- =marginalia-classify-by-prompt=: Use case-insensitive matching.
+- =marginalia-annotate-symbol=: Additional symbol classes. Use =M= for module
+  functions, =P= for primitives and =S= for special forms.
+
 * Version 1.2 (2023-04-17)
 
 - =marginalia-classify-by-command-name=: Resolve function aliases and use the 
name
diff --git a/marginalia.el b/marginalia.el
index 083fb852fe..3bf0c47b35 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -463,7 +463,8 @@ f function
 c command
 C interactive-only command
 m macro
-M special-form
+F special-form
+M module function
 P primitive
 g cl-generic
 p pure
@@ -497,8 +498,9 @@ t cl-type"
                  '("c" . "command")))
               ((cl-generic-p s) '("g" . "cl-generic"))
               ((macrop (symbol-function s)) '("m" . "macro"))
-              ((special-form-p (symbol-function s)) '("M" . "special-form"))
+              ((special-form-p (symbol-function s)) '("F" . "special-form"))
               ((subr-primitive-p (symbol-function s)) '("P" . "primitive"))
+              ((module-function-p (symbol-function s)) '("M" . "module 
function"))
               (t '("f" . "function")))
              (and (autoloadp (symbol-function s)) '("@" . "autoload"))
              (and (marginalia--advised s) '("!" . "advised"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]