branch: externals/marginalia
commit 31ba78b6c65be172aae2dde9bc0e6e91e229b082
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
add marginalia-annotate-coding-system
---
marginalia.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/marginalia.el b/marginalia.el
index 3240806..f3c61d4 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -146,6 +146,7 @@ only with the annotations that come with Emacs) without
disabling
(symbol . marginalia-annotate-symbol)
(variable . marginalia-annotate-variable)
(input-method . marginalia-annotate-input-method)
+ (coding-system . marginalia-annotate-coding-system)
(charset . marginalia-annotate-charset)
(package . marginalia-annotate-package))
"Lightweight annotator functions.
@@ -191,6 +192,7 @@ determine it."
("\\<variable\\>" . variable)
("\\<input method\\>" . input-method)
("\\<charset\\>" . charset)
+ ("\\<coding system\\>" . coding-system)
("\\<minor mode\\>" . minor-mode))
"Associates regexps to match against minibuffer prompts with categories."
:type '(alist :key-type regexp :value-type symbol)
@@ -363,6 +365,10 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
"Annotate charset CAND with its description."
(marginalia--documentation (charset-description (intern cand))))
+(defun marginalia-annotate-coding-system (cand)
+ "Annotate coding system CAND with its description."
+ (marginalia--documentation (coding-system-doc-string (intern cand))))
+
(defun marginalia-annotate-buffer (cand)
"Annotate buffer CAND with modification status, file name and major mode."
(when-let (buffer (get-buffer cand))
