[elpa] externals/marginalia 4ffd1a9 071/241: add marginalia-annotate-input-method

[Stefan Monnier]

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

    add marginalia-annotate-input-method
---
 marginalia.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index 679d8a9..3240806 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -145,6 +145,7 @@ only with the annotations that come with Emacs) without 
disabling
     (minor-mode . marginalia-annotate-minor-mode)
     (symbol . marginalia-annotate-symbol)
     (variable . marginalia-annotate-variable)
+    (input-method . marginalia-annotate-input-method)
     (charset . marginalia-annotate-charset)
     (package . marginalia-annotate-package))
   "Lightweight annotator functions.
@@ -188,6 +189,7 @@ determine it."
     ("\\<package\\>" . package)
     ("\\<face\\>" . face)
     ("\\<variable\\>" . variable)
+    ("\\<input method\\>" . input-method)
     ("\\<charset\\>" . charset)
     ("\\<minor mode\\>" . minor-mode))
   "Associates regexps to match against minibuffer prompts with categories."
@@ -353,6 +355,10 @@ This hash table is needed to speed up 
`marginalia-annotate-command-binding'.")
   "Annotate customization group CAND with its documentation string."
   (marginalia--documentation (documentation-property (intern cand) 
'group-documentation)))
 
+(defun marginalia-annotate-input-method (cand)
+  "Annotate input method CAND with its description."
+  (marginalia--documentation (nth 4 (assoc cand input-method-alist))))
+
 (defun marginalia-annotate-charset (cand)
   "Annotate charset CAND with its description."
   (marginalia--documentation (charset-description (intern cand))))