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

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

[elpa] externals/cape 7008958b02 078/146: Minor corrections


From: ELPA Syncer
Subject: [elpa] externals/cape 7008958b02 078/146: Minor corrections
Date: Sun, 9 Jan 2022 20:57:44 -0500 (EST)

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

    Minor corrections
---
 cape.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cape.el b/cape.el
index 2b909c7eec..2eacef5664 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 ()



reply via email to

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