Mercurial > emacs
comparison lisp/emulation/mlsupport.el @ 1897:2cbd4cfb7f4c
(esc-map, ctl-x-map): Define as functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Feb 1993 06:29:09 +0000 |
| parents | b95bdb97c3e8 |
| children | f287613dfc28 |
comparison
equal
deleted
inserted
replaced
| 1896:10895ac08bc6 | 1897:2cbd4cfb7f4c |
|---|---|
| 48 (defun provide-prefix-arg (arg form) | 48 (defun provide-prefix-arg (arg form) |
| 49 (funcall (car form) arg)) | 49 (funcall (car form) arg)) |
| 50 | 50 |
| 51 (defun define-keymap (name) | 51 (defun define-keymap (name) |
| 52 (fset (intern name) (make-keymap))) | 52 (fset (intern name) (make-keymap))) |
| 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) | |
| 53 | 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 |
| 57 (defun ml-use-global-map (name) | 61 (defun ml-use-global-map (name) |