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

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

[elpa] externals/cape 2c091f2686: Improve cape-symbol-wrapper, add rcirc


From: ELPA Syncer
Subject: [elpa] externals/cape 2c091f2686: Improve cape-symbol-wrapper, add rcirc mode
Date: Sun, 4 Dec 2022 08:57:23 -0500 (EST)

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

    Improve cape-symbol-wrapper, add rcirc mode
---
 cape.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/cape.el b/cape.el
index 9c10c82e81..c32b759009 100644
--- a/cape.el
+++ b/cape.el
@@ -95,11 +95,13 @@ The buffers are scanned for completion candidates by 
`cape-line'."
                  (function :tag "Custom function")))
 
 (defcustom cape-symbol-wrapper
-  '((org-mode . ?=)
-    (markdown-mode . ?`)
-    (rst-mode . "``"))
+  '((org-mode ?= ?=)
+    (markdown-mode ?` ?`)
+    (rst-mode "``" "``")
+    (rcirc-mode "`" "'"))
   "Wrapper characters for symbols."
-  :type '(alist :key-type symbol :value-type (choice character string)))
+  :type '(alist :key-type symbol :value-type (list (choice character string)
+                                                   (choice character string))))
 
 ;;;; Helpers
 
@@ -307,8 +309,8 @@ STATUS is the exit status."
                          if (derived-mode-p m) return c)))
     (save-excursion
       (backward-char (length name))
-      (insert c))
-    (insert c)))
+      (insert (car c)))
+    (insert (cadr c))))
 
 (defun cape--symbol-annotation (sym)
   "Return kind of SYM."



reply via email to

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