[elpa] externals/marginalia 31ba78b 072/241: add marginalia-annotate-coding-system

[Stefan Monnier]

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