(esc-map, ctl-x-map): Define as functions.

This commit is contained in:
Richard M. Stallman 1993-02-21 06:29:09 +00:00
parent 17431c602d
commit b34429f8ea

View file

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