branch: externals/marginalia
commit 4ffd1a9766e70320723423e5510da045dad9e239
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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))))
