[elpa] externals/cape 6c02a8ed24: cape-dabbrev: More flexible `cape-dabbrev-check-other-buffers' (#35)

[ELPA Syncer]

branch: externals/cape
commit 6c02a8ed24d0f4a8b0200d0846c53340654afb9c
Author: Ingo Lohmar <ingo.lohmar@posteo.net>
Commit: GitHub <noreply@github.com>

    cape-dabbrev: More flexible `cape-dabbrev-check-other-buffers' (#35)
    
    Previously, the setting was boolean, and it checked only the current
    or (basically) all other buffers.  This adds an option to use any other
    non-nil value, which allows the user to make use of dabbrev's
    "select-buffer" mechanism.
---
 cape.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/cape.el b/cape.el
index e17888b7fd..a016b62774 100644
--- a/cape.el
+++ b/cape.el
@@ -68,8 +68,14 @@ auto completion does not pop up too aggressively."
   :type 'integer)
 
 (defcustom cape-dabbrev-check-other-buffers t
-  "Buffers to check for dabbrev."
-  :type 'boolean)
+  "Buffers to check for dabbrev.
+
+If t, check all other buffers (subject to dabbrev ignore rules).
+Any other non-nil value only checks some other buffers, as per
+`dabbrev-select-buffers-function'."
+  :type '(choice (const :tag "off" nil)
+                (const :tag "some" 'some)
+                (other :tag "all" t)))
 
 (defcustom cape-file-directory-must-exist t
   "The parent directory must exist for file completion."
@@ -529,8 +535,8 @@ If INTERACTIVE is nil the function acts like a capf."
   "Find all dabbrev expansions for WORD."
   (require 'dabbrev)
   (cape--silent
-    (let ((dabbrev-check-all-buffers cape-dabbrev-check-other-buffers)
-          (dabbrev-check-other-buffers cape-dabbrev-check-other-buffers))
+    (let ((dabbrev-check-other-buffers (not (null 
cape-dabbrev-check-other-buffers)))
+          (dabbrev-check-all-buffers (eq cape-dabbrev-check-other-buffers t)))
       (dabbrev--reset-global-variables))
     (cl-loop with min-len = (+ cape-dabbrev-min-length (length word))
              for w in (dabbrev--find-all-expansions word 
(dabbrev--ignore-case-p word))