This commit is contained in:
Jean-Philippe Bernardy 2019-04-29 21:27:41 +02:00
parent b00b87fc83
commit 92bd774b7c

View file

@ -370,7 +370,7 @@ sequence."
(while (and binding
(or (eq binding 'mode-specific-command-prefix)
;; if using universal prefix, the above will happen.
(not (symbolp binding))))
(not (commandp binding))))
(let ((key (read-key (format "%s" prompt))))
(if (eq key ?h) (describe-bindings key-vector) ;; h -> show help
(push (boon-god-control-swap key) keys)