diff options
| author | Richard M. Stallman | 1993-02-21 06:29:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-02-21 06:29:09 +0000 |
| commit | b34429f8eaa7dbaf0798b8dd2b9d6d1c4d0d0e3d (patch) | |
| tree | b34b4e8affae9ea14fb93bb8b612ed7e95ae5e21 | |
| parent | 17431c602d85948a0d19891f948e59de36103212 (diff) | |
| download | emacs-b34429f8eaa7dbaf0798b8dd2b9d6d1c4d0d0e3d.tar.gz emacs-b34429f8eaa7dbaf0798b8dd2b9d6d1c4d0d0e3d.zip | |
(esc-map, ctl-x-map): Define as functions.
| -rw-r--r-- | lisp/emulation/mlsupport.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el index 04c5f18396f..c5091b70434 100644 --- a/lisp/emulation/mlsupport.el +++ b/lisp/emulation/mlsupport.el | |||
| @@ -51,6 +51,10 @@ | |||
| 51 | (defun define-keymap (name) | 51 | (defun define-keymap (name) |
| 52 | (fset (intern name) (make-keymap))) | 52 | (fset (intern name) (make-keymap))) |
| 53 | 53 | ||
| 54 | ;; Make it work to use ml-use-...-map on "esc" and such. | ||
| 55 | (fset 'esc-map esc-map) | ||
| 56 | (fset 'ctl-x-map ctl-x-map) | ||
| 57 | |||
| 54 | (defun ml-use-local-map (name) | 58 | (defun ml-use-local-map (name) |
| 55 | (use-local-map (intern (concat name "-map")))) | 59 | (use-local-map (intern (concat name "-map")))) |
| 56 | 60 | ||