Mercurial > emacs
changeset 388:498bcec1cf3a
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 14 Aug 1991 01:03:20 +0000 |
| parents | 8f76cc1e1067 |
| children | 6e0510766e66 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Tue Aug 13 15:58:15 1991 +0000 +++ b/lisp/subr.el Wed Aug 14 01:03:20 1991 +0000 @@ -180,21 +180,31 @@ (fset 'search-forward-regexp (symbol-function 're-search-forward)) (fset 'search-backward-regexp (symbol-function 're-search-backward)) +;;; global-map, esc-map, and ctl-x-map have their values set up +;;; in keymap.c. (defvar global-map nil "Default global keymap mapping Emacs keyboard input into commands. The value is a keymap which is usually (but not necessarily) Emacs's global map.") +(defvar esc-map nil + "Default keymap for ESC (meta) commands. +The normal global definition of the character ESC indirects to this keymap.") + (defvar ctl-x-map nil "Default keymap for C-x commands. The normal global definition of the character C-x indirects to this keymap.") -(defvar esc-map nil - "Default keymap for ESC (meta) commands. -The normal global definition of the character ESC indirects to this keymap.") +(defvar ctl-x-4-map (make-sparse-keymap) + "Keymap for subcommands of C-x 4") +(fset 'ctl-x-4-prefix ctl-x-4-map) +(define-key ctl-x-map "4" 'ctl-x-4-prefix) -(defvar mouse-map nil - "Keymap for mouse commands from the X window system.") +(defvar ctl-x-3-map (make-sparse-keymap) + "Keymap for screen commands.") +(fset 'ctl-x-3-prefix ctl-x-3-map) +(define-key ctl-x-map "3" 'ctl-x-3-prefix) + (defun run-hooks (&rest hooklist) "Takes hook names and runs each one in turn. Major mode functions use this.