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

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

[elpa] externals/cape b1ff9e9735: Rename internal symbols for consistenc


From: ELPA Syncer
Subject: [elpa] externals/cape b1ff9e9735: Rename internal symbols for consistency
Date: Fri, 13 Sep 2024 03:57:56 -0400 (EDT)

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

    Rename internal symbols for consistency
---
 cape.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/cape.el b/cape.el
index 18afd19b0a..278e2db44a 100644
--- a/cape.el
+++ b/cape.el
@@ -450,10 +450,10 @@ If INTERACTIVE is nil the function acts like a Capf."
 (autoload 'elisp--company-doc-string "elisp-mode")
 (autoload 'elisp--company-location "elisp-mode")
 
-(defvar cape--symbol-properties
-  (list :annotation-function #'cape--symbol-annotation
-        :exit-function #'cape--symbol-exit
-        :predicate #'cape--symbol-predicate
+(defvar cape--elisp-symbol-properties
+  (list :annotation-function #'cape--elisp-symbol-annotation
+        :exit-function #'cape--elisp-symbol-exit
+        :predicate #'cape--elisp-symbol-predicate
         :company-kind #'elisp--company-kind
         :company-doc-buffer #'elisp--company-doc-buffer
         :company-docsig #'elisp--company-doc-string
@@ -461,11 +461,11 @@ If INTERACTIVE is nil the function acts like a Capf."
         :exclusive 'no)
   "Completion extra properties for `cape-elisp-symbol'.")
 
-(defun cape--symbol-predicate (sym)
+(defun cape--elisp-symbol-predicate (sym)
   "Return t if SYM is bound, fbound or propertized."
   (or (fboundp sym) (boundp sym) (symbol-plist sym)))
 
-(defun cape--symbol-exit (sym status)
+(defun cape--elisp-symbol-exit (sym status)
   "Wrap symbol SYM with `cape-elisp-symbol-wrapper' buffers.
 STATUS is the exit status."
   (when-let (((not (eq status 'exact)))
@@ -485,7 +485,7 @@ STATUS is the exit status."
     (unless (looking-at-p (regexp-quote y))
       (insert y))))
 
-(defun cape--symbol-annotation (sym)
+(defun cape--elisp-symbol-annotation (sym)
   "Return kind of SYM."
   (setq sym (intern-soft sym))
   (cond
@@ -513,7 +513,7 @@ If INTERACTIVE is nil the function acts like a Capf."
         (setq beg (1+ beg) end (max beg end)))
       `(,beg ,end
         ,(cape--properties-table obarray :category 'symbol)
-        ,@cape--symbol-properties))))
+        ,@cape--elisp-symbol-properties))))
 
 ;;;;; cape-elisp-block
 



reply via email to

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