[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/cape b1ff9e9735: Rename internal symbols for consistency,
ELPA Syncer <=