Commit d95b111b authored by Jim Blandy's avatar Jim Blandy

*** empty log message ***

parent c2be0af4
......@@ -180,21 +180,31 @@ Accept any number of arguments, but ignore them."
(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 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)
(defvar mouse-map nil
"Keymap for mouse commands from the X window system.")
(defun run-hooks (&rest hooklist)
"Takes hook names and runs each one in turn. Major mode functions use this.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment