[elpa] externals/cape 9481eafadf 3/5: Rename cape-symbol to cape-elisp-symbol

[ELPA Syncer]

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

    Rename cape-symbol to cape-elisp-symbol
    
    Stefan Monnier had recommended that a while ago. While Elisp symbols are
    commonly referred to as symbols in Emacs, we reduce confusion that way. Cape
    also provides `cape-elisp-block', such that the renaming improves 
consistency.
---
 README.org | 10 +++++-----
 cape.el    | 16 ++++++++--------
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/README.org b/README.org
index 4078884ccb..b23745c0d0 100644
--- a/README.org
+++ b/README.org
@@ -25,8 +25,8 @@ trigger the respective completion at point. You can bind them 
directly to a key
 in your user configuration. Notable commands/Capfs are ~cape-line~ for 
completion
 of a line from the current buffer, ~cape-history~ for history completion in 
shell
 or Comint modes and ~cape-file~ for completion of file names. The commands
-~cape-symbol~ and ~cape-elisp-block~ are useful for documentation of Elisp 
packages
-or configurations, since they complete Elisp anywhere.
+~cape-elisp-symbol~ and ~cape-elisp-block~ are useful for documentation of 
Elisp
+packages or configurations, since they complete Elisp anywhere.
 
 Cape has the super power to transform Company backends into Capfs and merge
 multiple Capfs into a Super-Capf! These transformers allow you to still take
@@ -39,10 +39,10 @@ advantage of Company backends even if you are not using 
Company as frontend.
 + ~cape-dabbrev~: Complete word from current buffers. See also ~dabbrev-capf~ 
on
   Emacs 29.
 + ~cape-elisp-block~: Complete Elisp in Org or Markdown code block.
++ ~cape-elisp-symbol~: Complete Elisp symbol.
 + ~cape-file~: Complete file name.
 + ~cape-history~: Complete from Eshell, Comint or minibuffer history.
 + ~cape-keyword~: Complete programming language keyword.
-+ ~cape-symbol~: Complete Elisp symbol.
 + ~cape-abbrev~: Complete abbreviation (~add-global-abbrev~, 
~add-mode-abbrev~).
 + ~cape-dict~: Complete word from dictionary file.
 + ~cape-line~: Complete entire line from current buffer.
@@ -92,7 +92,7 @@ information.
          ("C-c p h" . cape-history)
          ("C-c p f" . cape-file)
          ("C-c p k" . cape-keyword)
-         ("C-c p s" . cape-symbol)
+         ("C-c p s" . cape-elisp-symbol)
          ("C-c p e" . cape-elisp-block)
          ("C-c p a" . cape-abbrev)
          ("C-c p l" . cape-line)
@@ -117,7 +117,7 @@ information.
   ;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
   ;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
   ;;(add-to-list 'completion-at-point-functions #'cape-dict)
-  ;;(add-to-list 'completion-at-point-functions #'cape-symbol)
+  ;;(add-to-list 'completion-at-point-functions #'cape-elisp-symbol)
   ;;(add-to-list 'completion-at-point-functions #'cape-line)
 )
 #+end_src
diff --git a/cape.el b/cape.el
index 6c42d23aab..dabafc30fe 100644
--- a/cape.el
+++ b/cape.el
@@ -35,7 +35,7 @@
 ;; `cape-file': Complete file name
 ;; `cape-history': Complete from Eshell, Comint or minibuffer history
 ;; `cape-keyword': Complete programming language keyword
-;; `cape-symbol': Complete Elisp symbol
+;; `cape-elisp-symbol': Complete Elisp symbol
 ;; `cape-abbrev': Complete abbreviation (add-global-abbrev, add-mode-abbrev)
 ;; `cape-dict': Complete word from dictionary file
 ;; `cape-line': Complete entire line from file
@@ -119,7 +119,7 @@ The buffers are scanned for completion candidates by 
`cape-line'."
                  (const :tag "Buffers with same major mode" 
cape--buffers-major-mode)
                  (function :tag "Custom function")))
 
-(defcustom cape-symbol-wrapper
+(defcustom cape-elisp-symbol-wrapper
   '((org-mode ?= ?=)
     (markdown-mode ?` ?`)
     (rst-mode "``" "``")
@@ -404,7 +404,7 @@ If INTERACTIVE is nil the function acts like a Capf."
               '(:company-prefix-length t))
           ,@cape--file-properties)))))
 
-;;;;; cape-symbol
+;;;;; cape-elisp-symbol
 
 (defvar cape--symbol-properties
   (append
@@ -421,17 +421,17 @@ If INTERACTIVE is nil the function acts like a Capf."
            :company-doc-buffer 'elisp--company-doc-buffer
            :company-docsig 'elisp--company-doc-string
            :company-location 'elisp--company-location)))
-  "Completion extra properties for `cape-symbol'.")
+  "Completion extra properties for `cape-elisp-symbol'.")
 
 (defun cape--symbol-predicate (sym)
   "Return t if SYM is bound, fbound or propertized."
   (or (fboundp sym) (boundp sym) (symbol-plist sym)))
 
 (defun cape--symbol-exit (name status)
-  "Wrap symbol NAME with `cape-symbol-wrapper' buffers.
+  "Wrap symbol NAME with `cape-elisp-symbol-wrapper' buffers.
 STATUS is the exit status."
   (when-let (((not (eq status 'exact)))
-             (c (cl-loop for (m . c) in cape-symbol-wrapper
+             (c (cl-loop for (m . c) in cape-elisp-symbol-wrapper
                          if (derived-mode-p m) return c)))
     (save-excursion
       (backward-char (length name))
@@ -453,14 +453,14 @@ STATUS is the exit status."
    (t " Symbol")))
 
 ;;;###autoload
-(defun cape-symbol (&optional interactive)
+(defun cape-elisp-symbol (&optional interactive)
   "Complete Elisp symbol at point.
 If INTERACTIVE is nil the function acts like a Capf."
   (interactive (list t))
   (if interactive
       ;; No cycling since it breaks the :exit-function.
       (let (completion-cycle-threshold)
-        (cape-interactive #'cape-symbol))
+        (cape-interactive #'cape-elisp-symbol))
     (pcase-let ((`(,beg . ,end) (cape--bounds 'symbol)))
       (when (eq (char-after beg) ?')
         (setq beg (1+ beg) end (max beg end)))