procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/simple.el (event-apply-modifier): Map control+[ to C-[

Browse source
This commit is contained in:
Stefan Monnier 2018-07-27 16:45:03 -04:00
parent 22f549e305
commit 8c8bf7db62
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/simple.el
View file

@ -8346,14 +8346,12 @@ LSHIFTBY is the numeric value of this modifier, in keyboard events.
PREFIX is the string that represents this modifier in an event type symbol."
(if (numberp event)
(cond ((eq symbol 'control)
(if (and (<= (downcase event) ?z)
(>= (downcase event) ?a))
(- (downcase event) ?a -1)
(if (and (<= (downcase event) ?Z)
(>= (downcase event) ?A))
(- (downcase event) ?A -1)
(logior (lsh 1 lshiftby) event))))
(if (<= 64 (upcase event) 95)
(- (upcase event) 64)
(logior (lsh 1 lshiftby) event)))
((eq symbol 'shift)
;; FIXME: Should we also apply this "upcase" behavior of shift
;; to non-ascii letters?
(if (and (<= (downcase event) ?z)
(>= (downcase event) ?a))
(upcase event)