;ELC ;;; compiled by jwz@thalidomide on Tue Mar 29 02:01:28 1994 ;;; from file /th/jwz/emacs19/lisp/prim/keymap.el ;;; emacs version 19.10 Lucid (beta10). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar minor-mode-map-alist nil "\ Alist of keymaps to use for minor modes. Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read key sequences and look up bindings iff VARIABLE's value is non-nil. If two active keymaps bind the same key, the keymap appearing earlier in the list takes precedence.") (fset 'keymap-parent #[(keymap) " !@" [keymap-parents keymap] 2 "\ Returns the first parent of the given keymap. This is obsolete; use `keymap-parents' instead."]) (fset 'set-keymap-parent #[(keymap parent) " \n\nC\"\n" [set-keymap-parents keymap parent] 3 "\ Makes the given keymap have (only) the given parent. This is obsolete; use `set-keymap-parents' instead."]) (defvar mode-line-map (byte-code "  \" )" [make-sparse-keymap m set-keymap-name mode-line-map] 3) "\ Keymap consulted for mouse-clicks on the modeline of a window. This variable may be buffer-local; its value will be looked up in the buffer of the window whose modeline was clicked upon.") (byte-code "#M" [put undefined suppress-keymap t #[nil " " [ding] 1 nil nil]] 4) (fset 'suppress-keymap #[(map &optional nodigits) "\n\" \" #HX #HTId)" [map-keymap #[(key binding) "= !#" [binding self-insert-command define-key map vector key undefined] 4] global-map nodigits make-string 1 48 string define-key map "-" negative-argument 0 57 digit-argument] 4 "\ Make MAP override all normally self-inserting keys to be undefined. Normally, as an exception, digits and minus-sign are set to make prefix args, but optional second arg NODIGITS non-nil treats them like other chars."]) (fset 'substitute-key-definition #[(olddef newdef keymap) "\n\"" [map-keymap #[(key binding) " = #" [binding olddef define-key keymap key newdef] 4] keymap] 3 "\ Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF. In other words, OLDDEF is replaced with NEWDEF where ever it appears. Prefix keymaps reached from KEYMAP are not checked recursively; perhaps they ought to be."]) (fset 'local-key-binding #[(keys) "  \")" [current-local-map map lookup-key keys] 4 "\ Return the binding for command KEYS in current local keymap only. KEYS is a string, a vector of events, or a vector of key-description lists as described in the documentation for the `define-key' function. The binding is probably a symbol with a function definition; see the documentation for `lookup-key' for more information."]) (fset 'global-key-binding #[(keys) " \n\"" [lookup-key current-global-map keys] 3 "\ Return the binding for command KEYS in current global keymap only. KEYS is a string or vector of events, a sequence of keystrokes. The binding is probably a symbol with a function definition; see the documentation for `lookup-key' for more information."]) (fset 'global-set-key #[(keys function) " \n #" [define-key current-global-map keys function] 4 "\ Give KEY a global binding as COMMAND. COMMAND is a symbol naming an interactively-callable function. KEYS is a string, a vector of events, or a vector of key-description lists as described in the documentation for the `define-key' function. Note that if KEY has a local binding in the current buffer that local binding will continue to shadow any global binding." "kSet key globally: \nCSet key %s to command: "]) (fset 'local-set-key #[(keys function) " ! #" [current-local-map use-local-map make-sparse-keymap define-key keys function] 4 "\ Give KEY a local binding as COMMAND. COMMAND is a symbol naming an interactively-callable function. KEYS is a string, a vector of events, or a vector of key-description lists as described in the documentation for the `define-key' function. The binding goes in the current buffer's local map, which is shared with other buffers in the same major mode." "kSet key locally: \nCSet key %s locally to command: "]) (fset 'global-unset-key #[(keys) " \"" [global-set-key keys nil] 3 "\ Remove global binding of KEY. KEYS is a string, a vector of events, or a vector of key-description lists as described in the documentation for the `define-key' function." "kUnset key globally: "]) (fset 'local-unset-key #[(keys) " \n#" [current-local-map define-key keys nil] 4 "\ Remove local binding of KEY. KEYS is a string, a vector of events, or a vector of key-description lists as described in the documentation for the `define-key' function." "kUnset key locally: "]) (fset 'minor-mode-key-binding #[(key &optional accept-default) " @ A :s @9l !g Jc A![\n \n#PN\n," [minor-mode-map-alist nil v s a tail boundp indirect-function lookup-key key accept-default] 5 "\ Find the visible minor mode bindings of KEY. Return an alist of pairs (MODENAME . BINDING), where MODENAME is the the symbol which names the minor mode binding KEY, and BINDING is KEY's definition in that mode. In particular, if KEY has no minor-mode bindings, return nil. If the first binding is a non-prefix, all subsequent bindings will be omitted, since they would be ignored. Similarly, the list doesn't include non-prefix bindings that come after prefix bindings. If optional argument ACCEPT-DEFAULT is non-nil, recognize default bindings; see the description of `lookup-key' for more details about this."]) (fset 'current-minor-mode-maps #[nil "  @ A :s @9l !g Jc A![\nBS-" [nil minor-mode-map-alist v s a tail l boundp indirect-function] 5 "\ Return a list of keymaps for the minor modes of the current buffer."]) (fset 'define-prefix-command #[(name &optional mapvar) "  \" M L = L )" [make-sparse-keymap map set-keymap-name name mapvar t] 3 "\ Define COMMAND as a prefix command. A new sparse keymap is stored as COMMAND's function definition. If second optional argument MAPVAR is not specified, COMMAND's value (as well as its function definition) is set to the keymap. If a second optional argument MAPVAR is given and is not `t', the map is stored as its value. Regardless of MAPVAR, COMMAND's function-value is always set to the keymap."]) (fset 'events-to-keys #[(events &optional no-mice) "9!;!D\"G \"\n  W H  ! !  !\n ! !9 !N\n\n \nI   T +-oG! Wk H!!!\"! BIb! !!EI!!!!!!!Q! BI9:@9 ID\" T ." [events vector vectorp signal wrong-type-argument length make-string 0 string nil c ce i eventp character-to-event event-to-character character-set-property key-press-event-p event-key copy-sequence new event mods key event-modifiers intern 1 menu-event-p menu-selection event-function event-object button-press-event-p button-release-event-p no-mice error "Mouse events can't be saved in keyboard macros." "button" event-button "up"] 7 "\ Given a vector of event objects, returns a vector of key descriptors, or a string (if they all fit in the ASCII range.) Optional arg NO-MICE means that button events are not allowed."])