branch: externals/cape
commit 9538d0bfa3c5701b573e7d4ce8fb9f5e335721cf
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
cape-wrap-trigger: Minor corrections
---
cape.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/cape.el b/cape.el
index 49dc0f4433..fc106d35bb 100644
--- a/cape.el
+++ b/cape.el
@@ -1222,7 +1222,7 @@ This function can be used as an advice around an existing
Capf."
Example:
(setq completion-at-point-functions
(list (cape-capf-trigger \\='cape-abbrev ?/)))"
- (setq trigger (if (stringp trigger) trigger (char-to-string trigger)))
+ (unless (stringp trigger) (setq trigger (char-to-string trigger)))
(when-let ((tbeg (save-excursion (search-backward trigger (pos-bol)
'noerror)))
(tend (+ tbeg (length trigger)))
((save-excursion (not (re-search-backward "\\s-" tbeg
'noerror)))))
@@ -1233,7 +1233,7 @@ Example:
(move-marker beg tend)
(setq beg tend))
(setq tbeg (copy-marker tbeg)
- tend (copy-marker tend))
+ tend (copy-marker tend t))
`( ,beg ,end ,table
:company-prefix-length t
:exit-function
