From b895c8cf280f80a0cf724f137de06217679cb846 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Mon, 29 Nov 2021 16:04:34 +0100 Subject: 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 85d9aaa..2cc00bd 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) -- cgit v1.0