mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 16:30:46 -08:00
Code Issues Projects Releases Wiki Activity

Don't ignore case when making replacements

Browse source 
Fixes #204
This commit is contained in:
Justin Burkett 2019-03-01 10:41:36 -05:00
parent 9c5922edbb
commit 51c485f16b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
which-key.el
View file

@ -1406,7 +1406,8 @@ local bindings coming first. Within these categories order using
;; handled in the selection of alist
(when (and (consp key-binding) (not (symbolp (car replacement))))
(let ((key-regexp (caar replacement))
(binding-regexp (cdar replacement)))
(binding-regexp (cdar replacement))
case-fold-search)
(and (or (null key-regexp)
(string-match-p key-regexp
(car key-binding)))