[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/cape 2c091f2686: Improve cape-symbol-wrapper, add rcirc mode,
ELPA Syncer <=