(esc-map, ctl-x-map): Define as functions.
This commit is contained in:
parent
17431c602d
commit
b34429f8ea
1 changed files with 4 additions and 0 deletions
|
@ -51,6 +51,10 @@
|
|||
(defun define-keymap (name)
|
||||
(fset (intern name) (make-keymap)))
|
||||
|
||||
;; Make it work to use ml-use-...-map on "esc" and such.
|
||||
(fset 'esc-map esc-map)
|
||||
(fset 'ctl-x-map ctl-x-map)
|
||||
|
||||
(defun ml-use-local-map (name)
|
||||
(use-local-map (intern (concat name "-map"))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue