branch: elpa/free-keys
commit edfd69dc369b2647447b7c28c7c1163b1ddf45b4
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
[Fix #3] Add an option to specify multi-character keys
---
free-keys.el | 22 +++++++++++++++++-----
1 file changed, 17 insertions(+), 5 deletions(-)
diff --git a/free-keys.el b/free-keys.el
index 3f28af63e9..b41f19e17d 100644
--- a/free-keys.el
+++ b/free-keys.el
@@ -46,8 +46,16 @@
:group 'free-keys)
(defcustom free-keys-keys
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-=[]{};'\\:\"|,./<>?`~"
- "String of keys that can be used as bindings."
- :type 'string
+ "String or list of keys that can be used as bindings.
+
+In case of string, each letter is interpreted as a character to
+test.
+
+In case of list, each item is considered as key code. This
+allows you to add keys such as TAB or RET."
+ :type '(choice
+ (string :tag "String of characters")
+ (repeat :tag "List of characters" string))
:group 'free-keys)
(defcustom free-keys-ignored-bindings nil
@@ -137,10 +145,14 @@ This simply calls `free-keys'."
"Process free bindings for MODIFIER."
(let (empty-keys)
(mapc (lambda (key)
- (let* ((key-name
+ (let* ((key-as-string (cond
+ ((characterp key) (char-to-string key))
+ ((stringp key) key)
+ (t (error "Key is not a character nor a
string"))))
+ (key-name
(if (not (equal modifier ""))
- (concat modifier "-" (char-to-string key))
- (char-to-string key)))
+ (concat modifier "-" key-as-string)
+ key-as-string))
(full-name
(if (and prefix (not (equal prefix ""))) (concat prefix "
" key-name) key-name))
(binding
