hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 17:41:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix #27

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2018-03-19 13:23:44 +01:00
parent 466ce46d84
commit b6b103e3f5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
boon-keys.el
View file

@ -84,7 +84,7 @@
(define-key isearch-mode-map [escape] 'isearch-abort) (define-key isearch-mode-map [escape] 'isearch-abort)
(defun boon-god-control-swap (event) (defun boon-god-control-swap (event)
"Swap the control 'bit' in EVENT, if that is a good choice." "Swap the control 'bit' in EVENT, unless C-c <event> is a prefix reserved for modes."
(interactive (list (read-key))) (interactive (list (read-key)))
(cond (cond
((memq event '(9 13 ?{ ?} ?[ ?] ?$ ?< ?> ?: ?\; ?/ ?? ?. ?, ?' ?\")) event) ((memq event '(9 13 ?{ ?} ?[ ?] ?$ ?< ?> ?: ?\; ?/ ?? ?. ?, ?' ?\")) event)
@ -93,7 +93,9 @@
(t (list 'control event)))) (t (list 'control event))))
(defun boon-c-god (arg) (defun boon-c-god (arg)
"Input a key sequence, prepend C- if that is a good choice, and run the command bound to that sequence." "Input a key sequence, prepending C- to keys unless keys are
already reserved for modes, and run the command bound to that
sequence."
(interactive "P") (interactive "P")
(let ((keys '((control c))) (let ((keys '((control c)))
(binding (key-binding (kbd "C-c"))) (binding (key-binding (kbd "C-c")))