[elpa] externals/cape b895c8cf28 114/146: cape-capf-case-fold: Add dont-fold

[ELPA Syncer]

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

    cape-capf-case-fold: Add dont-fold
---
 cape.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/cape.el b/cape.el
index 85d9aaaf64..2cc00bd594 100644
--- a/cape.el
+++ b/cape.el
@@ -876,12 +876,14 @@ The PREDICATE is passed the candidate symbol or string."
        `(,beg ,end ,(cape--silent-table table) ,@plist)))))
 
 ;;;###autoload
-(defun cape-capf-case-fold (capf)
-  "Create a new CAPF which is case insensitive."
+(defun cape-capf-case-fold (capf &optional dont-fold)
+  "Create a new CAPF which is case insensitive.
+If DONT-FOLD is non-nil, return a completion table that is
+case sensitive instead."
   (lambda ()
     (pcase (funcall capf)
       (`(,beg ,end ,table . ,plist)
-       `(,beg ,end ,(completion-table-case-fold table) ,@plist)))))
+       `(,beg ,end ,(completion-table-case-fold table dont-fold) ,@plist)))))
 
 ;;;###autoload
 (defun cape-noninterruptible-capf (capf)