From b6b103e3f531ed8a8af57baaa54cbb3e6b792e83 Mon Sep 17 00:00:00 2001 From: Jean-Philippe Bernardy Date: Mon, 19 Mar 2018 13:23:44 +0100 Subject: [PATCH] Fix #27 --- boon-keys.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/boon-keys.el b/boon-keys.el index 11af00e..ae116f0 100644 --- a/boon-keys.el +++ b/boon-keys.el @@ -84,7 +84,7 @@ (define-key isearch-mode-map [escape] 'isearch-abort) (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 is a prefix reserved for modes." (interactive (list (read-key))) (cond ((memq event '(9 13 ?{ ?} ?[ ?] ?$ ?< ?> ?: ?\; ?/ ?? ?. ?, ?' ?\")) event) @@ -93,7 +93,9 @@ (t (list 'control event)))) (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") (let ((keys '((control c))) (binding (key-binding (kbd "C-c")))