summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2021-11-26 00:31:25 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2021-11-26 00:31:25 +0100
commit7008958b024d453d47202045906c431472659356 (patch)
treee3b552377519b982f6be9e02ff5cb78e639b6f4a
parentceca3a3d06f3692328dff134d20b86a1f17bcfd6 (diff)
Minor corrections
-rw-r--r--cape.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/cape.el b/cape.el
index 2b909c7..2eacef5 100644
--- a/cape.el
+++ b/cape.el
@@ -411,7 +411,8 @@ If INTERACTIVE is nil the function acts like a capf."
(cape--table-with-properties obarray :category 'symbol)
cape--symbol-properties)
(when-let (bounds (bounds-of-thing-at-point 'symbol))
- `(,(car bounds) ,(cdr bounds) ,obarray
+ `(,(car bounds) ,(cdr bounds)
+ ,(cape--table-with-properties obarray :category 'symbol)
:exclusive no ,@cape--symbol-properties))))
(defvar cape--dabbrev-properties
@@ -526,8 +527,7 @@ If INTERACTIVE is nil the function acts like a capf."
(if interactive
(cape--complete-thing 'word (cape--dict-table) cape--dict-properties)
(when-let (bounds (bounds-of-thing-at-point 'word))
- `(,(car bounds) ,(cdr bounds)
- ,(cape--dict-table)
+ `(,(car bounds) ,(cdr bounds) ,(cape--dict-table)
:exclusive no ,@cape--dict-properties))))
(defun cape--abbrev-table ()