emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/cape 8ed1e4e9cd 005/146: Remove parens from annotations


From: ELPA Syncer
Subject: [elpa] externals/cape 8ed1e4e9cd 005/146: Remove parens from annotations
Date: Sun, 9 Jan 2022 20:57:36 -0500 (EST)

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

    Remove parens from annotations
---
 cape.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/cape.el b/cape.el
index fbde0ed98e..b697fddaf4 100644
--- a/cape.el
+++ b/cape.el
@@ -44,7 +44,7 @@
     (list (car bounds) (cdr bounds)
           #'read-file-name-internal
           :exclusive 'no
-          :annotation-function (lambda (_) " (File)"))))
+          :annotation-function (lambda (_) " File"))))
 
 ;;;###autoload
 (defun cape-file ()
@@ -79,7 +79,7 @@
              (unless (string-match-p "\n" (buffer-substring beg end))
                (list beg end words
                      :exclusive 'no
-                     :annotation-function (lambda (_) " (Dabbrev)"))))))))))
+                     :annotation-function (lambda (_) " Dabbrev"))))))))))
 
 (autoload 'ispell-lookup-words "ispell")
 
@@ -95,7 +95,7 @@
                                     (buffer-substring-no-properties (car 
bounds) (cdr bounds))))))))
     (list (car bounds) (cdr bounds) table
           :exclusive 'no
-          :annotation-function (lambda (_) " (Ispell)"))))
+          :annotation-function (lambda (_) " Ispell"))))
 
 ;;;###autoload
 (defun cape-ispell ()
@@ -125,7 +125,7 @@
   (when-let (bounds (bounds-of-thing-at-point 'word))
     (list (car bounds) (cdr bounds) (cape--dict-words)
           :exclusive 'no
-          :annotation-function (lambda (_) " (Dict)"))))
+          :annotation-function (lambda (_) " Dict"))))
 
 ;;;###autoload
 (defun cape-dict ()
@@ -150,7 +150,7 @@
     (list (car bounds) (cdr bounds) abbrevs
           :exclusive 'no
           :exit-function #'cape--abbrev-expand
-          :annotation-function (lambda (_) " (Abbrev)"))))
+          :annotation-function (lambda (_) " Abbrev"))))
 
 ;;;###autoload
 (defun cape-abbrev ()
@@ -420,7 +420,7 @@
              (keywords (cape--keywords)))
     (list (car bounds) (cdr bounds) keywords
           :exclusive 'no
-          :annotation-function (lambda (_) " (Keyword)"))))
+          :annotation-function (lambda (_) " Keyword"))))
 
 ;;;###autoload
 (defun cape-keyword ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]