[elpa] externals/cape 673b086dae 056/146: Annotate abbreviations with expansion

[ELPA Syncer]

branch: externals/cape
commit 673b086daea275ada9fb536f1b41e822f46f020d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Annotate abbreviations with expansion
---
 cape.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/cape.el b/cape.el
index 1bbc6f7d48..8195d67130 100644
--- a/cape.el
+++ b/cape.el
@@ -486,8 +486,17 @@ METADATA is optional completion metadata."
   (delete "" (nconc (all-completions "" global-abbrev-table)
                     (all-completions "" local-abbrev-table))))
 
+(defun cape--abbrev-annotation (abbrev)
+  "Annotate ABBREV with expansion."
+  (concat " "
+          (truncate-string-to-width
+           (symbol-value
+            (or (abbrev--symbol abbrev local-abbrev-table)
+                (abbrev--symbol abbrev global-abbrev-table)))
+           30 0 nil t)))
+
 (defvar cape--abbrev-properties
-  (list :annotation-function (lambda (_) " Abbrev")
+  (list :annotation-function #'cape--abbrev-annotation
         :exit-function (lambda (&rest _) (expand-abbrev))
         :company-kind (lambda (_) 'snippet))
   "Completion extra properties for `cape-abbrev-capf'.")