[nongnu] elpa/free-keys 11241fd518 07/19: Display keys for which keybinding is 'undefined.

[ELPA Syncer]

branch: elpa/free-keys
commit 11241fd5181ef9af8cfd05a82854b94e8b7fe0bb
Author: Matus Goljer <dota.keys@gmail.com>
Commit: Matus Goljer <dota.keys@gmail.com>

    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)))