;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@203 Return a keymap with single entry for mouse key MOUSE on the mode line.
MOUSE is defined to run function FUNCTION with no args in the buffer
corresponding to the mode line clicked.

(fn MOUSE FUNCTION)
(defalias 'make-mode-line-mouse-map #[514 "\300 \301
\302\303\"#\210\207" [make-sparse-keymap define-key vector mode-line] 8 (#$ . 85)])
#@64 Like toggling `read-only-mode', for the mode-line.

(fn EVENT)
(defalias 'mode-line-toggle-read-only #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306\307!*\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord read-only-mode toggle] 5 (#$ . 433) "e"])
#@65 Toggle the buffer-modified flag from the mode-line.

(fn EVENT)
(defalias 'mode-line-toggle-modified #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306\307 ?!\210\310 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord set-buffer-modified-p buffer-modified-p force-mode-line-update] 5 (#$ . 810) "e"])
#@48 Widen a buffer from the mode-line.

(fn EVENT)
(defalias 'mode-line-widen #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210~\210\306 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord force-mode-line-update] 5 (#$ . 1239) "e"])
(defvar mode-line-input-method-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\306
!\207" [make-sparse-keymap define-key [mode-line mouse-2] #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306 \210\307 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord toggle-input-method force-mode-line-update] 5 "\n\n(fn E)" "e"] [mode-line mouse-3] #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord describe-current-input-method] 5 "\n\n(fn E)" "e"] purecopy] 5))
#@59 Local keymap for the coding-system part of the mode line.
(defvar mode-line-coding-system-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\306
!\207" [make-sparse-keymap define-key [mode-line mouse-1] #[257 "\302\303!\211@\262
!r\304\305\"\216\306
@\307\"\210\205 	\205 \310	!*\207" [enable-multibyte-characters buffer-file-coding-system internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord describe-coding-system] 5 "\n\n(fn E)" "e"] [mode-line mouse-3] #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306\307!*\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord call-interactively set-buffer-file-coding-system] 5 "\n\n(fn E)" "e"] purecopy] 5) (#$ . 2349))
#@77 Cycle through the various possible kinds of end-of-line styles.

(fn EVENT)
(defalias 'mode-line-change-eol #[257 "\301\302!\211@\262
!r\303\304\"\216\305
@\306\"\210\307!\310
\311\267\202'\312\202(\313\202(\314!\262
*\207" [buffer-file-coding-system internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord coding-system-eol-type set-buffer-file-coding-system #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 31 1 35)) dos mac unix] 6 (#$ . 3246) "e"])
(defvar mode-line-eol-desc-cache nil)
(defalias 'mode-line-eol-desc #[0 "\302!\303!\304	\"\211\203\211A@=\203\211AA\207\211\203 \305\306\307\310\311\312=\2030\313\202G\314=\203;\315\202G\316=\203F\317\202G\320\"\321\322\323\324&\262
BB	B\207" [buffer-file-coding-system mode-line-eol-desc-cache coding-system-eol-type coding-system-eol-type-mnemonic assoc nil propertize help-echo format "End-of-line style: %s\nmouse-1: Cycle" 0 "Unix-style LF" 1 "DOS-style CRLF" 2 "Mac-style CR" "Undecided" keymap (keymap (mode-line keymap (mouse-1 . mode-line-change-eol))) mouse-face mode-line-highlight] 11])
#@68 Return default help echo text for WINDOW's mode line.

(fn WINDOW)
(defalias 'mode-line-default-help-echo #[257 "\301
!
\302!=?\303\304\"?\206&\305!\301!=\205$\306
!\206$?\262
\307!=?\307!=?\204B\204B
\204B\211\205x\204J\205g\310\205P\311\205]\203\\\312\202]\313\204e\205f\314R\205r\315\205q\314P\205w\316Q\207" [resize-mini-windows window-frame frame-selected-window window-at-side-p bottom minibuffer-window minibuffer-window-active-p frame-root-window "mouse-1: " "Select window" " (drag to resize)" "Drag to resize" "\n" "mouse-2: Make window occupy whole frame" "mouse-3: Remove window from frame"] 10 (#$ . 4472)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable mode-line-default-help-echo funcall function #[0 "\300\207" [mode-line-default-help-echo] 1 ""] "Default help text for the mode line.\nIf the value is a string, it specifies the tooltip or echo area\nmessage to display when the mouse is moved over the mode line.\nIf the value is a function, call that function with one argument\n- the window whose mode line to display.  If the text at the\nmouse position has a `help-echo' text property, that overrides\nthis variable." :type (choice (const :tag "No help" :value nil) function (string :value "mouse-1: Select (drag to resize)\nmouse-2: Make current window occupy the whole frame\nmouse-3: Remove current window from display")) :version "27.1" :group mode-line] 10)
#@212 Mode line construct to put at the front of the mode line.
By default, this construct is displayed right at the beginning of
the mode line, except that if there is a "memory full" message,
it is displayed first.
(defvar mode-line-front-space '(:eval (if (display-graphic-p) " " "-")) (#$ . 5952))
(put 'mode-line-front-space 'risky-local-variable t)
#@86 Return help text specifying WINDOW's buffer coding system.

(fn WINDOW OBJECT POINT)
(defalias 'mode-line-mule-info-help-echo #[771 "r\302!q\210\203\303\304	\203\305\202\306\307!#\202\310)\207" [buffer-file-coding-system enable-multibyte-characters window-buffer format "Buffer coding system (%s): %s\nmouse-1: Describe coding system\nmouse-3: Set coding system" "multi-byte" "unibyte" symbol-name "Buffer coding system: none specified"] 8 (#$ . 6307)])
#@339 Mode line construct to report the multilingual environment.
Normally it displays current input method (if any activated) and
mnemonics of the following coding systems:
  coding system for saving or writing the current buffer
  coding system for keyboard input (on a text terminal)
  coding system for terminal output (on a text terminal)
(defvar mode-line-mule-info (byte-code "\302\303\304\305\306\307\310\311!\303\310\312!F\313\314BBBBBBD\315\316\306\317\320\321\313	&\322BBB\207" [mode-line-input-method-map mode-line-coding-system-map #1="" current-input-method :propertize (#1# current-input-method-title) help-echo concat purecopy "Current input method: " "\nmouse-2: Disable input method\nmouse-3: Describe current input method" local-map (mouse-face mode-line-highlight) propertize "%z" mode-line-mule-info-help-echo mouse-face mode-line-highlight ((:eval (mode-line-eol-desc)))] 10) (#$ . 6779))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mode-line-mule-info put risky-local-variable t] 4)
#@57 Mode line construct for identifying emacsclient frames.
(defvar mode-line-client (byte-code "\300\301\302\303\304\305!FD\207" [#1="" :propertize (#1# (:eval (if (frame-parameter nil 'client) "@" #1#))) help-echo purecopy "emacsclient frame"] 6) (#$ . 7819))
(put 'mode-line-client 'risky-local-variable t)
#@89 Return help text specifying WINDOW's buffer read-only status.

(fn WINDOW OBJECT POINT)
(defalias 'mode-line-read-only-help-echo #[771 "\300\301\302\303\304!\"\203\305\202\306\"\207" [format "Buffer is %s\nmouse-1: Toggle" buffer-local-value buffer-read-only window-buffer "read-only" "writable"] 9 (#$ . 8131)])
#@92 Return help text specifying WINDOW's buffer modification status.

(fn WINDOW OBJECT POINT)
(defalias 'mode-line-modified-help-echo #[771 "\300\301\302\303!!\203\304\202\305\"\207" [format "Buffer is %smodified\nmouse-1: Toggle modification state" buffer-modified-p window-buffer "" "not "] 8 (#$ . 8456)])
#@72 Mode line construct for displaying whether current buffer is modified.
(defvar mode-line-modified (byte-code "\300\301\302\303\304\305\306\307\310\"!\311\312&\300\313\302\314\304\305\306\307\315\"!\311\312&D\207" [propertize "%1*" help-echo mode-line-read-only-help-echo local-map purecopy make-mode-line-mouse-map mouse-1 mode-line-toggle-read-only mouse-face mode-line-highlight "%1+" mode-line-modified-help-echo mode-line-toggle-modified] 10) (#$ . 8774))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mode-line-modified put risky-local-variable t] 4)
#@50 Mode line construct to indicate a remote buffer.
(defvar mode-line-remote (byte-code "\300\301\302\303\304\305\306!%C\207" [propertize "%1@" mouse-face mode-line-highlight help-echo purecopy #[771 "\301\302\303!r\304\305\"\216\306
@\307\"\210;\203&\310!\203 \311\202!\312P\202'\313*\262
\"\207" [default-directory format "%s" internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord file-remote-p "Current directory is remote: " "Current directory is local: " "Current directory is nil"] 9 "\n\n(fn WINDOW OBJECT POINT)"]] 7) (#$ . 9368))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mode-line-remote put risky-local-variable t] 4)
#@118 Compute mode line construct for frame identification.
Value is used for `mode-line-frame-identification', which see.
(defalias 'mode-line-frame-control #[0 "\203\n\301=\203\f\302\207\303\207" [window-system pc "-%F  " "  "] 2 (#$ . 10129)])
#@52 Mode line construct to describe the current frame.
(defvar mode-line-frame-identification '(:eval (mode-line-frame-control)) (#$ . 10380))
(put 'mode-line-frame-identification 'risky-local-variable t)
#@126 Mode line construct for displaying info on process status.
Normally nil in most modes, since there is no process to display.
(defvar mode-line-process nil (#$ . 10588))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mode-line-process put risky-local-variable t] 4)
#@226 Define KEY in keymap MAP according to ITEM from a menu.
This is like `define-key', but it takes the definition from the
specified menu item, and makes pure copies of as much as possible
of the menu's data.

(fn MAP KEY ITEM)
(defalias 'bindings--define-key #[771 "\300:\204\f\202d\301!\203\202d@;\2033\301A!\203-\302@!AB\202d\302!\202d@\303=\203^\301\3048!\203X\303\302A@!\3048\302\305\233!BBB\202d\302!\202d\306\307\"\210#\207" [define-key keymapp purecopy menu-item 2 3 message "non-menu-item: %S"] 12 (#$ . 10889)])
(byte-code "\300\301\302\303#\300\207" [function-put bindings--define-key lisp-indent-function 2] 4)
#@43 Menu of mode operations in the mode line.
(defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") (#$ . 11549))
#@77 Return the menu-item string for ITEM, or nil if not a menu-item.

(fn ITEM)
(defalias 'bindings--menu-item-string #[257 "\211:\205)\211\242\211\300=\203!
\243\211:\205\211\242\301
\302\"\262
\262
\202'\211;\205'\211\262
\207" [menu-item eval t] 7 (#$ . 11674)])
#@206 Sort the bindings in MAP in alphabetical order by menu-item string.
The order of bindings in a keymap matters only when it is used as
a menu, so this function is not useful for non-menu keymaps.

(fn MAP)
(defalias 'bindings--sort-menu-keymap #[257 "\300C\301!\302!\203\303\304\305\"\"\262\202
\306\242\307\"\240\210\310
!\242\244\207" [nil keymap-prompt keymapp map-keymap make-closure #[514 "\300B\300\242B\240\207" [V0] 5 "\n\n(fn KEY ITEM)"] sort #[514 "\300\243!\300\243!\231\207" [bindings--menu-item-string] 5 "\n\n(fn A B)"] make-sparse-keymap] 7 (#$ . 11949)])
#@34 Keymap to display on major mode.
(defvar mode-line-major-mode-keymap (byte-code "\301 \302
\303\304\305\306\307\310\257#\210\311
\312\313#\210\302
\314\304\315\316BBB#\210\207" [mode-line-mode-menu make-sparse-keymap bindings--define-key [mode-line down-mouse-1] menu-item "Menu Bar" ignore :filter #[257 "\300 \207" [mouse-menu-major-mode-map] 2 "\n\n(fn _)"] define-key [mode-line mouse-2] describe-mode [mode-line down-mouse-3] "Minor Modes" (:filter bindings--sort-menu-keymap)] 9) (#$ . 12540))
#@35 Keymap to display on minor modes.
(defvar mode-line-minor-mode-keymap (byte-code "\301 \302\303\304BBB\305\306\307#\210\305\310\311#\210\305\312#\210\305\313#\210
\207" [mode-line-mode-menu make-sparse-keymap menu-item "Menu Bar" (:filter bindings--sort-menu-keymap) define-key [mode-line down-mouse-1] mouse-minor-mode-menu [mode-line mouse-2] mode-line-minor-mode-help [mode-line down-mouse-3] [header-line down-mouse-3]] 6) (#$ . 13048))
#@59 Mode line construct for displaying major and minor modes.
(defvar mode-line-modes (byte-code "\302\303\304\305#\306\307\310\304\311\312\313\314\257\315\307\316\312\313\304\317\314	\257\302\320\304\321\312\313\314\322\323\324\"&\325\302\326\304\305#\327\257	\207" [mode-line-major-mode-keymap mode-line-minor-mode-keymap propertize "%[" help-echo "Recursive edit, type M-C-c to get out" "(" :propertize (#1="" mode-name) "Major mode\nmouse-1: Display major mode menu\nmouse-2: Show help for major mode\nmouse-3: Toggle minor modes" mouse-face mode-line-highlight local-map (#1# mode-line-process) (#1# minor-mode-alist) "Minor mode\nmouse-1: Display minor mode menu\nmouse-2: Show help for minor mode\nmouse-3: Toggle minor modes" "%n" "mouse-2: Remove narrowing from buffer" make-mode-line-mouse-map mouse-2 mode-line-widen ")" "%]" " "] 15) (#$ . 13502))
(put 'mode-line-modes 'risky-local-variable t)
#@47 Keymap to display on column and line numbers.
(defvar mode-line-column-line-number-mode-map (byte-code "\300 \300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\311\312#\210
\207" [make-sparse-keymap "Toggle Line and Column Number Display" bindings--define-key [size-indication-mode] (menu-item "Display Size Indication" size-indication-mode :help "Toggle displaying a size indication in the mode-line" :button (:toggle . size-indication-mode)) [line-number-mode] (menu-item "Display Line Numbers" line-number-mode :help "Toggle displaying line numbers in the mode-line" :button (:toggle . line-number-mode)) [column-number-mode] (menu-item "Display Column Numbers" column-number-mode :help "Toggle displaying column numbers in the mode-line" :button (:toggle . column-number-mode)) define-key [mode-line down-mouse-1]] 6) (#$ . 14415))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\301\315\316#\210\300\317\302\303\320DD\321\306\322\312\313\310\311&	\210\323\317\324\325#\210\300\326\302\303\327DD\330\306\331\312\316\310\311&	\210\300\315\302\303\332DD\333\306\334\312\316\310\311&	\210\300\335\302\303\336DD\337\306\340\312\316\310\311&	\207" [custom-declare-variable column-number-indicator-zero-based funcall function #[0 "\300\207" [t] 1 #1=""] "When non-nil, mode line displays column numbers zero-based.\n\nThis variable has effect only when Column Number mode is turned on,\nwhich displays column numbers in the mode line.\nIf the value is non-nil, the displayed column numbers start from\nzero, otherwise they start from one." :type boolean :group mode-line :version "26.1" make-obsolete-variable mode-line-position-column-format "28.1" mode-line-percent-position #[0 "\300\207" [(-3 "%p")] 1 #1#] "Specification of \"percentage offset\" of window through buffer.\nThis option specifies both the field width and the type of offset\ndisplayed in `mode-line-position', a component of the default\n`mode-line-format'." (radio (const :tag "nil:  No offset is displayed" nil) (const :tag "\"%o\": Proportion of \"travel\" of the window through the buffer" (-3 "%o")) (const :tag "\"%p\": Percentage offset of top of window" (-3 "%p")) (const :tag "\"%P\": Percentage offset of bottom of window" (-3 "%P")) (const :tag "\"%q\": Offsets of both top and bottom of window" (6 "%q"))) put risky-local-variable t mode-line-position-line-format #[0 "\300\207" [(" L%l")] 1 #1#] "Format used to display line numbers in the mode line.\nThis is used when `line-number-mode' is switched on.  The \"%l\"\nformat spec will be replaced by the line number.\n\nAlso see `mode-line-position-column-line-format'." (list string) #[0 "\300\207" [(" C%c")] 1 #1#] "Format used to display column numbers in the mode line.\nThis is used when `column-number-mode' is switched on.  The\n\"%c\" format spec is replaced by the zero-based column number,\nand \"%C\" is replaced by the one-based column number.\n\nAlso see `mode-line-position-column-line-format'." (list string) mode-line-position-column-line-format #[0 "\300\207" [(" (%l,%c)")] 1 #1#] "Format used to display combined line/column numbers in the mode line.\nThis is used when `column-number-mode' and `line-number-mode' are\nswitched on.  The \"%c\" format spec will be replaced by the\ncolumn number, which is zero-based if\n`column-number-indicator-zero-based' is non-nil, and one-based if\n`column-number-indicator-zero-based' is nil." (list string)] 10)
(defconst mode-line-position--column-line-properties (list 'local-map mode-line-column-line-number-mode-map 'mouse-face 'mode-line-highlight 'help-echo "Line number and Column number\nmouse-1: Display Line and Column Mode Menu"))
#@177 Mode line construct for displaying the position in the buffer.
Normally displays the buffer percentage and, optionally, the
buffer size, the line number and the column number.
(defvar mode-line-position (byte-code "\302\303\304\305BBBB\306\307\310\311\304\312\313\314\315&DD\316\317\320\321\302\322	BBD\321\302\323	BBDE\324\302\325	BBDE\317\320\324\302\326	BBD\324\302\327	BBDEDEE\207" [mode-line-column-line-number-mode-map mode-line-position--column-line-properties :propertize mode-line-percent-position local-map (mouse-face mode-line-highlight help-echo "Window Scroll Percentage\nmouse-1: Display Line and Column Mode Menu") size-indication-mode 8 propertize " of %I" mouse-face mode-line-highlight help-echo "Size indication mode\nmouse-1: Display Line and Column Mode Menu" line-number-mode column-number-mode column-number-indicator-zero-based 10 mode-line-position-column-line-format (:eval (string-replace "%c" "%C" (car mode-line-position-column-line-format))) 6 mode-line-position-line-format mode-line-position-column-format (:eval (string-replace "%c" "%C" (car mode-line-position-column-format)))] 11) (#$ . 18095))
(put 'mode-line-position 'risky-local-variable t)
#@68 Keymap for what is displayed by `mode-line-buffer-identification'.
(defvar mode-line-buffer-identification-keymap (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\303#\210\301
\307\310#\210\301
\311\305#\210\301
\312\310#\210\207" [make-sparse-keymap define-key [mode-line mouse-1] mode-line-previous-buffer [header-line down-mouse-1] ignore [header-line mouse-1] [mode-line mouse-3] mode-line-next-buffer [header-line down-mouse-3] [header-line mouse-3]] 5) (#$ . 19286))
#@193 Return a list suitable for `mode-line-buffer-identification'.
FMT is a format specifier such as "%12b".  This function adds
text properties for face, help-echo, and local-map to it.

(fn FMT)
(defalias 'propertized-buffer-identification #[257 "\301
\302\303\304\305\306!\307\310\311&	C\207" [mode-line-buffer-identification-keymap propertize face mode-line-buffer-id help-echo purecopy "Buffer name\nmouse-1: Previous buffer\nmouse-3: Next buffer" mouse-face mode-line-highlight local-map] 11 (#$ . 19780)])
#@222 Mode line construct for identifying the buffer being displayed.
Its default value is ("%12b") with some text properties added.
Major modes that edit things other than ordinary files may change this
(e.g. Info, Dired,...)
(defvar mode-line-buffer-identification (propertized-buffer-identification "%12b") (#$ . 20296))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mode-line-buffer-identification put risky-local-variable t] 4)
#@126 Mode line construct for miscellaneous information.
By default, this shows the information specified by `global-mode-string'.
(defvar mode-line-misc-info '((global-mode-string ("" global-mode-string))) (#$ . 20760))
(put 'mode-line-misc-info 'risky-local-variable t)
#@57 Mode line construct to put at the end of the mode line.
(defvar mode-line-end-spaces '(:eval (unless (display-graphic-p) "-%-")) (#$ . 21032))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315\316\317\320\321\301\257\322\323\"\210\300\323\324\325DC#\210\207" [put mode-line-end-spaces risky-local-variable t "%e" mode-line-front-space mode-line-mule-info mode-line-client mode-line-modified mode-line-remote mode-line-frame-identification mode-line-buffer-identification "   " mode-line-position (vc-mode vc-mode) "  " mode-line-modes mode-line-misc-info set-default mode-line-format standard-value quote] 15)
#@50 Call `unbury-buffer' in this window.

(fn EVENT)
(defalias 'mode-line-unbury-buffer #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord unbury-buffer] 5 (#$ . 21675) "e"])
#@72 Like `bury-buffer', but temporarily select EVENT's window.

(fn EVENT)
(defalias 'mode-line-bury-buffer #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord bury-buffer] 5 (#$ . 22025) "e"])
#@73 Switch to the most recently selected buffer other than the current one.
(defalias 'mode-line-other-buffer #[0 "\300\301 \302\303#\207" [switch-to-buffer other-buffer nil t] 4 (#$ . 22393) nil])
#@72 Like `next-buffer', but temporarily select EVENT's window.

(fn EVENT)
(defalias 'mode-line-next-buffer #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord next-buffer] 5 (#$ . 22593) "e"])
#@76 Like `previous-buffer', but temporarily select EVENT's window.

(fn EVENT)
(defalias 'mode-line-previous-buffer #[257 "\300\301!\211@\262
!r\302\303\"\216\304
@\305\"\210\306 *\207" [internal--before-with-selected-window event-start make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord previous-buffer] 5 (#$ . 22961) "e"])
#@188 Return the value of symbol VAR if it is bound, else nil.
Note that if `lexical-binding' is in effect, this function isn't
meaningful if it refers to a lexically bound variable.

(fn VAR)
(defalias 'bound-and-true-p '(macro . #[257 "\300\301\302DDE\207" [and boundp quote] 5 (#$ . 23342)]))
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\207" [mode-line-mode-menu bindings--define-key [overwrite-mode] (menu-item "Overwrite (Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace existing text" :button (:toggle . overwrite-mode)) [outline-minor-mode] (menu-item "Outline (Outl)" outline-minor-mode :help "" :button (:toggle bound-and-true-p outline-minor-mode)) [highlight-changes-mode] (menu-item "Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the buffer in a distinctive color" :button (:toggle bound-and-true-p highlight-changes-mode)) [hide-ifdef-mode] (menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button (:toggle bound-and-true-p hide-ifdef-mode)) [glasses-mode] (menu-item "Glasses (o^o)" glasses-mode :help "Insert virtual separators to make long identifiers easy to read" :button (:toggle bound-and-true-p glasses-mode)) [font-lock-mode] (menu-item "Font Lock" font-lock-mode :help "Syntax coloring" :button (:toggle . font-lock-mode)) [flyspell-mode] (menu-item "Flyspell (Fly)" flyspell-mode :help "Spell checking on the fly" :button (:toggle bound-and-true-p flyspell-mode)) [auto-revert-tail-mode] (menu-item "Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer when the file on disk grows" :enable (buffer-file-name) :button (:toggle bound-and-true-p auto-revert-tail-mode)) [auto-revert-mode] (menu-item "Auto revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk changes" :button (:toggle bound-and-true-p auto-revert-mode)) [auto-fill-mode] (menu-item "Auto fill (Fill)" auto-fill-mode :help "Automatically insert new lines" :button (:toggle . auto-fill-function)) [abbrev-mode] (menu-item "Abbrev (Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button (:toggle . abbrev-mode))] 4)
#@81 Describe minor mode for EVENT on minor modes area of the mode line.

(fn EVENT)
(defalias 'mode-line-minor-mode-help #[257 "\300
A@8@\301
!\207" [4 describe-minor-mode-from-indicator] 4 (#$ . 25676) "@e"])
#@69 String displayed in the mode line in keyboard macro recording mode.
(defvar mode-line-defining-kbd-macro (propertize " Def" 'face 'font-lock-warning-face) (#$ . 25888))
(put 'mode-line-defining-kbd-macro 'risky-local-variable t)
#@265 Alist saying how to show minor modes in the mode line.
Each element looks like (VARIABLE STRING);
STRING is included in the mode line if VARIABLE's value is non-nil.

Actually, STRING need not be a string; any mode-line construct is
okay.  See `mode-line-format'.
(defvar minor-mode-alist nil (#$ . 26124))
(byte-code "\306\300\307\310#\210\311\312	\313>\203\314\315\316\"\202\314\315\317\"\314\315\320\"\"	\321>\203*\322\202+\323\324\325\326!\210\327\330\331\"\210\332\333!\210\332\334!\210\332\335!\210\332\336\337\"\210\332\340\341\"\210\342
\343\344#\207" [minor-mode-alist system-type completion-ignored-extensions exec-suffixes debug-ignored-errors esc-map put risky-local-variable t ((abbrev-mode " Abbrev") (overwrite-mode overwrite-mode) (auto-fill-function " Fill") (defining-kbd-macro mode-line-defining-kbd-macro)) append (ms-dos windows-nt) mapcar purecopy (".o" "~" ".bin" ".bak" ".obj" ".map" ".ico" ".pif" ".lnk" ".a" ".ln" ".blg" ".bbl" ".dll" ".drv" ".vxd" ".386") (".o" "~" ".bin" ".lbin" ".so" ".a" ".ln" ".blg" ".bbl") (".elc" ".lof" ".glo" ".idx" ".lot" ".svn/" ".hg/" ".git/" ".bzr/" "CVS/" "_darcs/" "_MTN/" ".fmt" ".tfm" ".class" ".fas" ".lib" ".mem" ".x86f" ".sparcf" ".dfsl" ".pfsl" ".d64fsl" ".p64fsl" ".lx64fsl" ".lx32fsl" ".dx64fsl" ".dx32fsl" ".fx64fsl" ".fx32fsl" ".sx64fsl" ".sx32fsl" ".wx64fsl" ".wx32fsl" ".fasl" ".ufsl" ".fsl" ".dxl" ".lo" ".la" ".gmo" ".mo" ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" ".pyc" ".pyo") (ms-dos windows-nt) (".exe" ".com" ".bat" ".cmd" ".btm" #1="") (#1#) (beginning-of-line beginning-of-buffer end-of-line end-of-buffer end-of-file buffer-read-only file-supersession mark-inactive user-error) make-variable-buffer-local indent-tabs-mode mapc #[257 "\300
\301\302#\207" [put permanent-local t] 5 "\n\n(fn SYM)"] (buffer-file-name default-directory buffer-backed-up buffer-saved-size buffer-auto-save-file-name buffer-read-only buffer-undo-list mark-active point-before-scroll buffer-file-truename buffer-file-format buffer-auto-save-file-format buffer-display-count buffer-display-time enable-multibyte-characters buffer-file-coding-system truncate-lines) provide base64 md5 sha1 overlay (display syntax-table field) text-properties (display syntax-table field point-entered) define-key "	" complete-symbol] 5)
#@281 Perform completion on the text around point.
The completion method is determined by `completion-at-point-functions'.

With a prefix argument, this command does completion within
the collection of symbols listed in the index of the manual for the
language you are using.

(fn ARG)
(defalias 'complete-symbol #[257 "\211\203\300 \207\301 \207" [info-complete-symbol completion-at-point] 2 (#$ . 28467) "P"])
(byte-code "\301 \210\302\303\304!\210\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\210\305\316\315\"\210\317\320\321\322#\210\323\324\325\326\327DD\330\331\332\333\334\335\336&	\207" [help-event-list garbage-collect (help f1 63) make-variable-buffer-local minor-mode-overriding-map-alist global-set-key [switch-frame] handle-switch-frame [select-window] handle-select-window [delete-frame] handle-delete-frame [iconify-frame] ignore-event [make-frame-visible] put narrow-to-region disabled t custom-declare-variable visual-order-cursor-movement funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, moving cursor with arrow keys follows the visual order.\n\nWhen this is non-nil, \\[right-char] will move to the character that is\nto the right of point on display, and \\[left-char] will move to the left,\ndisregarding the surrounding bidirectional context.  Depending on the\nbidirectional context of the surrounding characters, this can move point\nmany buffer positions away.\n\nWhen the text is entirely left-to-right, logical-order and visual-order\ncursor movements produce identical results." :type (choice (const :tag "Logical-order cursor movement" nil) (const :tag "Visual-order cursor movement" t)) :group display :version "24.4"] 10)
#@468 Move point N characters to the right (to the left if N is negative).
On reaching beginning or end of buffer, stop and signal error.

If `visual-order-cursor-movement' is non-nil, this always moves
to the right on display, wherever that is in the buffer.
Otherwise, depending on the bidirectional context, this may move
one position either forward or backward in the buffer.  This is
in contrast with \[forward-char] and \[backward-char], which
see.

(fn &optional N)
(defalias 'right-char #[256 "\2034\211\247\203\301
!\202\302\303\211W\2053\304\305\247\203(\303W\203(\306\202)\302!\266\211T\262
\202\207\307 \310=\203>\211u\207\211\206C\302[u\207" [visual-order-cursor-movement abs 1 0 nil move-point-visually -1 current-bidi-paragraph-direction left-to-right] 7 (#$ . 30157) "^p"])
#@467 Move point N characters to the left (to the right if N is negative).
On reaching beginning or end of buffer, stop and signal error.

If `visual-order-cursor-movement' is non-nil, this always moves
to the left on display, wherever that is in the buffer.
Otherwise, depending on the bidirectional context, this may move
one position either backward or forward in the buffer.  This is
in contrast with \[forward-char] and \[backward-char], which
see.

(fn &optional N)
(defalias 'left-char #[256 "\2034\211\247\203\301
!\202\302\303\211W\2053\304\305\247\203(\303W\203(\302\202)\306!\266\211T\262
\202\207\307 \310=\203C\211\206@\302[u\207\211u\207" [visual-order-cursor-movement abs 1 0 nil move-point-visually -1 current-bidi-paragraph-direction left-to-right] 7 (#$ . 30966) "^p"])
#@461 Move point N words to the right (to the left if N is negative).

Depending on the bidirectional context, this may move either forward
or backward in the buffer.  This is in contrast with \[forward-word]
and \[backward-word], which see.

Value is normally t.
If an edge of the buffer or a field boundary is reached, point is left there
and the function returns nil.  Field boundaries are not noticed
if `inhibit-field-text-motion' is non-nil.

(fn &optional N)
(defalias 'right-word #[256 "\300 \301=\203\n\211v\207\211\206\302[v\207" [current-bidi-paragraph-direction left-to-right 1] 3 (#$ . 31773) "^p"])
#@461 Move point N words to the left (to the right if N is negative).

Depending on the bidirectional context, this may move either backward
or forward in the buffer.  This is in contrast with \[backward-word]
and \[forward-word], which see.

Value is normally t.
If an edge of the buffer or a field boundary is reached, point is left there
and the function returns nil.  Field boundaries are not noticed
if `inhibit-field-text-motion' is non-nil.

(fn &optional N)
(defalias 'left-word #[256 "\300 \301=\203\211\206\f\302[v\207\211v\207" [current-bidi-paragraph-direction left-to-right 1] 3 (#$ . 32390) "^p"])
#@32 Keymap for narrowing commands.
(defvar narrow-map (make-sparse-keymap) (#$ . 33005))
(byte-code "\304\305	#\210\304	\305\306#\210\304	\307\310#\210\304	\311\312#\210\304\n\313\314#\210\304\n\315\316#\210\317\320\321\n#\210\304\n\322\323#\210\304\n\324\325#\210\304\324\326#\210\304\n\327\330#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\324\337#\210\304\340\341#\210\304\342\343#\210\304\344\345#\210\304\344\346#\210\304\347\350#\210\304\351\350#\210\304\352\353#\210\304\351\353#\210\304\354\355#\210\356\355\357\360#\210\304\n\361\355#\210\304\n\362\355#\207" [ctl-x-map narrow-map global-map esc-map define-key "n" narrow-to-region "w" widen "g" goto-line-relative "" keyboard-escape-quit "" keyboard-quit substitute-key-definition suspend-emacs suspend-frame "
" newline "" open-line split-line "" quoted-insert "^" delete-indentation "\\" delete-horizontal-space "m" back-to-indentation delete-blank-lines " " just-one-space "z" zap-to-char "=" count-words-region what-cursor-position ":" eval-expression "\272" "" repeat-complex-command "u" undo put :advertised-binding [24 117] [67108911] ""] 4)
#@72 Keymap to repeat undo key sequences `C-x u u'.  Used in `repeat-mode'.
(defvar undo-repeat-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key "u" undo] 5) (#$ . 34154))
(byte-code "\304\305\306\307#\210\310\311\312#\210\310\313\312#\210\310	\314\315#\210\310	\316\317#\210\310	\320\321#\210\310\n\322\323#\210\310\n\324\323#\210\310\325\323#\210\304\323\326\327#\210\310\n\330\331#\210\310\n\332\331#\210\310\333\331#\210\304\331\326\334#\210\310
\335\336#\210\310
\337\336#\210\310
\340\341#\210\310
\342\336#\210\310
\343\344#\210\310
\345\344#\210\310
\346\347#\210\310
\350\344#\210\310
\351\352#\210\310
\353\354#\210\310
\355\356#\210\310
\357\360#\266\310\361\362#\210\363\211\364X\203\272\310	\365!\366#\210\211T\262
\202\245\210\310	\367\370#\210\363\211\364X\203\332\310\371\372\373\"!\366#\210\211T\262
\202\302\210\310\374\370#\210\363\211\364X\203\372\310	\371\372\373\"!\366#\210\211T\262
\202\342\210\310\375\370#\210\310\376\377#\210\310\201@\201A#\210\310\201B\201C#\210\310\201D\201E#\210\310	\201F\201G#\210\310	\201D\201H#\210\310\201I\201J#\210\310	\201K\201L#\210\310\201M\201N#\210\310\201O\201N#\210\304\201N\326\201P#\210\310\n\201Q\201R#\210\310\n\201M\201S#\210\310\n\201T\201U#\210\310\n\201V\201S#\210\310\201W\201X#\210\310\201Y\201Z#\210\310\n\201W\201[#\210\310\201\\\201]#\210\310\201^\201_#\210\310\n\201`\201a#\207" [global-map esc-map ctl-x-map minibuffer-local-map put undo repeat-map undo-repeat-map define-key [(control 63)] undo-redo [134217759] "!" shell-command "|" shell-command-on-region "&" async-shell-command [right] next-buffer [C-right] [XF86Forward] :advertised-binding [24 right] [left] previous-buffer [C-left] [XF86Back] [24 left] "n" next-history-element [next] [down] next-line-or-history-element [XF86Forward] "p" previous-history-element [prior] [up] previous-line-or-history-element [XF86Back] "s" next-matching-history-element "r" previous-matching-history-element "	" self-insert-command [C-tab] file-cache-minibuffer-complete "" universal-argument 48 57 char-to-string digit-argument "-" negative-argument read format "[?\\C-%c]" [67108909] [201326637] "" delete-backward-char "" delete-char "" kill-line "" kill-region "w" kill-ring-save append-next-kill "" yank "y" yank-pop "" set-mark-command [67108896] [67108896] "" exchange-point-and-mark pop-global-mark " " rectangle-mark-mode [67108896] "" next-line "" previous-line set-goal-column "
" move-beginning-of-line "" move-end-of-line "`" next-error] 7)
#@70 Keymap to repeat `next-error' key sequences.  Used in `repeat-mode'.
(defvar next-error-repeat-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\306#\210\301
\307\306#\210\207" [make-sparse-keymap define-key "n" next-error "\356" "p" previous-error "\360"] 5) (#$ . 36740))
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put next-error repeat-map next-error-repeat-map previous-error] 4)
#@33 Keymap for navigation commands.
(defvar goto-map (make-sparse-keymap) (#$ . 37161))
(byte-code "\302\303	#\210\302	\304\305#\210\302	\303\306#\210\302	\307\306#\210\302	\310\311#\210\302	\312\311#\210\302	\313\314#\210\302	\315\314#\210\302	\316\317#\207" [esc-map goto-map define-key "g" "c" goto-char goto-line "\347" "n" next-error "\356" "p" previous-error "\360" "	" move-to-column] 4)
#@37 Keymap for search related commands.
(defvar search-map (make-sparse-keymap) (#$ . 37559))
(byte-code "\305\306	#\210\305	\307\310#\210\305	\311\312#\210\305	\313\314#\210\305	\315\316#\210\305	\317\320#\210\305	\321\322#\210\305	\323\324#\210\305	\325\326#\210\305	\327\330#\210\331\314\332\333#\210\331\316\332\334#\210\331\320\332\335#\210\331\322\332\336#\210\331\324\332\337#\210\331\326\332\340#\210\331\330\332\341#\210\305\n\342\343#\210\305\n\344\345#\210\305\n\346\347#\210\305\n\350\351#\210\305\n\352\353#\210\305\n\354\355#\210\305\n\356\357#\210\305\360\357#\210\305\n\361\362#\210\305\n\363\364#\210\305\n\365\366#\210\305\n\367\370#\210\305\n\371\372#\210\305\n\373\374#\210\305\n\375\376#\210\305\n\377\201@#\210\305\n\201A\201B#\210\331\201C\201D\201E#\210\305\n\201F\201C#\210\305\n\201G\201H#\210\305\201I\201H#\210\305\n\201J\201K#\210\305\201L\201K#\210\305\201M\201K#\210\305\n\201N\201O#\210\305\n\201P\201Q#\210\305\n\201R\201S#\210\305\201T\201S#\210\305\n\201U\355#\210\305\n\201V\357#\210\305\201W\357#\210\305\n\201X\343#\210\305\n\201Y\201Z#\210\305\n\201[\201\\#\210\305\n\201]\201^#\210\305\n\201_\201Z#\210\305\n\201`\201\\#\210\305\n\201a\201^#\210\305\n\201b\201c#\210\305\n\201d\201e#\210\305\n\201f\201e#\210\305\n\201g\201h#\210\305\n\201i\201j#\210\305\n\201k\201l#\210\305\n\201m\201n#\210\201o\201p\211\211\2039\211@\211@
A@\201q
!\203\331\201r#\210\211\2030\211@\305\201s\201tC\"!\201s\201tC\"!#\210
A\266\202\202\266
A\266\202\202\353
\266\305\201u\201v#\210\305\201w\201x#\210\305\201y\201z#\210\305\201{\201|#\210\305\201}\201~#\210\305\n\201\201\200#\210\305\n\201\201\201\202#\210\305\201\203\201\204#\210\305\201\201\201\205#\210\305\f\201\201\201\206#\210\305\201\207\201\210#\210\305\201\211\201\212#\210\305\201\213\201\212#\210\305\f\201\207\201\214#\210\305\f\201\215\201\216#\210\305\f\201\217\201\220#\210\305\f\201\221\201\222#\210\305\201\223\201\224#\210\305\201\217\201\225#\210\305\201\226\201\227#\210\305\201\230\201\231#\210\305\201\232\201\233#\210\305\201\234\355#\210\305\201\235\201Q#\210\305\f\201\236\201\237#\210\305\201\240\201\241#\210\201\242\201\243\201\244 \"\207" [esc-map search-map global-map function-key-map ctl-x-map define-key "s" "o" occur "\367" eww-search-words "hr" highlight-regexp "hp" highlight-phrase "hl" highlight-lines-matching-regexp "h." highlight-symbol-at-point "hu" unhighlight-regexp "hf" hi-lock-find-patterns "hw" hi-lock-write-interactive-patterns put :advertised-binding [134217843 104 114] [134217843 104 112] [134217843 104 108] [134217843 104 46] [134217843 104 117] [134217843 104 102] [134217843 104 119] [menu] execute-extended-command [find] search-forward [Scroll_Lock] scroll-lock-mode [C-S-backspace] kill-whole-line [home] move-beginning-of-line [C-home] beginning-of-buffer [M-home] beginning-of-buffer-other-window [home] [left] left-char [up] previous-line [right] right-char [down] next-line [prior] scroll-down-command [next] scroll-up-command [C-up] backward-paragraph [C-down] forward-paragraph [C-prior] scroll-right scroll-left disabled t [C-next] [M-next] scroll-other-window [next] [M-prior] scroll-other-window-down [prior] [33554454] [end] move-end-of-line [C-end] end-of-buffer [M-end] end-of-buffer-other-window [end] [begin] [M-begin] [begin] [execute] [insert] overwrite-mode [C-insert] kill-ring-save [S-insert] yank [insertchar] [C-insertchar] [S-insertchar] [undo] undo [redo] repeat-complex-command [again] [open] find-file [insertline] open-line [deleteline] kill-line [deletechar] delete-forward-char (nil (control) (meta) (control meta) (shift) (control shift) (meta shift) (control meta shift)) ((kp-delete delete) (kp-insert insert) (kp-end end) (kp-down down) (kp-next next) (kp-left left) (kp-begin begin) (kp-right right) (kp-home home) (kp-up up) (kp-prior prior) (kp-enter enter) (kp-decimal 46) (kp-0 48) (kp-1 49) (kp-2 50) (kp-3 51) (kp-4 52) (kp-5 53) (kp-6 54) (kp-7 55) (kp-8 56) (kp-9 57) (kp-add 43) (kp-subtract 45) (kp-multiply 42) (kp-divide 47)) characterp ascii-character vector append [backspace] [127] [delete] [127] [kp-delete] [127] [0] [67108896] [S-tab] [backtab] [mouse-movement] ignore "" transpose-chars "t" transpose-words transpose-sexps transpose-lines ";" comment-dwim "j" default-indent-new-line "\n" comment-set-column [67108923] comment-line "f" set-fill-column "$" set-selective-display "@" mark-word forward-word "b" backward-word "d" kill-word "" backward-kill-word "<" ">" "h" mark-whole-buffer "\\" delete-horizontal-space defalias mode-specific-command-prefix make-sparse-keymap] 15)
#@38 Keymap for characters following C-c.
(defvar mode-specific-map (symbol-function 'mode-specific-command-prefix) (#$ . 42292))
(byte-code "\305\306\307#\210\310\311\312\"\210\305	\313\314#\210\310\315\316\"\210\305	\317\320#\210\310\321\312\"\210\310\322\316\"\210\310\323\324\"\210\310\325\326\"\210\310\327\330\"\210\310\331\332\"\210\305	\333\332#\210\310\334\335\"\210\305	\336\335#\210\310\337\340\"\210\305	\341\340#\210\310\342\343\"\210\305	\344\343#\210\310\345\346\"\210\305	\347\346#\210\310\350\351\"\210\305	\352\351#\210\305	\353\335#\210\305	\354\332#\210\305	\355\340#\210\305	\356\357#\210\305	\360\357#\210\305	\361\343#\210\305	\362\363#\210\305	\364\365#\210\305	\366\365#\210\305	\367\370#\210\305	\371\372#\210\305	\373\346#\210\305	\374\351#\210\305	\375\376#\210\305\n\377\201@#\210\305	\201A\201B#\210\305	\201C\201D#\210\305\n\374\201E#\210\305\n\201F\201G#\210\305\201F\201H#\210\305\f\201F\201I#\207" [global-map esc-map ctl-x-map ctl-x-4-map ctl-x-5-map define-key "" mode-specific-command-prefix global-set-key [M-right] right-word [right] forward-word [M-left] left-word [left] backward-word [C-right] [C-left] [C-delete] kill-word [C-backspace] backward-kill-word [S-delete] kill-region [C-M-left] backward-sexp [C-left] [C-M-right] forward-sexp [C-right] [C-M-up] backward-up-list [C-up] [C-M-down] down-list [C-down] [C-M-home] beginning-of-defun [C-home] [C-M-end] end-of-defun [C-end] "" "" "" "" mark-sexp [67108896] "" "" kill-sexp [C-delete] backward-kill-sexp [C-backspace] "" forward-list "" backward-list "
" "" "" mark-defun "nd" narrow-to-defun "(" insert-parentheses ")" move-past-close-and-reindent eval-last-sexp "m" compose-mail compose-mail-other-window compose-mail-other-frame] 4)
#@34 Keymap for subcommands of C-x r.
(defvar ctl-x-r-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\321#\210\301
\322\323#\210\301
\324\323#\210\301
\325\323#\210\301
\326\327#\210\301
\330\331#\210\301
\332\331#\210\301
\333\334#\210\301
\335\334#\210\301
\336\337#\210\301
\340\341#\210\301
\342\343#\210\301
\344\345#\210\301
\346\347#\210\207" [make-sparse-keymap define-key "c" clear-rectangle "k" kill-rectangle "d" delete-rectangle "y" yank-rectangle "o" open-rectangle "t" string-rectangle "N" rectangle-number-lines "\367" copy-rectangle-as-kill "" point-to-register [67108896] " " "j" jump-to-register "s" copy-to-register "x" "i" insert-register "g" "r" copy-rectangle-to-register "n" number-to-register "+" increment-register "w" window-configuration-to-register "f" frameset-to-register] 5) (#$ . 44053))
(byte-code "\303\304	#\210\303\n\305\306#\210\303\307\310#\210\303\n\311\312#\210\303\n\313\314#\210\303\n\315\316#\210\303\n\317\320#\210\303\n\321\322#\210\303\n\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\207" [ctl-x-map ctl-x-r-map esc-map define-key "r" "q" fill-paragraph "." set-fill-prefix "{" backward-paragraph "}" forward-paragraph "h" mark-paragraph "a" backward-sentence "e" forward-sentence "k" kill-sentence "" backward-kill-sentence "[" backward-page "]" forward-page] 4)
#@73 Keymap to repeat page navigation key sequences.  Used in `repeat-mode'.
(defvar page-navigation-repeat-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\207" [make-sparse-keymap define-key "]" forward-page "[" backward-page] 5) (#$ . 45494))
(byte-code "\301\302\303\304#\210\301\305\303\304#\210\306\307\310#\210\306\311\312#\210\306\313\314#\207" [ctl-x-map put forward-page repeat-map page-navigation-repeat-map backward-page define-key "" mark-page "l" count-lines-page "np" narrow-to-page] 4)
#@29 Keymap for abbrev commands.
(defvar abbrev-map (make-sparse-keymap) (#$ . 46010))
(byte-code "\304\305	#\210\304	\306\307#\210\304	\310\307#\210\304	\311\312#\210\304	\313\307#\210\304	\314\315#\210\304	\316\317#\210\304	\320\315#\210\304	\321\322#\210\304	\323\322#\210\304\n\323\324#\210\304\323\322#\210\304\325\326#\210\304\327\330#\210\304\327\331#\210\304\332\333#\207" [ctl-x-map abbrev-map esc-map ctl-x-4-map define-key "a" "l" add-mode-abbrev "
" "g" add-global-abbrev "+" "ig" inverse-add-global-abbrev "il" inverse-add-mode-abbrev "-" "e" expand-abbrev "'" abbrev-prefix-mark "" list-buffers "\n" dired-jump dired-jump-other-window "z" repeat] 4)
#@34 Keymap for subcommands of C-x x.
(defvar ctl-x-x-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\207" [make-sparse-keymap define-key "f" font-lock-update "g" revert-buffer-quick "r" rename-buffer "u" rename-uniquely "n" clone-buffer "i" insert-buffer "t" toggle-truncate-lines] 5) (#$ . 46682))
(byte-code "\305\306	#\210\305\n\307\310#\210\305\311\312#\210\305\313\314#\210\305\f\315\316#\210\305\f\317\316#\207" [ctl-x-map ctl-x-x-map esc-map ctl-x-4-map special-event-map define-key "x" "\f" reposition-window "a" add-change-log-entry-other-window "c" clone-indirect-buffer-other-window [sigusr1] ignore [sigusr2]] 4)