branch: elpa/free-keys
commit 11241fd5181ef9af8cfd05a82854b94e8b7fe0bb
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
Display keys for which keybinding is 'undefined.
---
free-keys.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/free-keys.el b/free-keys.el
index fa7e6b4509..bc7a18fad5 100644
--- a/free-keys.el
+++ b/free-keys.el
@@ -87,7 +87,7 @@
;;;###autoload
(defun free-keys (&optional prefix buffer)
(interactive (list (when current-prefix-arg
- (read-from-minibuffer "Prefix: "))))
+ (read-from-minibuffer "Prefix: "))))
(setq prefix (or prefix ""))
(setq free-keys-original-buffer (or buffer (current-buffer)))
(let ((buf (get-buffer-create "*Free keys*")))
@@ -118,7 +118,8 @@
(if prefix (concat prefix " " key-name)
key-name))
(binding
(with-current-buffer free-keys-original-buffer
(key-binding (read-kbd-macro full-name)))))
- (when (not binding)
+ (when (or (not binding)
+ (eq binding 'undefined))
(push full-name empty-keys))))
free-keys-keys)
(free-keys--print-in-columns (nreverse empty-keys)))
