;; costly, really).
"Radix-tree representation replacing `definition-prefixes'.")
-(defvar keymap-name-history nil
- "History for input to `describe-keymap'.")
-
(defun help-definition-prefixes ()
"Return the up-to-date radix-tree form of `definition-prefixes'."
(when (> (hash-table-count definition-prefixes) 0)
(get-char-property (point) 'local-map)
(current-local-map)))))
+(defvar keymap-name-history nil
+ "History for input to `describe-keymap'.")
+
;;;###autoload
(defun describe-keymap (keymap)
"Describe key bindings in KEYMAP.