%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@182 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.
(defalias 'make-mode-line-mouse-map #[(mouse function) "\303 \304\305\306 \"\n#\210)\207" [map mouse function make-sparse-keymap define-key vector mode-line] 5 (#$ . 409)])
#@52 Like toggling `read-only-mode', for the mode-line.
(defalias 'mode-line-toggle-read-only #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307\310!+\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord read-only-mode toggle] 3 (#$ . 772) "e"])
#@53 Toggle the buffer-modified flag from the mode-line.
(defalias 'mode-line-toggle-modified #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307\310 ?!\210\311 +\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord set-buffer-modified-p buffer-modified-p force-mode-line-update] 3 (#$ . 1180) "e"])
#@36 Widen a buffer from the mode-line.
(defalias 'mode-line-widen #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210~\210\307 +\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord force-mode-line-update] 3 (#$ . 1641) "e"])
(defvar mode-line-input-method-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\307!)\207" [map make-sparse-keymap define-key [mode-line mouse-2] #[(e) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307 \210\310 +\207" [e save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord toggle-input-method force-mode-line-update] 3 nil "e"] [mode-line mouse-3] #[(e) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307 +\207" [e save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord describe-current-input-method] 3 nil "e"] purecopy] 4))
#@59 Local keymap for the coding-system part of the mode line.
(defvar mode-line-coding-system-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\307!)\207" [map make-sparse-keymap define-key [mode-line mouse-1] #[(e) "\304\305!\211@\262!r\306\216\307 @\310\"\210\n\205 \205 \311 !+\207" [e save-selected-window--state enable-multibyte-characters buffer-file-coding-system internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord describe-coding-system] 3 nil "e"] [mode-line mouse-3] #[(e) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307\310!+\207" [e save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord call-interactively set-buffer-file-coding-system] 3 nil "e"] purecopy] 4) (#$ . 2840))
#@65 Cycle through the various possible kinds of end-of-line styles.
(defalias 'mode-line-change-eol #[(event) "\304\305!\211@\262!r\306\216\307 @\310\"\210\311\n!\312 \313\267\202& \314\202' \315\202' \316!,\207" [event save-selected-window--state buffer-file-coding-system eol internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state 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 30 1 34)) dos mac unix] 3 (#$ . 3796) "e"])
(defvar mode-line-eol-desc-cache nil)
(defalias 'mode-line-eol-desc #[nil "\305!\306!\307 \"\211 \203 \fA@\n=\203 \fAA\202Z \f\203% \310\311\n\312\313\314 \315=\2034 \316\202I \317=\203> \320\202I \321=\203H \322\202I \323\"\324\325\326\327& \n\fBB B\f+\207" [buffer-file-coding-system eol mnemonic mode-line-eol-desc-cache desc 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] 9])
#@55 Return default help echo text for WINDOW's mode line.
(defalias 'mode-line-default-help-echo #[(window) "\306!\307 !=?\310\311\"?\206( \312 ! \306 !=\205' \313 !\206' \f?) \314 !=? \314 !=? \n\204K
\204K \204K \205\206 \n\204S
\205r \315\n\205Y \316
\205f \n\203e \317\202f \320\204p \205q \321R\205 \322\205~ \321P\205\205 \323Q-\207" [window frame line-1a mini-window resize-mini-windows line-1b 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" line-2 line-3] 4 (#$ . 5072)])
#@369 Default help text for the mode line.
If the value is a string, it specifies the tooltip or echo area
message to display when the mouse is moved over the mode line.
If the value is a function, call that function with one argument
- the window whose mode line to display. If the text at the
mouse position has a `help-echo' text property, that overrides
this variable.
(custom-declare-variable 'mode-line-default-help-echo '#'mode-line-default-help-echo '(#$ . 5805) :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)
#@210 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) " " "-")) (#$ . 6521))
(put 'mode-line-front-space 'risky-local-variable t)
#@60 Return help text specifying WINDOW's buffer coding system.
(defalias 'mode-line-mule-info-help-echo #[(window _object _point) "r\303!q\210 \203 \304\305\n\203 \306\202 \307\310 !#\202 \311)\207" [window 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"] 5 (#$ . 6874)])
#@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) (#$ . 7348))
(byte-code "\300\301\302\303#\210\304\301!\207" [put mode-line-mule-info risky-local-variable t make-variable-buffer-local] 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) (#$ . 8388))
(put 'mode-line-client 'risky-local-variable t)
#@63 Return help text specifying WINDOW's buffer read-only status.
(defalias 'mode-line-read-only-help-echo #[(window _object _point) "\301\302\303\304\305!\"\203 \306\202 \307\"\207" [window format "Buffer is %s\nmouse-1: Toggle" buffer-local-value buffer-read-only window-buffer "read-only" "writable"] 6 (#$ . 8700)])
#@66 Return help text specifying WINDOW's buffer modification status.
(defalias 'mode-line-modified-help-echo #[(window _object _point) "\301\302\303\304!!\203 \305\202 \306\"\207" [window format "Buffer is %smodified\nmouse-1: Toggle modification state" buffer-modified-p window-buffer "" "not "] 5 (#$ . 9025)])
#@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) (#$ . 9343))
(byte-code "\300\301\302\303#\210\304\301!\207" [put mode-line-modified risky-local-variable t make-variable-buffer-local] 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 #[(window _object _point) "\303\304\305!r\306\216\307 @\310\"\210\n;\203$ \311\n!\203 \312\202 \313\nP\202% \314+\"\207" [window save-selected-window--state default-directory format "%s" internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord file-remote-p "Current directory is remote: " "Current directory is local: " "Current directory is nil"] 5]] 7) (#$ . 9937))
(byte-code "\300\301\302\303#\210\304\301!\207" [put mode-line-remote risky-local-variable t make-variable-buffer-local] 4)
#@118 Compute mode line construct for frame identification.
Value is used for `mode-line-frame-identification', which see.
(defalias 'mode-line-frame-control #[nil "\203\n \301=\203\f \302\207\303\207" [window-system pc "-%F " " "] 2 (#$ . 10725)])
#@52 Mode line construct to describe the current frame.
(defvar mode-line-frame-identification '(:eval (mode-line-frame-control)) (#$ . 10978))
(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 (#$ . 11186))
(byte-code "\300\301\302\303#\210\304\301!\207" [put mode-line-process risky-local-variable t make-variable-buffer-local] 4)
#@207 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.
(defalias 'bindings--define-key #[(map key item) "\303 \n:\204\f \n\202b \304\n!\203 \n\202b \n@;\2033 \304\nA!\203- \305\n@!\nAB\202b \305\n!\202b \n@\306=\203\\ \304\307\n8!\203V \306\305\nA@!\307\n8\305\310\n\233!BBB\202b \305\n!\202b \311\312\n\"\210\n#\207" [map key item define-key keymapp purecopy menu-item 2 3 message "non-menu-item: %S"] 9 (#$ . 11487)])
(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") (#$ . 12167))
#@34 Keymap to display on major mode.
(defvar mode-line-major-mode-keymap (byte-code "\302 \303\304\305\306\307\310\311\257#\210\312\313\314#\210\312\315 #\210)\207" [map mode-line-mode-menu make-sparse-keymap bindings--define-key [mode-line down-mouse-1] menu-item "Menu Bar" ignore :filter #[(_) "\300 \207" [mouse-menu-major-mode-map] 1] define-key [mode-line mouse-2] describe-mode [mode-line down-mouse-3]] 8) (#$ . 12292))
#@35 Keymap to display on minor modes.
(defvar mode-line-minor-mode-keymap (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310 #\210\303\311 #\210)\207" [map mode-line-mode-menu make-sparse-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]] 4) (#$ . 12728))
#@59 Mode line construct for displaying major and minor modes.
(defvar mode-line-modes (byte-code "\303\304\305\306#\307\310\311\306\312\313\314\315 \257\316\310\317\313\314\306\320\315\n\257\304\321\306\322\313\314\315\323\324\325\"&\326\304\327\306#\330\257 )\207" [recursive-edit-help-echo mode-line-major-mode-keymap mode-line-minor-mode-keymap "Recursive edit, type C-M-c to get out" propertize "%[" help-echo "(" :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) (#$ . 13114))
(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 "\302 \302\303!\304\305\306#\210\304\307\310#\210\304\311\312#\210\313 \314#\210 *\207" [menu-map map 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]] 4) (#$ . 14053))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\310\311\306\307& \210\316\312\317\302#\207" [custom-declare-variable column-number-indicator-zero-based t "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" mode-line-percent-position '(-3 "%p") "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] 10)
#@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 "\301\302\303\304BBBB\305\306\307\310\303\311\312\313\314&DD\315\316\317\320\307\321\303\311\312\313\322&D\320\307\323\303\311\312\313\322&DE\324\307\325\303\311\312\313\326&DEC\316\317\327\307\330\303\311\312\313\331&D\327\307\332\303\311\312\313\331&DEDCEE\207" [mode-line-column-line-number-mode-map :propertize mode-line-percent-position local-map (mouse-face mode-line-highlight help-echo "Size indication mode\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 " (%l,%c)" "Line number and Column number\nmouse-1: Display Line and Column Mode Menu" " (%l,%C)" 6 " L%l" "Line Number\nmouse-1: Display Line and Column Mode Menu" 5 " C%c" "Column number\nmouse-1: Display Line and Column Mode Menu" " C%C"] 16) (#$ . 16094))
(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 "\301 \302\303\304#\210\302\305\306#\210\302\307\304#\210\302\310\311#\210\302\312\306#\210\302\313\311#\210)\207" [map 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]] 4) (#$ . 17324))
#@183 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.
(defalias 'propertized-buffer-identification #[(fmt) "\302\303\304\305\306\307!\310\311\312 & C\207" [fmt 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] 10 (#$ . 17825)])
#@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") (#$ . 18337))
(byte-code "\300\301\302\303#\210\304\301!\207" [put mode-line-buffer-identification risky-local-variable t make-variable-buffer-local] 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 " "))) (#$ . 18801))
(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) "-%-")) (#$ . 19077))
(byte-code "\301\302\303\304#\210\305\306\307\310\311\312\313\314\315\316\317\320\321\322\302\257\323\324\"\210\301\324\325\326DC#\210)\301\207" [standard-mode-line-format 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)
#@38 Call `unbury-buffer' in this window.
(defalias 'mode-line-unbury-buffer #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307 +\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord unbury-buffer] 3 (#$ . 19752) "e"])
#@60 Like `bury-buffer', but temporarily select EVENT's window.
(defalias 'mode-line-bury-buffer #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307 +\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord bury-buffer] 3 (#$ . 20133) "e"])
#@73 Switch to the most recently selected buffer other than the current one.
(defalias 'mode-line-other-buffer #[nil "\300\301 \302\303#\207" [switch-to-buffer other-buffer nil t] 4 (#$ . 20532) nil])
#@60 Like `next-buffer', but temporarily select EVENT's window.
(defalias 'mode-line-next-buffer #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307 +\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord next-buffer] 3 (#$ . 20734) "e"])
#@64 Like `previous-buffer', but temporarily select EVENT's window.
(defalias 'mode-line-previous-buffer #[(event) "\302\303!\211@\262!r\304\216\305 @\306\"\210\307 +\207" [event save-selected-window--state internal--before-with-selected-window event-start #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord previous-buffer] 3 (#$ . 21133) "e"])
#@58 Return the value of symbol VAR if it is bound, else nil.
(defalias 'bound-and-true-p '(macro . #[(var) "\301\302\303DDE\207" [var and boundp quote] 4 (#$ . 21544)]))
(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)
#@69 Describe minor mode for EVENT on minor modes area of the mode line.
(defalias 'mode-line-minor-mode-help #[(event) "\302A@8@\303 !)\207" [event indicator 4 describe-minor-mode-from-indicator] 2 (#$ . 23754) "@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) (#$ . 23976))
(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 (#$ . 24212))
(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 #[(sym) "\301\302\303#\207" [sym put permanent-local t] 4] (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)
#@271 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.
(defalias 'complete-symbol #[(arg) "\203 \301 \207\302 \207" [arg info-complete-symbol completion-at-point] 1 (#$ . 26546) "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\327\330\331\332\333\334& \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 nil "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)
#@450 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.
(defalias 'right-char #[(&optional n) "\2035 \247\203 \304 !\202 \305\306\n W\2053 \307 \247\203) \306W\203) \310\202* \305!\210\nT\211\202 *\207\311 \312=\203? u\207 \206D \305[u\207" [visual-order-cursor-movement n i --dotimes-limit-- abs 1 0 move-point-visually -1 current-bidi-paragraph-direction left-to-right] 4 (#$ . 28179) "^p"])
#@449 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.
(defalias 'left-char #[(&optional n) "\2035 \247\203 \304 !\202 \305\306\n W\2053 \307 \247\203) \306W\203) \305\202* \310!\210\nT\211\202 *\207\311 \312=\203D \206A \305[u\207 u\207" [visual-order-cursor-movement n i --dotimes-limit-- abs 1 0 move-point-visually -1 current-bidi-paragraph-direction left-to-right] 4 (#$ . 28983) "^p"])
#@443 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.
(defalias 'right-word #[(&optional n) "\301 \302=\203\n v\207\206 \303[v\207" [n current-bidi-paragraph-direction left-to-right 1] 2 (#$ . 29785) "^p"])
#@443 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.
(defalias 'left-word #[(&optional n) "\301 \302=\203 \206\f \303[v\207v\207" [n current-bidi-paragraph-direction left-to-right 1] 2 (#$ . 30390) "^p"])
#@32 Keymap for narrowing commands.
(defvar narrow-map (make-sparse-keymap) (#$ . 30993))
(byte-code "\306\307 #\210\306 \307\310#\210\306 \311\312#\210\306\n\313\314#\210\306\n\315\316#\210\317\320\321\n#\210\306\n\322\323#\210\306\n\324\325#\210\306 \324\326#\210\306\n\327\330#\210\306 \331\332#\210\306 \333\334#\210\306 \335\336#\210\306\324\337#\210\306 \340\341#\210\306 \342\343#\210\306 \344\345#\210\306\344\346#\210\306 \347\350#\210\306 \351\350#\210\306\352\353#\210\306\351\353#\210\306\354\355#\210\356\355\357\360#\210\306\n\361\355#\210\306\n\362\355#\210\306 \363\364#\210\306 \365\366#\210\306 \367\370#\210\306\371\372#\210\306\373\372#\210\306\n\374\372#\210\356\372\357\375#\210\306\376\377#\210\306\201A \377#\210\306\n\201B \377#\210\356\377\357\201C #\210\f \306
\201D \201E #\210\306
\201F \201E #\210\306
\201G \201H #\210\306
\201I \201E #\210\306
\201J \201K #\210\306
\201L \201K #\210\306
\201M \201N #\210\306
\201O \201K #\210\306
\201P \201Q #\210\306
\201R \201S #\210\306
\201T \201U #\210\306
\201V \201W #\210)\306\n\201X \201Y #\210\201Z \211 @\201[ X\203\214\306 \201\\ @!\201] #\210@T\211@\202o)\306 \201^ \201_ #\210\201Z \211 @\201[ X\203\301\306\n\201` \201a \201b @\"!\201] #\210@T\211@\202\235)\306\n\201c \201_ #\210\201Z \211 @\201[ X\203\366\306 \201` \201a \201b @\"!\201] #\210@T\211@\202\322)\306\n\201d \201_ #\210\306\n\201e \201f #\210\306\n\201g \201h #\210\306\n\201i \201j #\210\306\n\201k \201l #\210\306 \311\201m #\210\306 \201k \201n #\210\306\n\201o \201p #\210\306 \201q \201r #\210\306\n\201s \201t #\210\306\n\201u \201t #\210\356\201t \357\201v #\210\306\201w \201x #\210\306\201s \201y #\210\306\340\201z #\210\306\201{ \201y #\210\306\n\201| \201} #\210\306\n\201~ \201 #\210\306\201| \201\200 #\210\306\n\201\201 \201\202 #\210\306\n\201\203 \201\204 #\210\306\201\205 \201\206 #\207" [ctl-x-map narrow-map global-map esc-map minibuffer-local-map map define-key "n" narrow-to-region "w" widen "" 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] " " "!" shell-command "|" shell-command-on-region "&" async-shell-command [right] next-buffer [C-right] [XF86Forward] [24 right] [left] previous-buffer i [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 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)
#@33 Keymap for navigation commands.
(defvar goto-map (make-sparse-keymap) (#$ . 34402))
(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) (#$ . 34800))
(byte-code "\306\307 #\210\306 \310\311#\210\306 \312\313#\210\306 \314\315#\210\306 \316\317#\210\306 \320\321#\210\306 \322\323#\210\306 \324\325#\210\306 \326\327#\210\306 \330\331#\210\332\315\333\334#\210\332\317\333\335#\210\332\321\333\336#\210\332\323\333\337#\210\332\325\333\340#\210\332\327\333\341#\210\332\331\333\342#\210\306\n\343\344#\210\306\n\345\346#\210\306\n\347\350#\210\306\n\351\352#\210\306\n\353\354#\210\306\n\355\356#\210\306\n\357\360#\210\306\361\360#\210\306\n\362\363#\210\306\n\364\365#\210\306\n\366\367#\210\306\n\370\371#\210\306\n\372\373#\210\306\n\374\375#\210\306\n\376\377#\210\306\n\201F \201G #\210\306\n\201H \201I #\210\332\201J \201K \201L #\210\306\n\201M \201J #\210\306\n\201N \201O #\210\306\201P \201O #\210\306\n\201Q \201R #\210\306\201S \201R #\210\306\201T \201R #\210\306\n\201U \201V #\210\306\n\201W \201X #\210\306\n\201Y \201Z #\210\306\201[ \201Z #\210\306\n\201\\ \356#\210\306\n\201] \360#\210\306\201^ \360#\210\306\n\201_ \344#\210\306\n\201` \201a #\210\306\n\201b \201c #\210\306\n\201d \201e #\210\306\n\201f \201a #\210\306\n\201g \201c #\210\306\n\201h \201e #\210\306\n\201i \201j #\210\306\n\201k \201l #\210\306\n\201m \201l #\210\306\n\201n \201o #\210\306\n\201p \201q #\210\306\n\201r \201s #\210\306\n\201t \201u #\210\201v \201w \201x \211 @\203\\@@\211@
A@ A B\201y A!\203\332B\201z A#\210\f\201x C\211 @\203R@@C\306D\201{ \201| CBC\"!\201{ \201| CAC\"!#\210@A\211@\204%,@A\211@\204\371,\306D\201} \201~ #\210\306D\201 \201\200 #\210\306D\201\201 \201\202 #\210\306D\201\203 \201\204 #\210\306D\201\205 \201\206 #\210\306\n\201\207 \201\210 #\210\306\n\201\211 \201\212 #\210\306\201\213 \201\214 #\210\306\201\211 \201\215 #\210\306E\201\211 \201\216 #\210\306\201\217 \201\220 #\210\306\201\221 \201\222 #\210\306\201\223 \201\222 #\210\306E\201\217 \201\224 #\210\306E\201\225 \201\226 #\210\306E\201\227 \201\230 #\210\306E\201\231 \201\232 #\210\306\201\233 \201\234 #\210\306\201\227 \201\235 #\210\306\201\236 \201\237 #\210\306\201\240 \201\241 #\210\306\201\242 \201\243 #\210\306\201\244 \356#\210\306\201\245 \201X #\210\306E\201\246 \201\247 #\210\306\201\250 \201\251 #\210\201\252 \201\253 \201\254 \"\207" [esc-map search-map global-map keys modifiers pair 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 --dolist-tail-- normal keypad mod function-key-map ctl-x-map [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)) nil 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] 8)
#@38 Keymap for characters following C-c.
(defvar mode-specific-map (symbol-function 'mode-specific-command-prefix) (#$ . 39639))
(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 "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\324#\210\302\326\324#\210\302\327\330#\210\302\331\332#\210\302\333\332#\210\302\334\335#\210\302\336\335#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210)\207" [map 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] 4) (#$ . 41400))
(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#\210\303\333\334#\210\303\335\336#\210\303\337\340#\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 "" mark-page "l" count-lines-page "np" narrow-to-page] 4)
#@29 Keymap for abbrev commands.
(defvar abbrev-map (make-sparse-keymap) (#$ . 42957))
(byte-code "\305\306 #\210\305 \307\310#\210\305 \311\310#\210\305 \312\313#\210\305 \314\310#\210\305 \315\316#\210\305 \317\320#\210\305 \321\316#\210\305 \322\323#\210\305 \324\323#\210\305\n\324\325#\210\305\324\323#\210\305\326\327#\210\305\330\331#\210\305\n\332\333#\210\305 \306\334#\210\305 \335\336#\210\305\f\337\340#\210\305\f\341\340#\207" [ctl-x-map abbrev-map esc-map ctl-x-4-map special-event-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 "z" repeat "\f" reposition-window add-change-log-entry-other-window "c" clone-indirect-buffer-other-window [sigusr1] ignore [sigusr2]] 4)
Zerion Mini Shell 1.0