Current File : //usr/local/share/emacs/27.2/lisp/simple.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable idle-update-delay funcall function #[0 "\300\207" [0.5] 1] "Idle time delay before updating various things on the screen.\nVarious Emacs features that update auxiliary information when point moves\nwait this many seconds after Emacs becomes idle before doing an update." :type number :group display :version "22.1"] 10)
#@376 The maximum number of changes to possibly amalgamate when undoing changes.
The `undo' command will normally consider "similar" changes
(like inserting characters) to be part of the same change. This
is called "amalgamating" the changes. This variable says what
the maximum number of changes considered is when amalgamating. A
value of 1 means that nothing is amalgamated.
(defvar amalgamating-undo-limit 20 (#$ . 824))
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\311\302\312\304\313\314\315&\210\316\311\317\320\304\311\314\315&\210\321\322\323\324\325DD\326\327\330\304\311\314\315& \210\321\331\323\324\332DD\333\327\334\304\311\314\315& \210\321\335\323\324\336DD\337\327\340\304\311\314\341& \210\321\342\323\324\343DD\344\327\345\304\311&\210\321\346\323\324\347DD\350\304\311\327\351\352\353\314\354& \207" [custom-declare-group killing nil "Killing and yanking commands." :group editing paren-matching "Highlight (un)matching of parens and expressions." matching next-error "`next-error' support framework." compilation :version "22.1" custom-declare-face ((t (:inherit region))) "Face used to highlight next error locus." custom-declare-variable next-error-highlight funcall function #[0 "\300\207" [0.5] 1] "Highlighting of locations in the selected buffer.\nIf a number, highlight the locus in `next-error' face for the given time\nin seconds, or until the next command is executed.\nIf t, highlight the locus until the next command is executed, or until\nsome other locus replaces it.\nIf nil, don't highlight the locus in the source buffer.\nIf `fringe-arrow', indicate the locus by the fringe arrow\nindefinitely until some other locus replaces it.\nSee `next-error-highlight-no-select' to customize highlighting\nof the locus in non-selected buffers." :type (choice (number :tag "Highlight for specified time") (const :tag "Semipermanent highlighting" t) (const :tag "No highlighting" nil) (const :tag "Fringe arrow" fringe-arrow)) next-error-highlight-no-select #[0 "\300\207" [0.5] 1] "Highlighting of locations in non-selected source buffers.\nUsually non-selected buffers are displayed by `next-error-no-select'.\nIf number, highlight the locus in `next-error' face for given time in seconds.\nIf t, highlight the locus indefinitely until some other locus replaces it.\nIf nil, don't highlight the locus in the source buffer.\nIf `fringe-arrow', indicate the locus by the fringe arrow\nindefinitely until some other locus replaces it.\nSee `next-error-highlight' to customize highlighting of the locus\nin the selected buffer." (choice (number :tag "Highlight for specified time") (const :tag "Semipermanent highlighting" t) (const :tag "No highlighting" nil) (const :tag "Fringe arrow" fringe-arrow)) next-error-recenter #[0 "\300\207" [nil] 1] "Display the line in the visited source file recentered as specified.\nIf non-nil, the value is passed directly to `recenter'." (choice (integer :tag "Line to recenter to") (const :tag "Center of window" (4)) (const :tag "No recentering" nil)) "23.1" next-error-hook #[0 "\300\207" [nil] 1] "List of hook functions run by `next-error' after visiting source file." hook next-error-verbose #[0 "\300\207" [t] 1] "If non-nil, `next-error' always outputs the current error buffer.\nIf nil, the message is output only when the error buffer\nchanges." boolean :safe booleanp "27.1"] 12)
(defvar next-error-highlight-timer nil)
(defvar next-error-overlay-arrow-position nil)
(byte-code "\300\301\302\303\304!#\210\305\306\301\"\207" [put next-error-overlay-arrow-position overlay-arrow-string purecopy "=>" add-to-list overlay-arrow-variable-list] 5)
#@187 The most recent `next-error' buffer.
A buffer becomes most recent when its compilation, grep, or
similar mode is started, or when it is used with \[next-error]
or \[compile-goto-error].
(defvar next-error-last-buffer nil (#$ . 4476))
#@64 The buffer-local value of the most recent `next-error' buffer.
(defvar next-error-buffer nil (#$ . 4716))
(make-variable-buffer-local 'next-error-buffer)
#@423 Function to use to find the next error in the current buffer.
The function is called with 2 parameters:
ARG is an integer specifying by how many errors to move.
RESET is a boolean which, if non-nil, says to go back to the beginning
of the errors before moving.
Major modes providing compile-like functionality should set this variable
to indicate to `next-error' that this is a candidate buffer and how
to navigate in it.
(defvar next-error-function nil (#$ . 4877))
(make-variable-buffer-local 'next-error-function)
#@273 Function to use to move to an error locus.
It takes two arguments, a buffer position in the error buffer
and a buffer position in the error locus buffer.
The buffer for the error locus should already be current.
nil means use goto-char using the second argument position.
(defvar next-error-move-function nil (#$ . 5401))
(make-variable-buffer-local 'next-error-move-function)
#@585 Return non-nil if BUFFER is a `next-error' capable buffer.
If AVOID-CURRENT is non-nil, and BUFFER is the current buffer,
return nil.
The function EXTRA-TEST-INCLUSIVE, if non-nil, is called if
BUFFER would not normally qualify. If it returns non-nil, BUFFER
is considered `next-error' capable, anyway, and the function
returns non-nil.
The function EXTRA-TEST-EXCLUSIVE, if non-nil, is called if the
buffer would normally qualify. If it returns nil, BUFFER is
rejected, and the function returns nil.
(fn BUFFER &optional AVOID-CURRENT EXTRA-TEST-INCLUSIVE EXTRA-TEST-EXCLUSIVE)
(defalias 'next-error-buffer-p #[1025 "\301!\205- \205
p=?\205- rq\210\203& \211\203\" \211 \202, \302\202, \205, )\207" [next-error-function buffer-name t] 6 (#$ . 5785)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \210\304\320\306\307\321DD\322\312\323\314\315\316\317& \207" [put next-error-buffer-p byte-optimizer byte-compile-inline-expand custom-declare-variable next-error-find-buffer-function funcall function #[0 "\300\207" [next-error-buffer-unnavigated-current] 1] "Function called to find a `next-error' capable buffer.\nThis functions takes the same three arguments as the function\n`next-error-find-buffer', and should return the buffer to be\nused by the subsequent invocation of the command `next-error'\nand `previous-error'.\nIf the function returns nil, `next-error-find-buffer' will\ntry to use the buffer it used previously, and failing that\nall other buffers." :type (choice (const :tag "No default" ignore) (const :tag "Single next-error capable buffer on selected frame" next-error-buffer-on-selected-frame) (const :tag "Current buffer if next-error capable and outside navigation" next-error-buffer-unnavigated-current) (function :tag "Other function")) :group next-error :version "27.1" next-error-found-function #[0 "\300\207" [ignore] 1] "Function called when a next locus is found and displayed.\nFunction is called with two arguments: a FROM-BUFFER buffer\nfrom which next-error navigated, and a target buffer TO-BUFFER." (choice (const :tag "No default" ignore) (function :tag "Other function"))] 10)
#@138 Return a single visible next-error buffer on the selected frame.
(fn &optional AVOID-CURRENT EXTRA-TEST-INCLUSIVE EXTRA-TEST-EXCLUSIVE)
(defalias 'next-error-buffer-on-selected-frame #[768 "\300\301\302\303\304\305\306\307\310\n\n\"\311\"\312\313%\314 \"\"!\211G\315=\205! \211@\207" [delete-dups delq nil mapcar make-byte-code 257 "\303!\304\300\301\305!\2053 \205 p=?\2053 rq\210\n\203, \211\203( \211 \2022 \304\2022 \2052 )\266\204\205; \303!\207" vconcat vector [next-error-function window-buffer t buffer-name] 7 "\n\n(fn W)" window-list 1] 14 (#$ . 7960)])
#@262 Try the current buffer when outside navigation.
But return nil if we navigated to the current buffer by the means
of `next-error' command. Otherwise, return it if it's next-error
capable.
(fn &optional AVOID-CURRENT EXTRA-TEST-INCLUSIVE EXTRA-TEST-EXCLUSIVE)
(defalias 'next-error-buffer-unnavigated-current #[768 "\301\302!?\205> p\303!\2058 \205 p=?\2058 rq\210\2031 \211\203- \211 \2027 \304\2027 \2057 )\266\204\205> p\207" [next-error-function local-variable-p next-error-buffer buffer-name t] 9 (#$ . 8544)])
#@528 Return a `next-error' capable buffer.
If AVOID-CURRENT is non-nil, treat the current buffer
as an absolute last resort only.
The function EXTRA-TEST-INCLUSIVE, if non-nil, is called in each buffer
that normally would not qualify. If it returns t, the buffer
in question is treated as usable.
The function EXTRA-TEST-EXCLUSIVE, if non-nil, is called in each buffer
that would normally be considered usable. If it returns nil,
that buffer is rejected.
(fn &optional AVOID-CURRENT EXTRA-TEST-INCLUSIVE EXTRA-TEST-EXCLUSIVE)
(defalias 'next-error-find-buffer #[768 "#\206 \203F \303!\205= \205 p=?\205= rq\210\n\2036 \211\2032 \211 \202< \304\202< \205< )\266\204\203F \206p\303!\205w \205W p=?\205w rq\210\n\203p \211\203l \211 \202v \304\202v \205v )\266\204\203\200 p\206\305 \211\203\304 \211@\303!\205\270 \205\230 p=?\205\270 rq\210\n\203\261 \211\203\255 \211 \202\267 \304\202\267 \205\267 )\266\204\204\304 \211A\262\202\202 \211@\262\206\203
p\306\303!\205 \205\340 p=?\205 rq\210\n\203\371 \211\203\365 \211 \202\377 \304\202\377 \205\377 )\266\204\203
\307\310!\210p\206\311\312!\207" [next-error-find-buffer-function next-error-last-buffer next-error-function buffer-name t buffer-list nil message "This is the only buffer with error message locations" error "No buffers contain error message locations"] 10 (#$ . 9080)])
#@1393 Visit next `next-error' message and corresponding source code.
If all the error messages parsed so far have been processed already,
the message buffer is checked for new ones.
A prefix ARG specifies how many error messages to move;
negative means move back to previous error messages.
Just \[universal-argument] as a prefix means reparse the error message buffer
and start at the first error.
The RESET argument specifies that we should restart from the beginning.
\[next-error] normally uses the most recently started
compilation, grep, or occur buffer. It can also operate on any
buffer with output from the \[compile], \[grep] commands, or,
more generally, on any buffer in Compilation mode or with
Compilation Minor mode enabled, or any buffer in which
`next-error-function' is bound to an appropriate function.
To specify use of a particular buffer for error messages, type
\[next-error] in that buffer. You can also use the command
`next-error-select-buffer' to select the buffer to use for the subsequent
invocation of `next-error'.
Once \[next-error] has chosen the buffer for error messages, it
runs `next-error-hook' with `run-hooks', and stays with that buffer
until you use it in some other buffer that uses Compilation mode
or Compilation Minor mode.
To control which errors are matched, customize the variable
`compilation-error-regexp-alist'.
(fn &optional ARG RESET)
(defalias 'next-error #[512 ":\203 \303\262\304\262\305 \211\205W r\211q\210\306!\"\210 \307p\"\210\n\204- \211 =?\205T \310\311\2037 \312\202R \306!\313=\203D \314\202R \306!\313W\203Q \315\202R \316 #\262)\207" [next-error-function next-error-last-buffer next-error-verbose t nil next-error-find-buffer prefix-numeric-value next-error-found message "%s locus from %s" "First" 0 "Current" "Previous" "Next"] 8 (#$ . 10488) "P"])
#@75 Visit the source code corresponding to the `next-error' message at point.
(defalias 'next-error-internal #[0 "p\303\304\"\210 \305p\"\210\n\204 \211 =?\205 \306\307 \"\262\207" [next-error-function next-error-last-buffer next-error-verbose 0 nil next-error-found message "Current locus from %s"] 5 (#$ . 12330)])
#@191 Function to call when the next locus is found and displayed.
FROM-BUFFER is a buffer from which next-error navigated,
and TO-BUFFER is a target buffer.
(fn &optional FROM-BUFFER TO-BUFFER)
(defalias 'next-error-found #[512 "\206 p\211\203 r\211q\210)\n\203 \304\n!\210 \"\210\305\306!\207" [next-error-last-buffer next-error-buffer next-error-recenter next-error-found-function recenter run-hooks next-error-hook] 5 (#$ . 12655)])
#@344 Select a `next-error' capable BUFFER and set it as the last used.
This means that the selected buffer becomes the source of locations
for the subsequent invocation of `next-error' or `previous-error'.
Interactively, this command allows selection only among buffers
where `next-error-function' is bound to an appropriate function.
(fn BUFFER)
(defalias 'next-error-select-buffer #[257 "\211\211\207" [next-error-last-buffer] 3 (#$ . 13103) (byte-code "\300\301\302\303\211\304$!C\207" [get-buffer read-buffer "Select next-error buffer: " nil #[257 "\211A\301\211\211\302!\2052 \205 p=?\2052 rq\210\203+ \211\203' \211 \2021 \303\2021 \2051 )\207" [next-error-function nil buffer-name t] 7 "\n\n(fn B)"]] 6)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias goto-next-locus next-error next-match] 3)
#@281 Visit previous `next-error' message and corresponding source code.
Prefix arg N says how many error messages to move backwards (or
forwards, if negative).
This operates on the output from the \[compile] and \[grep] commands.
See `next-error' for the details.
(fn &optional N)
(defalias 'previous-error #[256 "\300\206 \301[!\207" [next-error 1] 3 (#$ . 13931) "p"])
#@210 Restart at the first error.
Visit corresponding source code.
With prefix arg N, visit the source code of the Nth error.
This operates on the output from the \[compile] command, for instance.
(fn &optional N)
(defalias 'first-error #[256 "\300\301\"\207" [next-error t] 4 (#$ . 14310) "p"])
#@280 Move point to the next error in the `next-error' buffer and highlight match.
Prefix arg N says how many error messages to move forwards (or
backwards, if negative).
Finds and highlights the source line like \[next-error], but does not
select the source buffer.
(fn &optional N)
(defalias 'next-error-no-select #[256 "\303 r\304\305\306\307\310!\311\"\312$\216\313\314!,\207" [next-error-highlight-no-select display-buffer-overriding-action next-error-highlight internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 (nil (inhibit-same-window . t)) next-error] 8 (#$ . 14609) "p"])
#@288 Move point to the previous error in the `next-error' buffer and highlight match.
Prefix arg N says how many error messages to move backwards (or
forwards, if negative).
Finds and highlights the source line like \[previous-error], but does not
select the source buffer.
(fn &optional N)
(defalias 'previous-error-no-select #[256 "\300\206 \301[!\207" [next-error-no-select 1] 3 (#$ . 15275) "p"])
(defvar next-error-follow-last-line nil)
#@125 Non-nil if Next-Error-Follow minor mode is enabled.
Use the command `next-error-follow-minor-mode' to change this variable.
(defvar next-error-follow-minor-mode nil (#$ . 15722))
(make-variable-buffer-local 'next-error-follow-minor-mode)
#@473 Minor mode for compilation, occur and diff modes.
If called interactively, enable Next-Error-Follow minor mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
When turned on, cursor motion in the compilation, grep, occur or diff
buffer causes automatic display of the corresponding source code location.
(fn &optional ARG)
(defalias 'next-error-follow-minor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\204 \305\306\307\310#\210\202+ \311\306\307\312\310$\210\313\314!\210\315\316\2035 \317\2026 \320\"\210\321\322!\203Z \301 \203J \211\301 \232\203Z \323\324\325\203U \326\202V \327#\266\210\330 \210\207" [next-error-follow-minor-mode current-message toggle prefix-numeric-value 0 remove-hook post-command-hook next-error-follow-mode-post-command-hook t add-hook nil make-local-variable next-error-follow-last-line run-hooks next-error-follow-minor-mode-hook next-error-follow-minor-mode-on-hook next-error-follow-minor-mode-off-hook called-interactively-p any " in current buffer" message "Next-Error-Follow minor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 15967) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar next-error-follow-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [next-error-follow-minor-mode-map next-error-follow-minor-mode-hook variable-documentation put "Hook run after entering or leaving `next-error-follow-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode next-error-follow-minor-mode " Fol" boundp nil] 6)
(defalias 'next-error-follow-mode-post-command-hook #[0 "\303 \232?\205 \303 \3041 \305`\306\307!)0\207\210\310\207" [next-error-follow-last-line compilation-context-lines compilation-current-error line-number-at-pos (error) nil next-error-no-select 0 t] 2])
#@115 Major mode not specialized for anything in particular.
Other major modes are defined by comparison with this one.
(defalias 'fundamental-mode #[0 "\300 \210\301 \207" [kill-all-local-variables run-mode-hooks] 1 (#$ . 18045) nil])
(defvar special-mode-map (byte-code "\300 \301!\210\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\313#\210\302\314\313#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\211\207" [make-sparse-keymap suppress-keymap define-key "q" quit-window " " scroll-up-command [33554464] scroll-down-command "" "?" describe-mode "h" ">" end-of-buffer "<" beginning-of-buffer "g" revert-buffer] 5))
(put 'special-mode 'mode-class 'special)
(defvar special-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [special-mode-hook variable-documentation put "Hook run after entering Special mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp special-mode-map definition-name special-mode] 4)
(defvar special-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [special-mode-abbrev-table special-mode-map variable-documentation put purecopy "Keymap for `special-mode'." boundp special-mode-syntax-table definition-name special-mode (lambda (#1=#:def-tmp-var) (defvar special-mode-syntax-table #1#)) make-syntax-table "Syntax table for `special-mode'." (lambda (#1#) (defvar special-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `special-mode'." derived-mode-parent] 5)
#@319 Parent major mode from which special major modes should inherit.
A special major mode is intended to view specially formatted data
rather than files. These modes usually use read-only buffers.
This mode runs the hook `special-mode-hook', as the final or penultimate step
during initialization.
\{special-mode-map}
(defalias 'special-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\307)\315\316!\207" [delay-mode-hooks major-mode mode-name special-mode-map special-mode-syntax-table special-mode-abbrev-table make-local-variable t kill-all-local-variables special-mode "Special" use-local-map set-syntax-table run-mode-hooks special-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 19897) nil])
#@813 Special hook to tell if `self-insert-command' will use the region.
It must be called via `run-hook-with-args-until-success' with no arguments.
If any function on this hook returns a non-nil value, `delete-selection-mode'
will act on that value (see `delete-selection-helper') and will
usually delete the region. If all the functions on this hook return
nil, it is an indiction that `self-insert-command' needs the region
untouched by `delete-selection-mode' and will itself do whatever is
appropriate with the region.
Any function on `post-self-insert-hook' that acts on the region should
add a function to this hook so that `delete-selection-mode' could
refrain from deleting the region before the `post-self-insert-hook'
functions are called.
This hook is run by `delete-selection-uses-region-p', which see.
(defvar self-insert-uses-region-functions nil (#$ . 20634))
#@59 Propertized string representing a hard newline character.
(defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard)) (#$ . 21512))
#@630 Insert a newline, and move to left margin of the new line if it's blank.
With prefix argument ARG, insert that many newlines.
If `electric-indent-mode' is enabled, this indents the final new line
that it adds, and reindents the preceding line. To just insert
a newline, use \[electric-indent-just-newline].
If `auto-fill-mode' is enabled, this may cause automatic line
breaking of the preceding line. A non-nil ARG inhibits this.
If `use-hard-newlines' is enabled, the newline is marked with the
text-property `hard'.
A non-nil INTERACTIVE argument means to run the `post-self-insert-hook'.
(fn &optional ARG INTERACTIVE)
(defalias 'newline #[512 "\304 \210n\205\n \305!`\306?\205 \n\307!\310\311\312\313\314#\315\"\316$\2046 \211C\317!\210)\202N \310\311\320\313\314!\321\"\322$\216\323\303\324\325$\210\317!\210)*\266\324\207" [page-delimiter last-command-event auto-fill-function post-self-insert-hook barf-if-buffer-read-only looking-at 10 prefix-numeric-value make-byte-code 0 " \203 \304`\302Z`\"\210\212\301b\210\305 \210\306\307!\203$ \310 \311V\203$ `\312 |\210)\300\206- \313\314\315\"\207" vconcat vector [use-hard-newlines set-hard-newline-properties beginning-of-line looking-at "[ ]$" current-left-margin 0 line-end-position move-to-left-margin nil t] 3 self-insert-command "\301\302\300\303#\207" [remove-hook post-self-insert-hook t] 4 add-hook nil t] 13 (#$ . 21662) "*P\np"])
#@16
(fn FROM TO)
(defalias 'set-hard-newline-properties #[514 "\300\301\"\302\303\304$\210\211<\205 \303>?\205 \302`\301\303B$\207" [get-text-property rear-nonsticky put-text-property hard t] 9 (#$ . 23090)])
#@197 Insert a newline and leave point before it.
If there is a fill prefix and/or a `left-margin', insert them on
the new line if the line would have been blank.
With arg N, insert N newlines.
(fn N)
(defalias 'open-line #[257 "\205 nn\205
\302 \303V\304 \305\306!\210\211b\210\303V\203< n\2032 \203* \302 j\210\2032 \307!\210\310y\210S\262\202 \211b\210\305)\207" [fill-prefix abbrev-mode current-left-margin 0 point-marker nil newline insert-and-inherit 1] 6 (#$ . 23312) "*p"])
#@291 Split current line, moving portion beyond point vertically down.
If the current line starts with `fill-prefix', insert it on the new
line as well. With prefix ARG, don't insert `fill-prefix' on new line.
When called from Lisp code, ARG may be a prefix string to copy.
(fn &optional ARG)
(defalias 'split-line #[256 "\301\302w\210i`;\203 \202 \203 \302\202 \211\205& \212\303 \210\304\305!!)\306\307!\210\211\2032 \310!\210\311\312\"\210b\207" [fill-prefix " " nil beginning-of-line looking-at regexp-quote newline 1 insert-and-inherit indent-to 0] 8 (#$ . 23809) "*P"])
#@446 Join this line to previous and fix up whitespace at join.
If there is a fill prefix, delete it from the beginning of this
line.
With prefix ARG, join the current line to the following line.
When BEG and END are non-nil, join all lines in the region they
define. Interactively, BEG and END are, respectively, the start
and end of the region if it is active, else nil. (The region is
ignored if prefix ARG is given.)
(fn &optional ARG BEG END)
(defalias 'delete-indentation #[768 "\302\203 \204 b\203- \211\303 V\203- \211b\210\202- \304\205\" \305!S\262\203- \306y\210 G\307V\2057 \310 !\304 V\205c \307y\205c h\311U\205c \312\313!\210\211\203] \314!\203] \315\316\302\211#\210\317 \210\2027 \207" [deactivate-mark fill-prefix t line-end-position line-beginning-position 2 nil 0 regexp-quote 10 delete-char -1 looking-at replace-match "" fixup-whitespace] 8 (#$ . 24402) (byte-code "\301 \210\302 \205 \303 \304 DB\207" [current-prefix-arg barf-if-buffer-read-only use-region-p region-beginning region-end] 3)])
(defalias 'join-line 'delete-indentation)
#@175 On blank line, delete all surrounding blank lines, leaving just one.
On isolated blank line, delete that one.
On nonblank line, delete any immediately following blank lines.
(defalias 'delete-blank-lines #[0 "\300\211\212\301 \210\302\303!\262\205! \302\304!?\205! o\206! \305y\210\302\303!?\262)\203E \301 \210\211\2032 \306y\210`\307\310\300\311#\203B \306y\210`\202C e|\210\203M \211\204h \212\300\210\306y\210`\312\310\300\311#\203d \301 \210`\202e d|\210)\302\313!\205q `d|\207" [nil beginning-of-line looking-at "[ ]*$" "[ ]*\n[ ]*$" -1 1 re-search-backward "[^ \n]" t re-search-forward "^[ ]*\n\\'"] 7 (#$ . 25478) "*"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable delete-trailing-lines funcall function #[0 "\300\207" [t] 1] "If non-nil, \\[delete-trailing-whitespace] deletes trailing lines.\nTrailing lines are deleted only if `delete-trailing-whitespace'\nis called on the entire buffer (rather than an active region)." :type boolean :group editing :version "24.3"] 10)
#@74 Return non-nil if the region contains no read-only text.
(fn START END)
(defalias 'region-modifiable-p #[514 "\300\301\"?\205 \211\302\301\303$=\207" [get-text-property read-only next-single-property-change nil] 8 (#$ . 26527)])
#@658 Delete trailing whitespace between START and END.
If called interactively, START and END are the start/end of the
region if the mark is active, or of the buffer's accessible
portion if the mark is inactive.
This command deletes whitespace characters after the last
non-whitespace character in each line between START and END. It
does not consider formfeed characters to be whitespace.
If this command acts on the entire buffer (i.e. if called
interactively with the mark inactive, or called from Lisp with
END nil), it also deletes all trailing lines at the end of the
buffer if the variable `delete-trailing-lines' is non-nil.
(fn &optional START END)
(defalias 'delete-trailing-whitespace #[512 "\301 \302\303\304\305\306!\307\"\310$\216\212\205 \311!\206 eb\210\312 p\302\303\313\305\306\"\314\"\315$\216\316\317\312 !!\210\320\321\322\"\210\323\324\325#\203b \326\327\330 \"\210`\303\225\331\"\203Z |\210\202] \211b\210\266\202; )\266\203q \211\332\211\223\210\202\223 \203\223 db\333 TU\203\223 \334\332x\335X\203\223 \331`Td\"\203\223 `Td|\210\210*\210\332\207" [delete-trailing-lines match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 copy-marker syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] 2 set-syntax-table make-syntax-table modify-syntax-entry 12 "_" re-search-forward "\\s-$" t skip-syntax-backward "-" line-beginning-position region-modifiable-p nil buffer-size "\n" -2] 13 (#$ . 26768) (byte-code "\300 \210\301 \203 \302 \303 D\207\304\211D\207" [barf-if-buffer-read-only use-region-p region-beginning region-end nil] 2)])
#@372 Insert a newline, then indent according to major mode.
Indentation is done using the value of `indent-line-function'.
In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this command indents to the
column specified by the function `current-left-margin'.
With ARG, perform this action that many times.
(fn &optional ARG)
(defalias 'newline-and-indent #[256 "\300\301!\210\211\204 \302\262\211\303\211W\205$ \211\304\305\301\"\210\306 \266\211T\262\202
\207" [delete-horizontal-space t 1 0 newline nil indent-according-to-mode] 7 (#$ . 28394) "*p"])
#@379 Reindent current line, insert newline, then indent the new line.
Indentation of both lines is done according to the current major mode,
which means calling the current value of `indent-line-function'.
In programming language modes, this is the same as TAB.
In some text modes, where TAB inserts a tab, this indents to the
column specified by the function `current-left-margin'.
(defalias 'reindent-then-newline-and-indent #[0 "`\300 \210\212\211b\210\301\302\"\262\303 \210\211b\210\304\302!\210)\303 \207" [newline copy-marker t indent-according-to-mode delete-horizontal-space] 4 (#$ . 29006) "*"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable read-quoted-char-radix funcall function #[0 "\300\207" [8] 1] "Radix for \\[quoted-insert] and other uses of `read-quoted-char'.\nLegitimate radix values are 8, 10 and 16." :type (choice (const 8) (const 10) (const 16)) :group editing-basics] 8)
#@487 Like `read-char', but do not allow quitting.
Also, if the first character read is an octal digit,
we read any number of octal digits and return the
specified character code. Any nondigit terminates the sequence.
If the terminator is RET, it is discarded;
any other terminator is used itself as input.
The optional argument PROMPT specifies a string to use to prompt the user.
The variable `read-quoted-char-radix' controls which radix to use
for numeric input.
(fn &optional PROMPT)
(defalias 'read-quoted-char #[256 "\306\307\306\310\311\"\"\306\312\313\306\211\204\306\314 \315\205( \316\317\n\"\312\"\262\f\2032 \306,\320!\321!\"\322!\203F \211\313H\202G \266\202\211\250\203S \323!\262\211\203\375 \211\250\204f C\"\312\262\202\375 \324\325\"\313U\204~ \326\324\327\"\330\"\262\312\262\202\375 \331X\203\251 \211\331\332#^\\W\203\251 #_\331Z\\\262\203\375 \333\334 #\262\202\375 \335\227X\203\331 \211\227\336\337#^\\W\203\331 #_\332\227\335Z\\\\\262\203\375 \333\334 #\262\202\375 \204\351 \211\340=\203\351 \312\262\202\375 \204\367 C\"\312\262\202\375 \211\262\312\262\306\262\202 )\207" [help-event-list message-log-max help-form help-char inhibit-quit quit-flag nil delq mapcar #[257 "\300!?\205 \211\207" [characterp] 3 "\n\n(fn C)"] t 0 "Type the special character you want to use,\nor the octal character code.\nRET terminates the character code and is discarded;\nany other non-digit terminates the character code and is then used as input." read-event format "%s-" lookup-key vector arrayp char-resolve-modifiers logand 134217728 logior -134217729 128 48 10 message "%s %c" 97 87 36 13 local-function-key-map unread-command-events read-quoted-char-radix] 12 (#$ . 29949)])
#@968 Read next input character and insert it.
This is useful for inserting control characters.
With argument, insert ARG copies of the character.
If the first character you type after this command is an octal digit,
you should type a sequence of octal digits that specify a character code.
Any nondigit terminates the sequence. If the terminator is a RET,
it is discarded; any other terminator is used itself as input.
The variable `read-quoted-char-radix' specifies the radix for this feature;
set it to 10 or 16 to use decimal or hex instead of octal.
In overwrite mode, this function inserts the character anyway, and
does not handle octal digits specially. This means that if you use
overwrite as your normal editing mode, you can use this function to
insert characters when necessary.
In binary overwrite mode, this function does overwrite, and octal
digits are interpreted as a character code. This is intended to be
useful for editing binary files.
(fn ARG)
(defalias 'quoted-insert #[257 "\303\211\n\203 \n\304=\203 \305 \202 \306 *\307!\204% \310\311\312\313!!\"\210\314V\2035 \n\304=\2035 \315!\210\314V\205F \316!\210S\262\2025 \207" [input-method-function translation-table-for-input overwrite-mode nil overwrite-mode-binary read-quoted-char read-char characterp user-error "%s is not a valid character" key-description vector 0 delete-char insert-and-inherit] 7 (#$ . 31712) "*p"])
#@86 Move forward ARG lines and position at first nonblank character.
(fn &optional ARG)
(defalias 'forward-to-indentation #[256 "\211\206 \300y\210\301\302w\207" [1 " " nil] 3 (#$ . 33128) "^p"])
#@87 Move backward ARG lines and position at first nonblank character.
(fn &optional ARG)
(defalias 'backward-to-indentation #[256 "\211\206 \300[y\210\301\302w\207" [1 " " nil] 3 (#$ . 33329) "^p"])
#@64 Move point to the first non-whitespace character on this line.
(defalias 'back-to-indentation #[0 "\300\301!\210\302\303\304 \"\210\305 \207" [beginning-of-line 1 skip-syntax-forward " " line-end-position backward-prefix-chars] 3 (#$ . 33533) "^"])
#@100 Fixup white space between objects around point.
Leave one space or none, according to the context.
(defalias 'fixup-whitespace #[0 "\212\300 \210\301\302!\206 \212\303u\210\301\304!)?\205 \305c)\207" [delete-horizontal-space looking-at "^\\|$\\|\\s)" -1 "$\\|\\s(\\|\\s'" 32] 2 (#$ . 33789) "*"])
#@132 Delete all spaces and tabs around point.
If BACKWARD-ONLY is non-nil, delete them only before point.
(fn &optional BACKWARD-ONLY)
(defalias 'delete-horizontal-space #[256 "`\203 \211\202 \300\301w\210\302\301\303#\300\301x\210\302\301\"|\207" [" " nil constrain-to-field t] 6 (#$ . 34095) "*P"])
#@181 Delete all spaces and tabs around point, leaving one space (or N spaces).
If N is negative, delete newlines as well, leaving -N spaces.
See also `cycle-spacing'.
(fn &optional N)
(defalias 'just-one-space #[256 "\300\301\302#\207" [cycle-spacing nil single-shot] 5 (#$ . 34405) "*p"])
#@217 Store context used in consecutive calls to `cycle-spacing' command.
The first time `cycle-spacing' runs, it saves in this variable:
its N argument, the original point position, and the original spacing
around point.
(defvar cycle-spacing--context nil (#$ . 34699))
#@951 Manipulate whitespace around point in a smart way.
In interactive use, this function behaves differently in successive
consecutive calls.
The first call in a sequence acts like `just-one-space'.
It deletes all spaces and tabs around point, leaving one space
(or N spaces). N is the prefix argument. If N is negative,
it deletes newlines as well, leaving -N spaces.
(If PRESERVE-NL-BACK is non-nil, it does not delete newlines before point.)
The second call in a sequence deletes all spaces.
The third call in a sequence restores the original whitespace (and point).
If MODE is `single-shot', it performs only the first step in the sequence.
If MODE is `fast' and the first step would not result in any change
(i.e., there are exactly (abs N) spaces around point),
the function goes straight to the second step.
Repeatedly calling the function with different values of N starts a
new sequence each time.
(fn &optional N PRESERVE-NL-BACK MODE)
(defalias 'cycle-spacing #[768 "`\203 \303W\203 \304\202 \305\306\206 \307!\203 \305\202 \310x\210\311\310\"\210\312=\204@ \232\203@ \n\203@ \n@=\204\211 `\313`\\wZ`\310w\210\311\310\314#U?\205c `{BB\315=\203{ \303U\203{ U\203{ \202| |\210\316\317\"c\266\204\202\242 `\232\204\225 `|\202\242 \nAAc\210\nA@b\210\310\211\207" [last-command this-command cycle-spacing--context 0 " \n
" " " abs 1 nil constrain-to-field single-shot " " t fast make-string 32] 14 (#$ . 34971) "*p"])
#@376 Move point to the beginning of the buffer.
With numeric arg N, put point N/10 of the way from the beginning.
If the buffer is narrowed, this command uses the beginning of the
accessible part of the buffer.
Push mark at previous position, unless either a \[universal-argument] prefix
is supplied, or Transient Mark mode is enabled and the mark is active.
(fn &optional ARG)
(defalias 'beginning-of-buffer #[256 "\211:\204
\300 \204
\301 \210deZ\203( :\204( \302e\303\304!_\305\245#\202) eb\266\211\2058 \211:?\2058 \303y\207" [region-active-p push-mark + 1 prefix-numeric-value 10] 8 (#$ . 36450) "^P"])
(byte-code "\300\301\302\303#\300\207" [function-put beginning-of-buffer interactive-only "use `(goto-char (point-min))' instead."] 4)
#@358 Move point to the end of the buffer.
With numeric arg N, put point N/10 of the way from the end.
If the buffer is narrowed, this command uses the end of the
accessible part of the buffer.
Push mark at previous position, unless either a \[universal-argument] prefix
is supplied, or Transient Mark mode is enabled and the mark is active.
(fn &optional ARG)
(defalias 'end-of-buffer #[256 "\211:\204
\300 \204
\301 \210deZ\203% :\204% d\302!_\303\245Z\202& db\266\211\2035 \211:\2045 \304y\207p\305 =\205L `\306\307\310\"V\205L \311`!\210\312\313!\207" [region-active-p push-mark prefix-numeric-value 10 1 window-buffer window-end nil t overlay-recenter recenter -3] 6 (#$ . 37205) "^P"])
(byte-code "\301\302\303\304#\305\306\307\310\311DD\312\313\314\315\316\317\320& \210\321\301\207" [region-extract-function function-put end-of-buffer interactive-only "use `(goto-char (point-max))' instead." custom-declare-variable delete-active-region funcall function #[0 "\300\207" [t] 1] "Whether single-char deletion commands delete an active region.\nThis has an effect only if Transient Mark mode is enabled, and\naffects `delete-forward-char' and `delete-backward-char', though\nnot `delete-char'.\n\nIf the value is the symbol `kill', the active region is killed\ninstead of deleted." :type (choice (const :tag "Delete active region" t) (const :tag "Kill active region" kill) (const :tag "Do ordinary deletion" nil)) :group killing :version "24.1" #[257 "\300 \205 \211\301\267\202 \300 \302 BC\207\300 \302 |\207\303\300 \302 #\207" [region-beginning #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bounds 11 delete-only 18)) region-end filter-buffer-substring] 5 "\n\n(fn METHOD)"]] 11)
#@112 Function to insert the region's content.
Called with one argument LINES.
Insert the region as a list of lines.
(defvar region-insert-function #[257 "\300\205 \211\204\f \301c\210\302@!\210A\262\303\262\202 \207" [t 10 insert-for-yank nil] 4 "\n\n(fn LINES)"] (#$ . 38948))
#@823 Delete the previous N characters (following if N is negative).
If Transient Mark mode is enabled, the mark is active, and N is 1,
delete the text in the region and deactivate the mark instead.
To disable this, set option `delete-active-region' to nil.
Optional second arg KILLFLAG, if non-nil, means to kill (save in
kill ring) instead of delete. If called interactively, a numeric
prefix argument specifies N, and KILLFLAG is also set if a prefix
argument is used.
When killing, the killed text is filtered by
`filter-buffer-substring' before it is saved in the kill ring, so
the actual saved text might be different from what was killed.
In Overwrite mode, single character backward deletion may replace
tabs with spaces so as to back over columns, unless point is at
the end of the line.
(fn N &optional KILLFLAG)
(defalias 'delete-backward-char #[513 "\250\204\f \303\304\305D\"\210\306 \203- \203- \307U\203- \310=\203) \311\312 \313 \314#\207 \315!\207\n\203[ \316X\204[ `Sf\317>\204[ m\204[ \320f\321=\204[ i\322[\"\210\212\323\324iZ\320#)\207\322[\"\207" [delete-active-region region-extract-function overwrite-mode signal wrong-type-argument integerp use-region-p 1 kill kill-region region-beginning region-end region delete-only 0 (9 10) nil 10 delete-char insert-char 32] 7 (#$ . 39235) "p\nP"])
(byte-code "\300\301\302\303#\300\207" [function-put delete-backward-char interactive-only delete-char] 4)
#@668 Delete the following N characters (previous if N is negative).
If Transient Mark mode is enabled, the mark is active, and N is 1,
delete the text in the region and deactivate the mark instead.
To disable this, set variable `delete-active-region' to nil.
Optional second arg KILLFLAG non-nil means to kill (save in kill
ring) instead of delete. If called interactively, a numeric
prefix argument specifies N, and KILLFLAG is also set if a prefix
argument is used.
When killing, the killed text is filtered by
`filter-buffer-substring' before it is saved in the kill ring, so
the actual saved text might be different from what was killed.
(fn N &optional KILLFLAG)
(defalias 'delete-forward-char #[513 "\250\204\f \302\303\304D\"\210\305 \203- \203- \306U\203- \307=\203) \310\311 \312 \313#\207 \314!\207\315\"\207" [delete-active-region region-extract-function signal wrong-type-argument integerp use-region-p 1 kill kill-region region-beginning region-end region delete-only delete-char] 6 (#$ . 40672) "p\nP"])
(byte-code "\300\301\302\303#\300\207" [function-put delete-forward-char interactive-only delete-char] 4)
#@339 Put point at beginning and mark at end of buffer.
Also push mark at point before pushing mark at end of buffer.
If narrowing is in effect, uses only the accessible part of the buffer.
You probably should not use this function in Lisp programs;
it is usually a mistake for a Lisp function to use any subroutine
that uses or sets the mark.
(defalias 'mark-whole-buffer #[0 "\300 \210\300d\301\302#\210\303 b\207" [push-mark nil t minibuffer-prompt-end] 4 (#$ . 41809) nil])
(byte-code "\300\301\302\303#\300\207" [function-put mark-whole-buffer interactive-only t] 4)
#@833 Go to LINE, counting from line 1 at beginning of buffer.
If called interactively, a numeric prefix argument specifies
LINE; without a numeric prefix argument, read LINE from the
minibuffer.
If optional argument BUFFER is non-nil, switch to that buffer and
move to line LINE there. If called interactively with \[universal-argument]
as argument, BUFFER is the most recently selected other buffer.
Prior to moving point, this function sets the mark (without
activating it), unless Transient Mark mode is enabled and the
mark is already active.
This function is usually the wrong thing to use in a Lisp program.
What you probably want instead is something like:
(goto-char (point-min))
(forward-line (1- N))
If at all possible, an even better solution is to use char counts
rather than line counts.
(fn LINE &optional BUFFER)
(defalias 'goto-line #[513 "\211\203 \301!\211\203 \302!\210\202 \303!\210\210\304 \204 \305 \210\214~\210eb\210\306=\2035 \307\310\311\312S$\2028 Sy)\207" [selective-display get-buffer-window select-window switch-to-buffer-other-window region-active-p push-mark t re-search-forward "[\n
]" nil end] 7 (#$ . 42382) (byte-code "\203 :\204 \301!C\207\212\302\303x\210\304\305!\205# \306\307`\302\303w\210`\"!):\205- \310p\311\"\211\2039 \312\313!P\202: \314\315\316\317\"\320 D\"D\207" [current-prefix-arg prefix-numeric-value "0-9" nil looking-at "[0-9]" string-to-number buffer-substring-no-properties other-buffer t " in " buffer-name "" read-number format "Goto line%s: " line-number-at-pos] 7)])
(byte-code "\300\301\302\303#\300\207" [function-put goto-line interactive-only forward-line] 4)
#@371 Count the number of words in the region.
If called interactively, print a message reporting the number of
lines, words, and characters in the region (whether or not the
region is active); with prefix ARG, report for the entire buffer
rather than the region.
If called from Lisp, return the number of words between positions
START and END.
(fn START END &optional ARG)
(defalias 'count-words-region #[770 "\300\301!\204 \302\"\207\211\203 \303 \207\304\305#\207" [called-interactively-p any count-words count-words--buffer-message count-words--message "Region"] 7 (#$ . 44037) (byte-code "\203 \301\211E\207\302 \303 \301E\207" [current-prefix-arg nil region-beginning region-end] 3)])
#@385 Count words between START and END.
If called interactively, START and END are normally the start and
end of the buffer; but if the region is active, START and END are
the start and end of the region. Print a message reporting the
number of lines, words, and chars.
If called from Lisp, return the number of words between START and
END, without printing any message.
(fn START END)
(defalias 'count-words #[514 "\300\301!\204 \302\212\214}\210eb\210\303\304!\203 \211T\262\202 *\211\207\305 \203) \306\307!\207\310 \207" [called-interactively-p any 0 forward-word-strictly 1 use-region-p call-interactively count-words-region count-words--buffer-message] 5 (#$ . 44740) (byte-code "\300\211D\207" [nil] 2)])
(defalias 'count-words--buffer-message #[0 "\300deZ\301 U\204 \302\202 \303ed#\207" [count-words--message buffer-size "Narrowed part of buffer" "Buffer"] 4])
#@22
(fn STR START END)
(defalias 'count-words--message #[771 "\300\"\301\"Z\302\303\211\304U\203 \305\202 \306\211\304U\203' \305\202( \306\211\304U\2034 \305\2025 \306&\207" [count-lines count-words message "%s has %d line%s, %d word%s, and %d character%s." 1 "" "s"] 16 (#$ . 45622)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias count-lines-region count-words-region nil make-obsolete "24.1"] 4)
#@73 Print the current buffer line number and narrowed line number of point.
(defalias 'what-line #[0 "e\300 \301U\203 \302\303\"\202! \212\214~\210\302\304\305\300!\306##*\207" [line-number-at-pos 1 message "Line %d" "line %d (narrowed line %d)" + -1] 8 (#$ . 46062) nil])
#@220 Return number of lines between START and END.
This is usually the number of newlines between them,
but can be one more if START is not equal to END
and the greater of them is not at the start of a line.
(fn START END)
(defalias 'count-lines #[514 "\212\214}\210eb\210\301=\203Z \302 \303\304\305\306\307!\310\"\311$\216\304\312\313\314\301\315$\203/ \315\\\262\202 \312\313\314\301\316$\203? \211T\262\202/ db\210U\204Q n\204Q \211T\202R \211\262)\262\202` \317 \317 yZ*\207" [selective-display t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 re-search-forward "[\n
]" nil 40 1 buffer-size] 9 (#$ . 46345)])
#@366 Return buffer line number at position POS.
If POS is nil, use current buffer location.
If ABSOLUTE is nil, the default, counting starts
at (point-min), so the value refers to the contents of the
accessible portion of the (potentially narrowed) buffer. If
ABSOLUTE is non-nil, ignore any narrowing and return the
absolute line number.
(fn &optional POS ABSOLUTE)
(defalias 'line-number-at-pos #[512 "\214\211\203 ~\210\206\f `\300\212eb\210`\262b\210\301y\210\302`\"T)\266\202)\207" [nil 0 count-lines] 7 (#$ . 47020)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable what-cursor-show-names funcall function #[0 "\300\207" [nil] 1] "Whether to show character names in `what-cursor-position'." :type boolean :version "27.1" :group editing-basics] 10)
#@691 Print info on cursor position (on screen and within buffer).
Also describe the character after point, and give its character
code in octal, decimal and hex. If `what-cursor-show-names' is
non-nil, additionally show the name of the character.
For a non-ASCII multibyte character, also give its encoding in the
buffer's selected coding system if the coding system encodes the
character safely. If the character is encoded into one byte, that
code is shown in hex. If the character is encoded into more than one
byte, just "..." is shown.
In addition, with prefix argument, show details about that character
in *Help* buffer. See also the command `describe-char'.
(fn &optional DETAIL)
(defalias 'what-cursor-position #[256 "g\205 \303\304\"\206 \303\305\"\211\203 \306\307\"\202 \310\311\267\202A \312\313\314!\315\316#\202U \312\313\314\317\"\315\316#\202U \312\313\320!\315\316#\202U \303\321\"\322>\203T \312\313\317!\315\316#\202U \310ed`\323 \324\325S_\326]\"\327 \330U\203n \310\202s \306\331\327 \"iU\203\253 \326U\203\211 TU\204\236 \332\333 &\202\355\332\334%\202\355 \335\211\211\211\203\274 \336!\316=\203\301 \337\301!\262\340!\341=\203\330 \306\342\211\211%\262\202v\343\n\344\"\262\203\345\n\344\"\206\354 d\211 \346\\W\203\373 \310\262\202\347\262\n\346\\\262\350 \"P\266\202\202 \351Y\205 \352\"\262\203H;\2047\306\353\211\211&\202t\306\354\211\211&\202t\203k\306\355\211\211 G\326V\203`\347\202f\356\n\f\"&\202t\306\357\211\211%\262\203\360`!\210 \326U\203\217\n TU\204\273\332\361\362W\203\237\363!\202\244\350``T\"& \202\353\332\364\n\203\327\351W\203\317\363!\202\333\350``T\"\202\333\363!
& \266\205\207" [what-cursor-show-names buffer-file-coding-system enable-multibyte-characters get-char-code-property name old-name format ", %s" "" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (8234 34 8237 34 8235 44 8238 44 8294 55 8295 55 8296 55)) propertize string 8236 invisible t 8206 8297 bidi-class (R AL) buffer-size round 100.0 1 window-hscroll 0 " Hscroll=%d" message "point=%d of %d (%d%%) <%d-%d> column=%d%s" "point=%d of %d (EOB) column=%d%s" nil coding-system-type default-value char-charset eight-bit "(%d, #o%o, #x%x%s, raw-byte)" get-char-property display next-single-char-property-change 4 "..." buffer-substring-no-properties 128 encode-coding-char "(%d, #o%o, #x%x%s, part of display \"%s\")" "(%d, #o%o, #x%x%s, part of display \"%s\"->\"%s\")" "(%d, #o%o, #x%x%s, file %s)" encoded-string-description "(%d, #o%o, #x%x%s)" describe-char "Char: %s%s %s point=%d of %d (%d%%) <%d-%d> column=%d%s" 256 single-key-description "Char: %s%s %s point=%d of %d (%d%%) column=%d%s"] 29 (#$ . 47831) "P"])
(defvar read-expression-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\306\"\210\211\207" [minibuffer-local-map make-sparse-keymap define-key "\211" completion-at-point " " set-keymap-parent] 5))
#@348 Return a Lisp object read using the minibuffer, unevaluated.
Prompt with PROMPT. If non-nil, optional second arg INITIAL-CONTENTS
is a string to insert in the minibuffer before reading.
(INITIAL-CONTENTS can also be a cons of a string and an integer.
Such arguments are used as in `read-from-minibuffer'.)
(fn PROMPT &optional INITIAL-CONTENTS)
(defalias 'read-minibuffer #[513 "\301\302\303%\207" [minibuffer-local-map read-from-minibuffer t minibuffer-history] 8 (#$ . 50896)])
#@346 Return value of Lisp expression read using the minibuffer.
Prompt with PROMPT. If non-nil, optional second arg INITIAL-CONTENTS
is a string to insert in the minibuffer before reading.
(INITIAL-CONTENTS can also be a cons of a string and an integer.
Such arguments are used as in `read-from-minibuffer'.)
(fn PROMPT &optional INITIAL-CONTENTS)
(defalias 'eval-minibuffer #[513 "\300\301\"!\207" [eval read--expression] 6 (#$ . 51388)])
#@59 Non-nil means completing a Lisp symbol in the minibuffer.
(defvar minibuffer-completing-symbol nil (#$ . 51833))
(make-obsolete-variable 'minibuffer-completing-symbol nil "24.1" 'get)
#@159 The current default value or list of default values in the minibuffer.
The functions `read-from-minibuffer' and `completing-read' bind
this variable locally.
(defvar minibuffer-default nil (#$ . 52024))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317\312\313& \210\300\320\302\303\321DD\322\306\307\310\323\312\313& \210\300\324\302\303\325DD\326\306\307\310\327\330\331\332\333\334 F\335BBB\312\336& \207" [custom-declare-variable eval-expression-print-level funcall function #[0 "\300\207" [4] 1] "Value for `print-level' while printing value in `eval-expression'.\nA value of nil means no limit." :group lisp :type (choice (const :tag "No Limit" nil) integer) :version "21.1" eval-expression-print-length #[0 "\300\207" [12] 1] "Value for `print-length' while printing value in `eval-expression'.\nA value of nil means no limit." (choice (const :tag "No Limit" nil) integer) eval-expression-debug-on-error #[0 "\300\207" [t] 1] "If non-nil set `debug-on-error' to t in `eval-expression'.\nIf nil, don't change the value of `debug-on-error'." boolean eval-expression-print-maximum-character #[0 "\300\207" [127] 1] "The largest integer that will be displayed as a character.\nThis affects printing by `eval-expression' (via\n`eval-expression-print-format')." choice (const :tag "ASCII characters" 127) const :tag "All characters" max-char ((integer :tag "Max codepoint to display as character")) "26.1"] 13)
#@280 If VALUE is an integer, return a specially formatted string.
This string will typically look like " (#o1, #x1, ?\C-a)".
If VALUE is not an integer, return nil.
This function is used by commands like `eval-expression' that
display the result of expression evaluation.
(fn VALUE)
(defalias 'eval-expression-print-format #[257 "\211\250\205. \301!\205 \211X\205 \302!\205 \303!\211\203' \304\305\211$\202, \304\306\211#\262\207" [eval-expression-print-maximum-character characterp char-displayable-p prin1-char format " (#o%o, #x%x, %s)" " (#o%o, #x%x)"] 7 (#$ . 53504)])
#@61 Hook run by `eval-expression' when entering the minibuffer.
(defvar eval-expression-minibuffer-setup-hook nil (#$ . 54091))
#@42
(fn PROMPT &optional INITIAL-CONTENTS)
(defalias 'read--expression #[513 "\302\303\304C\211\305\306\307\310\311\"\312\"\313$\240\210\305\306\314\310\311!\315\"\313$\216\316\317\242\"\210\320 \302\321%)\266\202)\207" [minibuffer-completing-symbol read-expression-map t #[0 "\300\301\302\303\304$\210\305\306!\207" [add-hook completion-at-point-functions elisp-completion-at-point nil t run-hooks eval-expression-minibuffer-setup-hook] 5] nil make-byte-code 0 "\302\303\301\242\"\210\300 \207" vconcat vector [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-from-minibuffer read-expression-history] 12 (#$ . 54221)])
#@275 Get arguments for commands that print an expression result.
Returns a list (INSERT-VALUE NO-TRUNCATE CHAR-PRINT-LIMIT)
based on PREFIX-ARG. This function determines the interpretation
of the prefix argument for `eval-expression' and
`eval-last-sexp'.
(fn PREFIX-ARGUMENT)
(defalias 'eval-expression-get-print-arguments #[257 "\302!\303>?\304U\305>\204 \306\202 \307U\203 \202 E\207" [most-positive-fixnum eval-expression-print-maximum-character prefix-numeric-value (- nil) 0 (0 -1 - nil) nil -1] 6 (#$ . 54940)])
#@1309 Evaluate EXP and print value in the echo area.
When called interactively, read an Emacs Lisp expression and
evaluate it. Value is also consed on to front of the variable
`values'. Optional argument INSERT-VALUE non-nil (interactively,
with a non `-' prefix argument) means insert the result into the
current buffer instead of printing it in the echo area.
Normally, this function truncates long output according to the
value of the variables `eval-expression-print-length' and
`eval-expression-print-level'. When NO-TRUNCATE is
non-nil (interactively, with a prefix argument of zero), however,
there is no such truncation.
If the resulting value is an integer, and CHAR-PRINT-LIMIT is
non-nil (interactively, unless given a non-zero prefix argument)
it will be printed in several additional formats (octal,
hexadecimal, and character). The character format is used only
if the value is below CHAR-PRINT-LIMIT (interactively, if the
prefix argument is -1 or the value doesn't exceed
`eval-expression-print-maximum-character').
Runs the hook `eval-expression-minibuffer-setup-hook' on entering the
minibuffer.
If `eval-expression-debug-on-error' is non-nil, which is the default,
this command arranges for all errors to enter the debugger.
(fn EXP &optional INSERT-VALUE NO-TRUNCATE CHAR-PRINT-LIMIT)
(defalias 'eval-expression #[1025 "\204 \306\307\310!)\307\"\nB\2024 \311\312!\313\306\307\310!)\307\"\nB \262)=\2042 \211\266?\205: \f?\205@
\313 \203R p\202S \307\314\n@\"\205` \315\n@!\211\203i \316\"\210\210\262,\207" [eval-expression-debug-on-error lexical-binding values debug-on-error eval-expression-print-length eval-expression-print-level eval t macroexpand-all make-symbol "t" nil prin1 eval-expression-print-format princ deactivate-mark eval-expression-print-maximum-character print-level print-length] 10 (#$ . 55475) (byte-code "\301\302!\303!B\207" [current-prefix-arg read--expression "Eval: " eval-expression-get-print-arguments] 3)])
#@199 Prompting with PROMPT, let user edit COMMAND and eval result.
COMMAND is a Lisp expression. Let user edit that expression in
the minibuffer, then read and evaluate the result.
(fn PROMPT COMMAND)
(defalias 'edit-and-eval-command #[514 "\303\304 T\305\216\306\307!\n\310\311%+\312\311\"\210\313!\207" [minibuffer-history-sexp-flag print-level read-expression-map nil minibuffer-depth #[0 "@;\205 \211A\242\207" [command-history] 2] read-from-minibuffer prin1-to-string t command-history add-to-history eval] 8 (#$ . 57476)])
#@546 Edit and re-evaluate last complex command, or ARGth from last.
A complex command is one that used the minibuffer.
The command is placed in the minibuffer as a Lisp form for editing.
The result is executed, repeating the command as changed.
If the command has been changed or is not the most recent previous
command it is added to the front of the command history.
You can use the minibuffer history commands \<minibuffer-local-map>\[next-history-element] and \[previous-history-element]
to get different commands to edit and resubmit.
(fn ARG)
(defalias 'repeat-complex-command #[257 "\211S8\305\2034 \305\306 T\307\216\310\311\312!\f\313\300B%,\262\314\300\"\210\315\316@\317\320A\"#\202B \203? \321\322\"\202B \321\323!\207" [command-history minibuffer-history-sexp-flag minibuffer-history-position print-level read-expression-map nil minibuffer-depth #[0 "@;\205 \211A\242\207" [command-history] 2] read-from-minibuffer "Redo: " prin1-to-string t add-to-history apply funcall-interactively mapcar #[257 "\300\301\"\207" [eval t] 4 "\n\n(fn E)"] error "Argument %d is beyond length of command history" "There are no previous complex commands to repeat"] 10 (#$ . 58019) "p"])
(defvar extended-command-history nil)
(defvar execute-extended-command--last-typed nil)
#@60 Read command name to invoke in `execute-extended-command'.
(defalias 'read-extended-command #[0 "\301\302C\211\303\304\305\306\307\"\310\"\311$\240\210\303\304\312\306\307!\313\"\311$\216\314\315\242\"\210\316\317=\2031 \320\202] :\203A @\321=\203A \322\202] :\203T @\250\203T \323\324@\"\202] \250\205] \323\324\"\325P\326\327\330\302\331&)\207" [current-prefix-arg #[0 "\301\302\303\304\305$\210\306\300!\210\307\211\207" [minibuffer-default-add-function add-hook post-self-insert-hook #[0 "\301 \211\207" [execute-extended-command--last-typed minibuffer-contents] 2] nil local make-local-variable #[0 "r\300\301 !q\210\302\303 !\205 \304\305\303 \")\207" [window-buffer minibuffer-selected-window commandp function-called-at-point format "%S"] 3]] 5] nil make-byte-code 0 "\302\303\301\242\"\210\300 \207" vconcat vector [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook completing-read - "- " 4 "C-u " format "%d " "M-x " #[771 "\211\301>\203 \302\303\304\305\306\"\307\"\310\311%\202 \312$\207" [obarray (nil t) make-byte-code 257 "\301!\205 \300\302!\232\206 \211\303N?\207" vconcat vector [symbol-name byte-obsolete-info] 4 "\n\n(fn SYM)" complete-with-action] 10 "\n\n(fn STRING PRED ACTION)"] commandp t extended-command-history] 10 (#$ . 59312)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315\316\317& \207" [custom-declare-variable suggest-key-bindings funcall function #[0 "\300\207" [t] 1] "Non-nil means show the equivalent key-binding when M-x command has one.\nThe value can be a length of time to show the message for.\nIf the value is non-nil and not a number, we wait 2 seconds.\n\nAlso see `extended-command-suggest-shorter'." :group keyboard :type (choice (const :tag "off" nil) (integer :tag "time" 2) (other :tag "on")) extended-command-suggest-shorter #[0 "\300\207" [t] 1] "If non-nil, show a shorter M-x invocation when there is one.\n\nAlso see `suggest-key-bindings'." boolean :version "26.1"] 10)
#@20
(fn NAME LENGTH)
(defalias 'execute-extended-command--shorter-1 #[514 "\211\300U\203 \301C\207\301\232\203 \302\207\303\304\305\306\307\310!\311\"\312\313%\314\315\316\"S\"\"\317\320\"\2057 \314\315\300\225\"\"\244\207" [0 "" nil mapcar make-byte-code 257 "\301\300\302\303#P\207" vconcat vector [substring 0 1] 5 "\n\n(fn S)" execute-extended-command--shorter-1 substring 1 string-match "\\`\\(-\\)?[^-]*"] 9 (#$ . 61415)])
#@19
(fn NAME TYPED)
(defalias 'execute-extended-command--shorter #[514 "\301G\302\301\211\204> \204 T\262\303\"\262\304ZW\203> \305 \210\211A\262\242\306\307$\242\232\203: \211\262\210\202 \207" [obarray nil 1 execute-extended-command--shorter-1 5 input-pending-p completion-try-completion commandp] 13 (#$ . 61859)])
#@226 Read a command name, then read the arguments and call the command.
To pass a prefix argument to the command you are
invoking, give a prefix argument to `execute-extended-command'.
(fn PREFIXARG &optional COMMAND-NAME TYPED)
(defalias 'execute-extended-command #[769 "\204 \306\307 \262\262*;\205 \310!\n\205& ?\205& \311\f\312#\313!\2041 \314\315\"\210\316\317\320!\321Q!\210+ ,\322\323\"\210)\n\205q \211\204Y -\205q \205q \324\325 G\326U\203f \326\202p \n\247\203o \n\202p \327!\211\205$.:?\205$-\203\337 \204\337 \204\337 9\203\337 \320!G\327X\204\337 \3301\327 \306 /\3312\322 \331\306 0\332 \206\267 \333\320!\"\211\262\26210=\203\310 \306\2111\202\316 1\206\316 \211)\266\2020)0\202\336 \210\3121\334\335!\210\205$\336\337;\203\362 \340\341Q\202\365 \342!#\306C\343\326\344\345\346\"\347\"\350$\216\203\211\325 \240\210\351\352\"\210\324\n\247\203 \n\202 \327!)\266\202\262\207" [execute-extended-command--last-typed current-prefix-arg suggest-key-bindings executing-kbd-macro overriding-local-map this-command nil read-extended-command intern-soft where-is-internal t commandp error "`%s' is not a valid command name" set--this-command-keys "\370" symbol-name "
" command-execute record sit-for current-message 0 2 (quit) #1=#:input input-pending-p execute-extended-command--shorter eval (ignore nil) format-message "You can run the command `%s' with %s" "M-x " " RET" key-description make-byte-code "\300\205 \301\242\203 \302\303\301\242\"\207\302\304!\207" vconcat vector [message "%s" nil] 3 message "%s" real-this-command prefix-arg extended-command-suggest-shorter unread-command-events inhibit-quit throw-on-input quit-flag] 15 (#$ . 62203) (byte-code "\302 \303 E)\207" [execute-extended-command--last-typed current-prefix-arg nil read-extended-command] 3)])
(byte-code "\300\301\302\303#\300\207" [function-put execute-extended-command interactive-only command-execute] 4)
#@610 Execute CMD as an editor command.
CMD must be a symbol that satisfies the `commandp' predicate.
Optional second arg RECORD-FLAG non-nil
means unconditionally put this command in the variable `command-history'.
Otherwise, that is done only if an arg is read using the minibuffer.
The argument KEYS specifies the value to use instead of (this-command-keys)
when reading the arguments; if it is nil, (this-command-keys) is used.
The argument SPECIAL, if non-nil, means that this command is executing
a special event, so ignore the prefix argument and don't clear it.
(fn CMD &optional RECORD-FLAG KEYS SPECIAL)
(defalias 'command-execute #[1025 "\304\211?\205 \211\304\n\203 \305 \2109\203( \306N\203( \203( \307\303!\202\217 \310!\262\211\211\242\311=\262\203C \312\"\211\262\204) \313!\203^ \203W \314\315\316E\304\317$\210\316\"\202\215 \320#9\203\215 \321N\203\215 \322N\204\215 \323\322\317#\210\324\325\326 \211\321N\327#\"\210\262\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp add-to-history command-history execute-kbd-macro t call-interactively byte-obsolete-info command-execute-obsolete-warned put message "%s" macroexp--obsolete-warning "command"] 13 (#$ . 64165)])
#@219 Default minibuffer history list.
This is used for all minibuffer input
except when an alternate history list is specified.
Maximum length of the history list is determined by the value
of `history-length', which see.
(defvar minibuffer-history nil (#$ . 65518))
#@270 Control whether history list elements are expressions or strings.
If the value of this variable equals current minibuffer depth,
they are expressions; otherwise they are strings.
(That convention is designed to do the right thing for
recursive uses of the minibuffer.)
(defvar minibuffer-history-sexp-flag nil (#$ . 65788))
(byte-code "\302\303\211\207" [minibuffer-history-variable minibuffer-history-position minibuffer-history nil] 2)
(defvar minibuffer-history-search-history nil)
#@154 Text that was in this minibuffer before any history commands.
This is nil if there have not yet been any history commands
in this use of the minibuffer.
(defvar minibuffer-text-before-history nil (#$ . 66282))
(add-hook 'minibuffer-setup-hook 'minibuffer-history-initialize)
(defalias 'minibuffer-history-initialize #[0 "\301\211\207" [minibuffer-text-before-history nil] 2])
#@91 A point-motion hook for the minibuffer, that moves point out of the prompt.
(fn NEW OLD)
(defalias 'minibuffer-avoid-prompt #[514 "\300\301d\"\207" [constrain-to-field nil] 5 (#$ . 66665)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [make-obsolete minibuffer-avoid-prompt cursor-intangible-mode "25.1" custom-declare-variable minibuffer-history-case-insensitive-variables funcall function #[0 "\300\207" [nil] 1] "Minibuffer history variables for which matching should ignore case.\nIf a history variable is a member of this list, then the\n\\[previous-matching-history-element] and \\[next-matching-history-element] commands ignore case when searching it, regardless of `case-fold-search'." :type (repeat variable) :group minibuffer] 8)
#@448 Find the previous history element that matches REGEXP.
(Previous history elements refer to earlier actions.)
With prefix argument N, search for Nth previous match.
If N is negative, find the next or Nth next match.
Normally, history elements are matched case-insensitively if
`case-fold-search' is non-nil, but an uppercase letter in REGEXP
makes the search case-sensitive.
See also `minibuffer-history-case-insensitive-variables'.
(fn REGEXP N)
(defalias 'previous-matching-history-element #[514 "\211\306U\204\313 \306U\203 \204 \307 \310 \311\312\"\205' \n >\203& \312\202' \f\313\211\211 \306U\204\267 \211\262\314\306W\203D \315\202E \314\\]G^\262\211U\203a \316\314U\203^ \317\202_ \320!\210
\321 =\203v \313 \322S8!)\202{ \211S8\262\306W\203\221 \323\"\205\236 \306\225\202\236 \323\324 \325Q\"\205\236 \314\224\262\203- \211\306W\203\260 \314\202\261 \315\\\262\202- \211db\210\326 \210c\210\327 \\b\210)\266@@\330>\205\332 A\211\207" [minibuffer-history-position minibuffer-text-before-history minibuffer-history-variable minibuffer-history-case-insensitive-variables case-fold-search minibuffer-history-sexp-flag 0 minibuffer-contents-no-properties minibuffer-history-value isearch-no-upper-case-p t nil 1 -1 user-error "No later matching history item" "No earlier matching history item" minibuffer-depth prin1-to-string string-match ".*\\(" "\\)" delete-minibuffer-contents minibuffer-prompt-end (previous-matching-history-element next-matching-history-element) print-level command-history] 12 (#$ . 67451) (byte-code "\304\305\306\307 \203 \306\310 @\"\202 \311\"\312\n\312\301 @&\211\311\230\2030 \203* @\2021 \313\314!\2021 \211\315 !)D\207" [enable-recursive-minibuffers minibuffer-history-search-history minibuffer-local-map current-prefix-arg t read-from-minibuffer format "Previous element matching regexp%s: " " (default %s)" "" nil user-error "No previous history search regexp" prefix-numeric-value] 7)])
#@395 Find the next history element that matches REGEXP.
(The next history element refers to a more recent action.)
With prefix argument N, search for Nth next match.
If N is negative, find the previous or Nth previous match.
Normally, history elements are matched case-insensitively if
`case-fold-search' is non-nil, but an uppercase letter in REGEXP
makes the search case-sensitive.
(fn REGEXP N)
(defalias 'next-matching-history-element #[514 "\300[\"\207" [previous-matching-history-element] 5 (#$ . 69439) (byte-code "\304\305\306\307 \307\302\n@&\211\310\230\203! \n\203 \n@\202\" \311\312!\202\" \211\313 !)D\207" [enable-recursive-minibuffers minibuffer-local-map minibuffer-history-search-history current-prefix-arg t read-from-minibuffer "Next element matching (regexp): " nil "" user-error "No previous history search regexp" prefix-numeric-value] 7)])
(defvar minibuffer-temporary-goal-position nil)
#@561 Function run by `goto-history-element' before consuming default values.
This is useful to dynamically add more elements to the list of default values
when `goto-history-element' reaches the end of this list.
Before calling this function `goto-history-element' sets the variable
`minibuffer-default-add-done' to t, so it will call this function only
once. In special cases, when this function needs to be called more
than once, it can set `minibuffer-default-add-done' to nil explicitly,
overriding the setting of this variable to t in `goto-history-element'.
(defvar minibuffer-default-add-function 'minibuffer-default-add-completions (#$ . 70358))
#@280 When nil, add more elements to the end of the list of default values.
The value nil causes `goto-history-element' to add more elements to
the list of defaults when it reaches the end of this list. It does
this by calling a function defined by `minibuffer-default-add-function'.
(defvar minibuffer-default-add-done nil (#$ . 71015))
(make-variable-buffer-local 'minibuffer-default-add-done)
#@192 Return a list of all completions without the default value.
This function is used to add all elements of the completion table to
the end of the list of defaults just after the default value.
(defalias 'minibuffer-default-add-completions #[0 "\303\304 \n#<\203 \305\"\202 \306\"B\207" [minibuffer-default minibuffer-completion-table minibuffer-completion-predicate all-completions "" append delete] 6 (#$ . 71413)])
#@250 Return the value of the minibuffer input history list.
If `minibuffer-history-variable' points to a buffer-local variable and
the minibuffer is active, return the buffer-local value for the buffer
that was current when the minibuffer was activated.
(defalias 'minibuffer-history-value #[0 "\301\302\303 !\"\207" [minibuffer-history-variable buffer-local-value window-buffer minibuffer-selected-window] 4 (#$ . 71844)])
#@313 Puts element of the minibuffer history in the minibuffer.
The argument NABS specifies the absolute history position in
descending order, where 0 means the current element and a
positive number N means the Nth previous element. NABS being a
negative number -N means the Nth entry of "future history."
(fn NABS)
(defalias 'goto-history-element #[257 "\204 \306 !\203 \211\n<\203 \nG\202 \307[W\203 \310 \n\2033 \n<\203. \nG\202/ \307[\2024 \311\312\211 \311U\203C \f\204C \313 W\203U \314\n\203R \315\202S \316!\210\317 <\203b \317 G\202c \311V\203k \314\320!\210
\321>\204\215 \322 \323\324!\210`X\203\201 \211\202\212 m\203\211 \312\202\212 `\210db\210\325 \210\311W\203\257 \n<\203\251 \326!S\n8\202\252 \n\262\202\313 \311U\203\304 \f\206\272 \327\262\310\262\312\202\313 S\317 8\262\330 =\203\341 \211\204\341 \312 \331!)\202\342 c\210\206\352 db\207" [minibuffer-default-add-done minibuffer-default-add-function minibuffer-default minibuffer-history-position minibuffer-text-before-history last-command functionp 1 t 0 nil minibuffer-contents-no-properties user-error "End of defaults; no next item" "End of history; no default available" minibuffer-history-value "Beginning of history; no preceding item" (next-history-element previous-history-element) minibuffer-prompt-end make-local-variable minibuffer-temporary-goal-position delete-minibuffer-contents abs "" minibuffer-depth prin1-to-string minibuffer-history-sexp-flag print-level] 7 (#$ . 72271) "p"])
#@217 Puts next element of the minibuffer history in the minibuffer.
With argument N, it uses the Nth following element. The position
in the history can go beyond the current position and invoke "future
history."
(fn N)
(defalias 'next-history-element #[257 "\211\301U\206 \302Z!\207" [minibuffer-history-position 0 goto-history-element] 4 (#$ . 73779) "p"])
#@127 Puts previous element of the minibuffer history in the minibuffer.
With argument N, it uses the Nth previous element.
(fn N)
(defalias 'previous-history-element #[257 "\211\301U\206 \302\\!\207" [minibuffer-history-position 0 goto-history-element] 4 (#$ . 74144) "p"])
#@225 Move cursor vertically down ARG lines, or to the next history element.
When point moves over the bottom line of multi-line minibuffer, puts ARGth
next element of the minibuffer history in the minibuffer.
(fn &optional ARG)
(defalias 'next-line-or-history-element #[256 "\211\204 \302\262`\303\304 l\205 `V?\205- \305 \302U\203, i\212Sb\210i)Z\306]\202- i\30718 \310!0\202b \210b\210\311!\210\306db\210\211\205b \305 \302U\203_ \312\212\304 Sb\210i)\\!\202b \312!)\207" [next-line-add-newlines temporary-goal-column 1 nil minibuffer-prompt-end line-number-at-pos 0 (end-of-buffer) next-line next-history-element move-to-column] 7 (#$ . 74424) "^p"])
#@228 Move cursor vertically up ARG lines, or to the previous history element.
When point moves over the top line of multi-line minibuffer, puts ARGth
previous element of the minibuffer history in the minibuffer.
(fn &optional ARG)
(defalias 'previous-line-or-history-element #[256 "\211\204 \301\262`\302 l\205 `V?\205+ \303 \301U\203* i\212Sb\210i)Z\304]\202+ i\30516 \306!0\202n \210b\210\307!\210\304\302 b\210\211\203d \303 \301U\203^ \310\212\302 Sb\210i)\\!\202n \310!\202n \311 \210l?\205n \312u\207" [temporary-goal-column 1 minibuffer-prompt-end line-number-at-pos 0 (beginning-of-buffer) previous-line previous-history-element move-to-column end-of-visual-line -1] 7 (#$ . 75093) "^p"])
#@177 Get next history element that completes the minibuffer before the point.
The contents of the minibuffer after the point are deleted and replaced
by the new completion.
(fn N)
(defalias 'next-complete-history-element #[257 "`\300\301\302\303 `{!P\"\210\211b\207" [next-matching-history-element "^" regexp-quote minibuffer-prompt-end] 7 (#$ . 75804) "p"])
#@181 Get previous history element that completes the minibuffer before the point.
The contents of the minibuffer after the point are deleted and replaced
by the new completion.
(fn N)
(defalias 'previous-complete-history-element #[257 "\300[!\207" [next-complete-history-element] 3 (#$ . 76167) "p"])
#@100 Return the display width of the minibuffer prompt.
Return 0 if current buffer is not a minibuffer.
(defalias 'minibuffer-prompt-width #[0 "\300 S\207" [minibuffer-prompt-end] 1 (#$ . 76472)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook minibuffer-setup-hook minibuffer-history-isearch-setup make-variable-buffer-local minibuffer-history-isearch-message-overlay] 3)
#@122 Set up a minibuffer for using isearch to search the minibuffer history.
Intended to be added to `minibuffer-setup-hook'.
(defalias 'minibuffer-history-isearch-setup #[0 "\304\300!\210\305\304\301!\210\306\304\302!\210\307\304\303!\210\310\311\312\313\314\315$\207" [isearch-search-fun-function isearch-message-function isearch-wrap-function isearch-push-state-function make-local-variable minibuffer-history-isearch-search minibuffer-history-isearch-message minibuffer-history-isearch-wrap minibuffer-history-isearch-push-state add-hook isearch-mode-end-hook minibuffer-history-isearch-end nil t] 5 (#$ . 76855)])
#@70 Clean up the minibuffer after terminating isearch in the minibuffer.
(defalias 'minibuffer-history-isearch-end #[0 "\205 \301!\207" [minibuffer-history-isearch-message-overlay delete-overlay] 2 (#$ . 77479)])
#@71 Return the proper search function, for isearch in minibuffer history.
(defalias 'minibuffer-history-isearch-search #[0 "\300\207" [#[771 "\303 \304\203 \203 `\305 W\203 \305 b\210\203 \202\" \305 #\206e ?\205e \3061c \211\204^ \203C \307\310!\210\305 b\210\202J \311\310!\210db\210``?\205W \305 #\262\2020 `0\202e \210\304\207" [isearch-forward isearch-barrier isearch-opoint isearch-search-fun-default nil minibuffer-prompt-end (error) next-history-element 1 previous-history-element] 9 "\n\n(fn STRING BOUND NOERROR)"]] 1 (#$ . 77697)])
#@315 Display the minibuffer history search prompt.
If there are no search errors, this function displays an overlay with
the isearch prompt which replaces the original minibuffer prompt.
Otherwise, it displays the standard isearch message returned from
the function `isearch-message'.
(fn &optional C-Q-HACK ELLIPSIS)
(defalias 'minibuffer-history-isearch-message #[512 "\303 \203
\203
\203 \304\"\207\305\n!\203\" \306\ne\307 #\210\202. \310e\307 \"\311\n\312\313#\210\311\n\314\315\"#\210\316\317!\207" [isearch-success isearch-error minibuffer-history-isearch-message-overlay minibufferp isearch-message overlayp move-overlay minibuffer-prompt-end make-overlay overlay-put evaporate t display isearch-message-prefix message ""] 8 (#$ . 78263)])
#@171 Wrap the minibuffer history search when search fails.
Move point to the first history element for a forward search,
or to the last history element for a backward search.
(defalias 'minibuffer-history-isearch-wrap #[0 "\203
\302\303 G!\210\202 \302\304!\210\305\203 \306 \202 db\207" [isearch-forward isearch-success goto-history-element minibuffer-history-value 0 t minibuffer-prompt-end] 2 (#$ . 79024)])
#@164 Save a function restoring the state of minibuffer history search.
Save `minibuffer-history-position' to the additional state parameter
in the search status stack.
(defalias 'minibuffer-history-isearch-push-state #[0 "\301\302\303\304\305!\306\"\307\310%\207" [minibuffer-history-position make-byte-code 257 "\301\300\"\207" vconcat vector [minibuffer-history-isearch-pop-state] 4 "\n\n(fn CMD)"] 7 (#$ . 79444)])
#@134 Restore the minibuffer history search state.
Go to the history element by the absolute history position HIST-POS.
(fn CMD HIST-POS)
(defalias 'minibuffer-history-isearch-pop-state #[514 "\300!\207" [goto-history-element] 4 (#$ . 79867)])
(add-hook 'minibuffer-setup-hook 'minibuffer-error-initialize)
#@37 Set up minibuffer error processing.
(defalias 'minibuffer-error-initialize #[0 "\301\300!\210\302\211\207" [command-error-function make-local-variable minibuffer-error-function] 2 (#$ . 80176)])
#@244 Display error messages in the active minibuffer.
The same as `command-error-default-function' but display error messages
at the end of the minibuffer using `minibuffer-message' to not obscure
the minibuffer contents.
(fn DATA CONTEXT CALLER)
(defalias 'minibuffer-error-function #[771 "\302 \210\303 \210\304!\305\306\307\203 \310\311\"\202 \312#\210)\313\314\315\310\316# #!\207" [inhibit-message minibuffer-prompt-properties discard-input ding error-message-string t message "%s%s" format "%s: " "" minibuffer-message apply propertize " [%s%s]"] 11 (#$ . 80379)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias advertised-undo undo nil make-obsolete "23.2"] 4)
#@173 Table mapping redo records to the corresponding undo one.
A redo record for undo-in-region maps to t.
A redo record for ordinary undo maps to the following (earlier) undo.
(defconst undo-equiv-table (make-hash-table :test 'eq :weakness t) (#$ . 81080))
#@74 Non-nil if `pending-undo-list' is not just a tail of `buffer-undo-list'.
(defvar undo-in-region nil (#$ . 81339))
#@47 If t, `undo' doesn't go through redo entries.
(defvar undo-no-redo nil (#$ . 81459))
#@118 Within a run of consecutive undo commands, list remaining to be undone.
If t, we undid all the way to the end of it.
(defvar pending-undo-list nil (#$ . 81551))
#@362 Undo some previous changes.
Repeat this command to undo more changes.
A numeric ARG serves as a repeat count.
In Transient Mark mode when the mark is active, undo changes only within
the current region. Similarly, when not in Transient Mark mode, just \[universal-argument]
as an argument limits undo to changes within the current region.
(fn &optional ARG)
(defalias 'undo #[256 "\306 \307 \206 pr\211q\210\310 )9\205 \311N\312\313\314=\203> \n\315=\204e \211@\312=\2035 \211A\262\202' \316\f\"\262\204e \317 \204M \205O \247?\205O ?\211\203^ \313\320 \321 \"\210\202a \313 \210\322\323!\210\314\316\n\f\"\324 \325 =\204\217 \326\327!\204~ \204\202 \330\202\203 \331
\203\213 \332\202\214 \333#\262\211:\203\254 !\203\254 \316\f\"\211\205\245 \211\211\262\262\204\231 \211\210\322\247\203\273 \334!\202\274 \323!\210 \211@\312=\203\315 \211A\262\202\277 \335
\204\331 \n=\203\335 \315\202\336 \n\f#\266 \312@\203:@\250\2030@\203\375 A\241\210\202 AA\262@\203,\211@=\203\"\203 A\241\210\202%A\202%\262A\262\202\312\262\210\262A\262\202\344 \266\203N\306 \204Nrq\210\336!\210)\211\205V\337\340\"\207" [last-command this-command pending-undo-list buffer-undo-list undo-equiv-table undo-in-region buffer-modified-p buffer-base-buffer recent-auto-save-p undo-inhibit-region nil undo-start undo t gethash region-active-p region-beginning region-end undo-more 1 selected-window minibuffer-window format "%s%s" "Undo" "Redo" " in region" "" prefix-numeric-value puthash delete-auto-save-file-if-necessary message "%s" undo-no-redo] 12 (#$ . 81719) "*P"])
#@136 Make BUFFER stop keeping undo information.
No argument or nil as argument means do this for the current buffer.
(fn &optional BUFFER)
(defalias 'buffer-disable-undo #[256 "r\211\203 \301!\202\f pq\210\302\211)\207" [buffer-undo-list get-buffer t] 3 (#$ . 83352) nil])
#@187 Undo some previous changes.
Repeat this command to undo more changes.
A numeric ARG serves as a repeat count.
Contrary to `undo', this will not redo a previous undo.
(fn &optional ARG)
(defalias 'undo-only #[256 "\301\302!)\207" [undo-no-redo t undo] 3 (#$ . 83631) "*p"])
#@99 Non-nil while performing an undo.
Some change-hooks test this variable to do something different.
(defvar undo-in-progress nil (#$ . 83913))
#@187 Undo back N undo-boundaries beyond what was already undone recently.
Call `undo-start' to get ready to undo recent changes,
then call `undo-more' one or more times to undo them.
(fn N)
(defalias 'undo-more #[257 "<\204 \303\304 \205\f \305P!\210\306\307\"\211?\205 \306\211)\207" [pending-undo-list undo-in-region undo-in-progress user-error "No further undo information" " for region" t primitive-undo] 5 (#$ . 84061)])
#@95 Undo N records from the front of the list LIST.
Return what remains of the list.
(fn N LIST)
(defalias 'primitive-undo #[514 "\303\211\304\211\305V\203%\211A\262\242\211\262\203 \211\250\203( \211b\210\202 \211:\203\211@\211\303=\203a A\211\211\306 \232\204O \211:\203\\ \211@AD\306 \232\203\\ \307\310!\203X \310 \210\311\304!\210\266\202\211\204\223 A\211@A\211@A\211@A\211eV\204\204 dW\203\210 \312\313!\210\314$\266\f\202\211\250\203\305 A\211\250\203\274 \211eV\204\255 dW\203\261 \312\313!\210\211b\210\211|\266\202\301 \312\315\"\210\210\202\211\316=\203AA\211p@\250\203+@A\211@A\211@A\211@A\211 \317\304\"\317\303\"eV\204 dW\203\312\313!\210\316\"\210U\203\\U\204 \312\320!\210\304\211\223\210\211\304\211\223\266\202/\316!\210\211p=\2049\312\321!\210\303\262\266\202\211;\203\333A\211\250\203\322\211\304\322!\211eW\204_\211dV\203c\312\313!\210\323
@\242!\203\225\f@\243\250\203\225\f\211A\262\242\211@\324!p=\203\220U\203\220B\262\266\202c\305W\203\245[b\210c\210\202\256b\210c\210b\210\211\203\315\211@\324@!\203\306\211@@AZ\304\223\210A\266\202\202\257\266\202\327\312\315\"\210\210\202\323!\203
A\211\250\203\211\325\326\"\210\324!\203\377\211Z\324!\223\210\266\202 \312\315\"\210\210\202\312\315\"\210\210\202 \312\315\"\210\202 S\262\202\n \2036=\2036\316\327\304EB*\266\207" [buffer-undo-list inhibit-point-motion-hooks inhibit-read-only t nil 0 visited-file-modtime fboundp unlock-buffer set-buffer-modified-p error "Changes to be undone are outside visible portion of buffer" put-text-property "Unrecognized entry in undo list %S" apply copy-marker "Changes to be undone by function different from announced" "Undo function switched buffer" abs markerp marker-buffer warn "Encountered %S entry in undo list with no matching (TEXT . POS) entry" cdr] 30 (#$ . 84497)])
#@43 Make a copy of undo list LIST.
(fn LIST)
(defalias 'undo-copy-list #[257 "\300\301\"\207" [mapcar undo-copy-list-1] 4 (#$ . 86453)])
#@12
(fn ELT)
(defalias 'undo-copy-list-1 #[257 "\211:\203
\211@\300A!B\207\207" [undo-copy-list-1] 4 (#$ . 86594)])
#@339 Set `pending-undo-list' to the front of the undo list.
The next call to `undo-more' will undo the most recently made change.
If BEG and END are specified, then undo only elements
that apply to text between BEG and END are used; other undo elements
are ignored. If BEG and END are nil, all undo elements are used.
(fn &optional BEG END)
(defalias 'undo-start #[512 "\302=\203\n \303\304!\210\203# \211\203# U\204# \305^]\"\202$ \211\207" [buffer-undo-list pending-undo-list t user-error "No undo information in this buffer" undo-make-selective-list] 6 (#$ . 86717)])
#@309 Return a list of undo elements for the region START to END.
The elements come from `buffer-undo-list', but we keep only the
elements inside this region, and discard those outside this
region. The elements' positions are adjusted so as the returned
list can be applied to the current buffer.
(fn START END)
(defalias 'undo-make-selective-list #[514 "\303C\303\211\203\255 \203 \304\n\"\203 \304\n\"\262\202
@\262\211\2042 @\203\244 \303B\262\202\244 \211:\203J \211@\305=\203J \204\244 \211B\262\202\244 \306\242!\204\244 \307\"\310#\203\223 \311!A\\\262\211B\262\211\242;\203\243 \211\243\250\203\243 A\306@\242!\203\217 \211A\262\242B\262\202z \210\202\243 \311!\211A\312U\204\242 \211B\262\210\210\211A\262\210\202 \237\207" [buffer-undo-list undo-no-redo undo-equiv-table nil gethash t markerp undo-adjust-elt undo-elt-in-region undo-delta 0] 11 (#$ . 87302)])
#@370 Determine whether UNDO-ELT falls inside the region START ... END.
If it crosses the edge, we return nil.
Generally this function is not useful for determining
whether (MARKER . ADJUSTMENT) undo elements are in the region,
because markers can be arbitrarily relocated. Instead, pass the
marker adjustment's corresponding (TEXT . POS) element.
(fn UNDO-ELT START END)
(defalias 'undo-elt-in-region #[771 "\250\203 Y\205l X\207\300=\203 \301\207:\204 \300\207@;\2034 \302A!Y\205l \302A!X\207:\203G \303@!\203G \304@#\207@\204[ \305\233\211@Y\205Z \211AX\207@\250\205l @Y\205l AX\207" [nil t abs markerp <= 3] 7 (#$ . 88218)])
#@186 Test whether UNDO-ELT crosses one edge of that region START ... END.
This assumes we have already decided that UNDO-ELT
is not *inside* the region START...END.
(fn UNDO-ELT START END)
(defalias 'undo-elt-crosses-region #[771 ":\204 \300\207@\204 \301\233\211@W\205 \211AV\207@\250\205, @W\205, AV\207" [nil 3] 6 (#$ . 88880)])
(make-obsolete 'undo-elt-crosses-region nil "25.1")
#@81 Return adjustment of undo element ELT by the undo DELTAS
list.
(fn ELT DELTAS)
(defalias 'undo-adjust-elt #[514 "\250\203\n \300\"\207:\203\214 @\211\250\2030 A\211\250\203* \211\301#\266\202\202+ \262\202\213 \211;\203^ A\211\250\203X \211\211\302W\203I \303\202J \304\300\305!\"_B\266\202\202Y \262\202\213 \211\204\212 A\211@A\211@A\211@A\211\306\301#BBB\266\204\266\207\202\213 \207\207" [undo-adjust-pos undo-adjust-beg-end 0 -1 1 abs nil] 21 (#$ . 89279)])
#@89 Return cons of adjustments to BEG and END by the undo DELTAS
list.
(fn BEG END DELTAS)
(defalias 'undo-adjust-beg-end #[771 "\300\"\211\300\301#]B\207" [undo-adjust-pos t] 10 (#$ . 89788)])
#@123 Return adjustment of POS by the undo DELTAS list, comparing
with < or <= based on USE-<.
(fn POS DELTAS &optional USE-<)
(defalias 'undo-adjust-pos #[770 "\211\203) \211@\203 \211@W\202 \211@X\203\" \211@AZ]\262A\266\202\202 \207" [] 8 (#$ . 89991)])
#@17
(fn UNDO-ELT)
(defalias 'undo-delta #[257 "\211:\203% \211@;\203 \300A!@GB\207\211@\250\203# \211@@AZB\207\301\207\302\207" [abs (0 . 0) (0 . 0)] 4 (#$ . 90261)])
#@669 Describe the cause of the last undo-boundary.
If `explicit', the last boundary was caused by an explicit call to
`undo-boundary', that is one not called by the code in this
section.
If it is equal to `timer', then the last boundary was inserted
by `undo-auto--boundary-timer'.
If it is equal to `command', then the last boundary was inserted
automatically after a command, that is by the code defined in
this section.
If it is equal to a list, then the last boundary was inserted by
an amalgamating command. The car of the list is the number of
times an amalgamating command has been called, and the cdr are the
buffers that were changed during the last command.
(defvar undo-auto--last-boundary-cause nil (#$ . 90438))
(make-variable-buffer-local 'undo-auto--last-boundary-cause)
#@127 Current timer which will run `undo-auto--boundary-timer' or nil.
If set to non-nil, this will effectively disable the timer.
(defvar undo-auto-current-boundary-timer nil (#$ . 91231))
#@143 Non-nil if `this-command' should be amalgamated.
This variable is set to nil by `undo-auto--boundaries' and is set
by `undo-auto-amalgamate'.
(defvar undo-auto--this-command-amalgamating nil (#$ . 91423))
#@69 Return non-nil if `buffer-undo-list' needs a boundary at the start.
(defalias 'undo-auto--needs-boundary-p #[0 "\242\207" [buffer-undo-list] 1 (#$ . 91634)])
#@202 Return the number of amalgamating last commands or nil.
Amalgamating commands are, by default, either
`self-insert-command' and `delete-char', but can be any command
that calls `undo-auto-amalgamate'.
(defalias 'undo-auto--last-boundary-amalgamating-number #[0 "\242\207" [undo-auto--last-boundary-cause] 1 (#$ . 91800)])
#@190 Add an `undo-boundary' to the current buffer if needed.
REASON describes the reason that the boundary is being added; see
`undo-auto--last-boundary-cause' for more information.
(fn CAUSE)
(defalias 'undo-auto--ensure-boundary #[257 "\302 \205$ \303 \304 \210\305=\203 \211\203 \211T\202 \306B\202 \211\262\207" [undo-auto--undoably-changed-buffers undo-auto--last-boundary-cause undo-auto--needs-boundary-p undo-auto--last-boundary-amalgamating-number undo-boundary amalgamate 0] 4 (#$ . 92130)])
#@186 Check recently changed buffers and add a boundary if necessary.
REASON describes the reason that the boundary is being added; see
`undo-last-boundary' for more information.
(fn CAUSE)
(defalias 'undo-auto--boundaries #[257 "\211\301=\203 \302\300p\"\210\211\203( \211@\303!\203! r\211q\210\304!\210)A\266\202\202\f \210\305\211\207" [undo-auto--undoably-changed-buffers command add-to-list buffer-live-p undo-auto--ensure-boundary nil] 5 (#$ . 92644)])
#@59 Timer function run by `undo-auto-current-boundary-timer'.
(defalias 'undo-auto--boundary-timer #[0 "\301\302\303!\207" [undo-auto-current-boundary-timer nil undo-auto--boundaries timer] 2 (#$ . 93110)])
#@60 Ensure that the `undo-auto-current-boundary-timer' is set.
(defalias 'undo-auto--boundary-ensure-timer #[0 "?\205\f \301\302\303\304#\211\207" [undo-auto-current-boundary-timer run-at-time 10 nil undo-auto--boundary-timer] 4 (#$ . 93320)])
#@186 List of buffers that have changed recently.
This list is maintained by `undo-auto--undoable-change' and
`undo-auto--boundaries' and can be affected by changes to their
default values.
(defvar undo-auto--undoably-changed-buffers nil (#$ . 93569))
#@48 Add an `undo-boundary' in appropriate buffers.
(defalias 'undo-auto--add-boundary #[0 "\301\302\211\203\f \303\202
\304\262!\207" [undo-auto--this-command-amalgamating undo-auto--boundaries nil amalgamate command] 3 (#$ . 93822)])
#@347 Amalgamate undo if necessary.
This function can be called before an amalgamating command. It
removes the previous `undo-boundary' if a series of such calls
have been made. By default `self-insert-command' and
`delete-char' are the only amalgamating commands, although this
function could be called by any command wishing to have this
behavior.
(defalias 'undo-auto-amalgamate #[0 "\306 \307\211\205C \211 W\203@ \n =\203@ \fA\211\205; \211@\310!\2034 r\211q\210
:\2033
@\2043
A)A\266\202\202 \262\202C \311\211\207" [undo-auto--this-command-amalgamating amalgamating-undo-limit this-command last-command undo-auto--last-boundary-cause buffer-undo-list undo-auto--last-boundary-amalgamating-number t buffer-live-p 0] 5 (#$ . 94064)])
#@44 Called after every undoable buffer change.
(defalias 'undo-auto--undoable-change #[0 "p>\2041 \211\203, \211A\301@!\204 \211\204 \211\262\202( @\240\210A\241\210\210\202 \210pB\302 \207" [undo-auto--undoably-changed-buffers buffer-live-p undo-auto--boundary-ensure-timer] 4 (#$ . 94814)])
#@176 Amalgamate changes in change-group since HANDLE.
Remove all undo boundaries between the state of HANDLE and now.
HANDLE is as returned by `prepare-change-group'.
(fn HANDLE)
(defalias 'undo-amalgamate-change-group #[257 "\211\211\205\200 \211@Cr\211\242@q\210\211\242A\240\210:\203x \211\242\242\242\243\301\302\303\304\305#\306\"\307$\216\242:\203@ \242\310\240\210\242\311\241\210\242\203X \242\312!=\204X \312!\312!=\204u @\203h \313\311\"\262\202u \211A\313\311\"\262\241\266)\266)A\266\202\202 \207" [buffer-undo-list make-byte-code 0 "\300\242:\205 \300\242\301\240\210\300\242\302\241\207" vconcat vector [] 2 t nil last delq] 13 (#$ . 95123)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable undo-ask-before-discard funcall function #[0 "\300\207" [nil] 1] "If non-nil ask about discarding undo info for the current command.\nNormally, Emacs discards the undo info for the current command if\nit exceeds `undo-outer-limit'. But if you set this option\nnon-nil, it asks in the echo area whether to discard the info.\nIf you answer no, there is a slight risk that Emacs might crash, so\ndo it only if you really want to undo the command.\n\nThis option is mainly intended for debugging. You have to be\ncareful if you use it for other purposes. Garbage collection is\ninhibited while the question is asked, meaning that Emacs might\nleak memory. So you should make sure that you do not wait\nexcessively long before answering the question." :type boolean :group undo :version "22.1"] 10)
#@238 If non-nil, an extra level of size that's ok in an undo item.
We don't ask the user about truncating the undo list until the
current item gets bigger than this amount.
This variable matters only if `undo-ask-before-discard' is non-nil.
(defvar undo-extra-outer-limit nil (#$ . 96707))
(byte-code "\301\302!\210\303\301\207" [undo-outer-limit-function make-variable-buffer-local undo-extra-outer-limit undo-outer-limit-truncate] 2)
#@13
(fn SIZE)
(defalias 'undo-outer-limit-truncate #[257 "\203* \203 \211 V\205: \211\306\\\307\211\211 \310\311\312\313 #!+\205) \307\211\314\207\315\316\311\317\313 #\320P\321#\210\307\314\207" [undo-ask-before-discard undo-extra-outer-limit executing-kbd-macro track-mouse use-dialog-box buffer-undo-list 50000 nil yes-or-no-p format-message "Buffer `%s' undo info is %d bytes long; discard it? " buffer-name t display-warning (undo discard-info) "Buffer `%s' undo info was %d bytes long.\n" "The undo info was discarded because it exceeded `undo-outer-limit'.\n\nThis is normal if you executed a command that made a huge change\nto the buffer. In that case, to prevent similar problems in the\nfuture, set `undo-outer-limit' to a value that is large enough to\ncover the maximum size of normal changes you expect a single\ncommand to make, but not so large that it might exceed the\nmaximum memory allotted to Emacs.\n\nIf you did not execute any such command, the situation is\nprobably due to a bug and you should report it.\n\nYou can disable the popping up of this buffer by adding the entry\n(undo discard-info) to the user option `warning-suppress-types',\nwhich is defined in the `warnings' library.\n" :warning] 8 (#$ . 97146)])
#@153 History list for some commands that read shell commands.
Maximum length of the history list is determined by the value
of `history-length', which see.
(defvar shell-command-history nil (#$ . 98404))
#@66 Switch used to have the shell execute its command line argument.
(defvar shell-command-switch (purecopy "-c") (#$ . 98610))
#@265 Buffer name for `shell-command' and `shell-command-on-region' error output.
This buffer is used when `shell-command' or `shell-command-on-region'
is run interactively. A value of nil means that output to stderr and
stdout will be intermixed in the output stream.
(defvar shell-command-default-error-buffer nil (#$ . 98741))
#@203 Return a list of all commands associated with the current file.
This function is used to add all related commands retrieved by `mailcap'
to the end of the list of defaults just after the default value.
(defalias 'minibuffer-default-add-shell-commands #[0 "<\203\n @\202 \211\205 \301\302\303\304#\205 \305C!\306\307\310\311\312\313!\314\"\315\316%\"\262<\2039 \317\"\202< B\207" [minibuffer-default require mailcap nil t mailcap-file-default-commands mapcar make-byte-code 257 "\211\301\300Q\207" vconcat vector [" "] 4 "\n\n(fn COMMAND)" append] 9 (#$ . 99073) nil])
#@58 Keymap used for completing shell commands in minibuffer.
(defvar minibuffer-local-shell-command-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [minibuffer-local-map make-sparse-keymap set-keymap-parent define-key " " completion-at-point] 5) (#$ . 99663))
#@246 Read a shell command from the minibuffer.
The arguments are the same as the ones of `read-from-minibuffer',
except READ and KEYMAP are missing and HIST defaults
to `shell-command-history'.
(fn PROMPT &optional INITIAL-CONTENTS HIST &rest ARGS)
(defalias 'read-shell-command #[897 "\301\302!\210\303\304C\211\305\306\307\310\311\"\312\"\313$\240\210\305\306\314\310\311!\315\"\313$\216\316\317\242\"\210\320\321\304 \2068 \322 &)\207" [minibuffer-local-shell-command-map require shell #[0 "\301 \210\302\300!\210\303\211\207" [minibuffer-default-add-function shell-completion-vars make-local-variable minibuffer-default-add-shell-commands] 2] nil make-byte-code 0 "\302\303\301\242\"\210\300 \207" vconcat vector [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook apply read-from-minibuffer shell-command-history] 14 (#$ . 99939)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \210\300\321\302\303\322DD\323\306\324\310\311\312\325& \210\300\326\302\303\327DD\330\306\331\310\311\312\325& \210\300\332\302\303\333DD\334\306\335\310\311\312\325& \207" [custom-declare-variable async-shell-command-buffer funcall function #[0 "\300\207" [confirm-new-buffer] 1] "What to do when the output buffer is used by another shell command.\nThis option specifies how to resolve the conflict where a new command\nwants to direct its output to the buffer `*Async Shell Command*',\nbut this buffer is already taken by another running shell command.\n\nThe value `confirm-kill-process' is used to ask for confirmation before\nkilling the already running process and running a new process\nin the same buffer, `confirm-new-buffer' for confirmation before running\nthe command in a new buffer with a name other than the default buffer name,\n`new-buffer' for doing the same without confirmation,\n`confirm-rename-buffer' for confirmation before renaming the existing\noutput buffer and running a new command in the default buffer,\n`rename-buffer' for doing the same without confirmation." :type (choice (const :tag "Confirm killing of running command" confirm-kill-process) (const :tag "Confirm creation of a new buffer" confirm-new-buffer) (const :tag "Create a new buffer" new-buffer) (const :tag "Confirm renaming of existing buffer" confirm-rename-buffer) (const :tag "Rename the existing buffer" rename-buffer)) :group shell :version "24.3" async-shell-command-display-buffer #[0 "\300\207" [t] 1] "Whether to display the command buffer immediately.\nIf t, display the buffer immediately; if nil, wait until there\nis output." (choice (const :tag "Display buffer immediately" t) (const :tag "Display buffer on output" nil)) "26.1" async-shell-command-width #[0 "\300\207" [nil] 1] "Number of display columns available for asynchronous shell command output.\nIf nil, use the shell default number (usually 80 columns).\nIf a positive integer, tell the shell to use that number of columns for\ncommand output." (choice (const :tag "Use system limit" nil) (integer :tag "Fixed width" :value 80)) "27.1" shell-command-prompt-show-cwd #[0 "\300\207" [nil] 1] "If non-nil, show current directory when prompting for a shell command.\nThis affects `shell-command' and `async-shell-command'." boolean shell-command-dont-erase-buffer #[0 "\300\207" [nil] 1] "Whether to erase the output buffer before executing shell command.\n\nA nil value erases the output buffer before execution of the\nshell command, except when the output buffer is the current one.\n\nThe value `erase' ensures the output buffer is erased before\nexecution of the shell command even if it is the current buffer.\n\nOther non-nil values prevent the output buffer from being erased; they\nalso reposition point in the shell output buffer after execution of the\nshell command, except when the output buffer is the current buffer.\n\nThe value `beg-last-out' sets point at the beginning of the last\noutput, `end-last-out' sets point at the end of the last output,\nand `save-point' restores the buffer position as it was before the\nshell command." (choice (const :tag "Erase output buffer if not the current one" nil) (const :tag "Always erase output buffer" erase) (const :tag "Set point to beginning of last output" beg-last-out) (const :tag "Set point to end of last output" end-last-out) (const :tag "Save point" save-point))] 10)
#@315 Record of point positions in output buffers after command completion.
The value is an alist whose elements are of the form (BUFFER . POS),
where BUFFER is the output buffer, and POS is the point position
in BUFFER once the command finishes.
This variable is used when `shell-command-dont-erase-buffer' is non-nil.
(defvar shell-command-saved-pos nil (#$ . 104400))
#@261 Store a buffer position or erase the buffer.
Optional argument OUTPUT-TO-CURRENT-BUFFER, if non-nil, means that the output
of the shell command goes to the caller current buffer.
See `shell-command-dont-erase-buffer'.
(fn &optional OUTPUT-TO-CURRENT-BUFFER)
(defalias 'shell-command-save-pos-or-erase #[256 "\304\211\305\267\202 ?\2053 `\2023 ?\2053 d\2023 \306=\204, ?\2053 ?\2053 \307\310 \210)\304\262\211\205C db\210pB B\211\207" [shell-command-dont-erase-buffer buffer-read-only inhibit-read-only shell-command-saved-pos nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (save-point 10 beg-last-out 19)) erase t erase-buffer] 5 (#$ . 104772)])
#@247 Set point in BUFFER after command complete.
BUFFER is the output buffer of the command; if nil, then defaults
to the current BUFFER.
Set point to the `cdr' of the element in `shell-command-saved-pos'
whose `car' is BUFFER.
(fn &optional BUFFER)
(defalias 'shell-command-set-point-after-cmd #[256 "\205g \206\n p\302 \"\303 \"\304!\205e \305!@rq\210d)\203- \306>\2040 \211\262\203; \307\"\202c \203G rq\210b\210)\310 \311\312\313\314\315!\316\"\317$\216\320\321\"\307\"\262)\262\266\202\266\203\207" [shell-command-dont-erase-buffer shell-command-saved-pos alist-get assq-delete-all buffer-live-p get-buffer-window-list (save-point beg-last-out end-last-out) set-window-point current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 display-buffer (nil (inhibit-switch-frame . t))] 13 (#$ . 105482)])
#@811 Execute string COMMAND asynchronously in background.
Like `shell-command', but adds `&' at the end of COMMAND
to execute it asynchronously.
The output appears in the buffer `*Async Shell Command*'.
That buffer is in shell mode.
You can configure `async-shell-command-buffer' to specify what to do
when the `*Async Shell Command*' buffer is already taken by another
running shell command. To run COMMAND without displaying the output
in a window you can configure `display-buffer-alist' to use the action
`display-buffer-no-window' for the buffer `*Async Shell Command*'.
In Elisp, you will often be better served by calling `start-process'
directly, since it offers more control and does not impose the use of
a shell (with its need to quote arguments).
(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)
(defalias 'async-shell-command #[769 "\300\301\"\204\f \302P\262\303#\207" [string-match "&[ ]*\\'" " &" shell-command] 7 (#$ . 106364) (byte-code "\306\203 \307\310\311 !\"\202 \312\313\211\n\206 \314=\205 \315\313\316\"\211\205& \317!\262$\f
E\207" [shell-command-prompt-show-cwd default-directory buffer-file-name major-mode current-prefix-arg shell-command-default-error-buffer read-shell-command format-message "Async shell command in `%s': " abbreviate-file-name "Async shell command: " nil dired-mode dired-get-filename t file-relative-name] 7)])
#@2938 Execute string COMMAND in inferior shell; display output, if any.
With prefix argument, insert the COMMAND's output at point.
Interactively, prompt for COMMAND in the minibuffer.
If `shell-command-prompt-show-cwd' is non-nil, show the current
directory in the prompt.
If COMMAND ends in `&', execute it asynchronously.
The output appears in the buffer `*Async Shell Command*'.
That buffer is in shell mode. You can also use
`async-shell-command' that automatically adds `&'.
Otherwise, COMMAND is executed synchronously. The output appears in
the buffer `*Shell Command Output*'. If the output is short enough to
display in the echo area (which is determined by the variables
`resize-mini-windows' and `max-mini-window-height'), it is shown
there, but it is nonetheless available in buffer `*Shell Command
Output*' even though that buffer is not automatically displayed.
To specify a coding system for converting non-ASCII characters
in the shell command output, use \[universal-coding-system-argument] before this command.
Noninteractive callers can specify coding systems by binding
`coding-system-for-read' and `coding-system-for-write'.
The optional second argument OUTPUT-BUFFER, if non-nil,
says to put the output in some other buffer.
If OUTPUT-BUFFER is a buffer or buffer name, erase that buffer
and insert the output there; a non-nil value of
`shell-command-dont-erase-buffer' prevents the buffer from being
erased. If OUTPUT-BUFFER is not a buffer and not nil (which happens
interactively when the prefix argument is given), insert the
output in current buffer after point leaving mark after it. This
cannot be done asynchronously.
The user option `shell-command-dont-erase-buffer', which see, controls
whether the output buffer is erased and where to put point after
the shell command.
If the command terminates without error, but generates output,
and you did not specify "insert it in the current buffer",
the output can be displayed in the echo area or in its buffer.
If the output is short enough to display in the echo area
(determined by the variable `max-mini-window-height' if
`resize-mini-windows' is non-nil), it is shown there.
Otherwise, the buffer containing the output is displayed.
If there is output and an error, and you did not specify "insert it
in the current buffer", a message about the error goes at the end
of the output.
If the optional third argument ERROR-BUFFER is non-nil, it is a buffer
or buffer name to which to direct the command's standard error output.
If it is nil, error output is mingled with regular output.
In an interactive call, the variable `shell-command-default-error-buffer'
specifies the value of ERROR-BUFFER.
In Elisp, you will often be better served by calling `call-process' or
`start-process' directly, since they offer more control and do not
impose the use of a shell (with its need to quote arguments).
(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)
(defalias 'shell-command #[769 "\306\307!\310\"\211\203 \211\310$\202\377\203\260 \311\312\"\204\260 p=\204< ;\2031 \313!p=\204< \314!\204\260 ;\204\260 \205J \315\316\317 \206H \n\"!\320 \210\321\322\323\"\210\324\325!\210\326\322\203c \323D\202d \323#\210\211\203\241 \327!\203\241 \330\331!\3328\262W\203\235 r\333!q\210d`Zo\204\215 \334c\210\335\322\"\210dZb\266\336p!\210)\337!\210\340\323!\341 `p\223\210b\262\202\377\342 \343\330\344\345\346!\347\"\350$\216\311\312\"\203\356\333\206\314 \351!\352!\353!\354 \330\211\224#\262 \203B \355\267\202B\356\357!\203\364 \360!\210\202B\361\362!\210\202B\356\363!\203 \364!\262\202B\361\362!\210\202B\364!\262\202B\356\365!\203.rq\210\366 \210)\333!\262\202B\361\362!\210\202Brq\210\366 \210)\333!\262rq\210\324 \210\211\367\f!\203Z\370\371\f\"
B\202[
\372\373 #\262)\374@\375\376!\210\377 \210\201B \201C \"\210\201D \201E \"\210A\203\217\336\201F \"\202\350\201G \201H !\201I \201J \343\330\201K \345\346!\201L \"\201M $\343\201N \201O \345\346!\201P \"\201Q \201R %B\262\343\201S \201T \345\346!\201U \"\201V \201W %\201X BC$\262)\266\204\202\374\201Y ``\322&)\262\207" [default-directory small-temporary-file-directory temporary-file-directory async-shell-command-buffer async-shell-command-width process-environment find-file-name-handler directory-file-name shell-command string-match "[ ]*&[ ]*\\'" get-buffer bufferp make-temp-file expand-file-name "scor" barf-if-buffer-read-only push-mark nil t shell-command-save-pos-or-erase output-to-current-buffer call-process-shell-command file-exists-p 0 file-attributes 7 get-buffer-create "\f\n" format-insert-file display-buffer delete-file mark mark-marker match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "*Async Shell Command*" buffer-name get-buffer-process substring #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (confirm-kill-process 231 confirm-new-buffer 251 new-buffer 272 confirm-rename-buffer 280 rename-buffer 309)) yes-or-no-p "A command is running in the default buffer. Kill it? " kill-process user-error "Shell command in progress" "A command is running in the default buffer. Use a new buffer? " generate-new-buffer "A command is running in the default buffer. Rename it? " rename-uniquely natnump format "COLUMNS=%d" start-process-shell-command "Shell" (":%s") require shell shell-mode mode-line-process async-shell-command-display-buffer set-process-sentinel shell-command-sentinel set-process-filter comint-output-filter (nil (allow-no-window . t)) make-symbol "nonce" advice--add-function :before "\301\300!\207" [process-filter] 2 257 "\301\300\"\207" [set-process-filter] 4 "\n\n(fn GV--VAL)" 514 "\301!\302!\205\" \303\304!\300\"\211\304!=\204 \305\"\210\266\306!\207" [process-buffer buffer-live-p advice--remove-function process-filter set-process-filter display-buffer] 8 "\n\n(fn PROC STRING)" name shell-command-on-region] 20 (#$ . 107751) (byte-code "\306\203 \307\310\311 !\"\202 \312\313\211\n\206 \314=\205 \315\313\316\"\211\205& \317!\262$\f
E\207" [shell-command-prompt-show-cwd default-directory buffer-file-name major-mode current-prefix-arg shell-command-default-error-buffer read-shell-command format-message "Shell command in `%s': " abbreviate-file-name "Shell command: " nil dired-mode dired-get-filename t file-relative-name] 7)])
#@925 Display MESSAGE in the echo area if possible, otherwise in a pop-up buffer.
MESSAGE may be either a string or a buffer.
A pop-up buffer is displayed using `display-buffer' if MESSAGE is too long
for maximum height of the echo area, as defined by `max-mini-window-height'
if `resize-mini-windows' is non-nil.
Returns either the string shown in the echo area, or when a pop-up
buffer is used, the window used to display it.
If MESSAGE is a string, then the optional argument BUFFER-NAME is the
name of the buffer used to display it in the case where a pop-up buffer
is used, defaulting to `*Message*'. In the case where MESSAGE is a
string and it is displayed in the echo area, it is not specified whether
the contents are inserted into the buffer anyway.
Optional arguments ACTION and FRAME are as for `display-buffer',
and are used only if a pop-up buffer is displayed.
(fn MESSAGE &optional BUFFER-NAME ACTION FRAME)
(defalias 'display-message-or-buffer #[1025 ";\203 \302\303\"\204 \304\305\"\207;\203. \302\303\"GSU\203. \304\305\306\307GS#\"\207r\310!\2039 \202@ \311\206? \312!q\210\310!\204N \313 \210c\210\314 \307U\203Y \307\202` \315\316\211\211\317 $\211\307U\206\261 \211\320X\204\220 \211\203\213 \321 !\203~ \322 _\202\214 \250\203\207 \202\214 \320\202\214 \320X\203\251 \323p!\204\251 db\210n\203\240 \324u\210\304\305e`{\"\202\261 eb\210\325p#\262)\207" [resize-mini-windows max-mini-window-height string-match "\n" message "%s" substring 0 bufferp get-buffer-create "*Message*" erase-buffer buffer-size count-screen-lines nil minibuffer-window 1 floatp frame-height get-buffer-window -1 display-buffer] 10 (#$ . 114169)])
#@23
(fn PROCESS SIGNAL)
(defalias 'shell-command-sentinel #[514 "\300!\301>\205 \302\303!!\210\304\305\306!AA@\307\310\311##\207" [process-status (exit signal) shell-command-set-point-after-cmd process-buffer message "%s: %s." process-command substring 0 -1] 9 (#$ . 115844)])
#@2510 Execute string COMMAND in inferior shell with region as input.
Normally display output (if any) in temp buffer `*Shell Command Output*';
Prefix arg means replace the region with it. Return the exit code of
COMMAND.
To specify a coding system for converting non-ASCII characters
in the input and output to the shell command, use \[universal-coding-system-argument]
before this command. By default, the input (from the current buffer)
is encoded using coding-system specified by `process-coding-system-alist',
falling back to `default-process-coding-system' if no match for COMMAND
is found in `process-coding-system-alist'.
Noninteractive callers can specify coding systems by binding
`coding-system-for-read' and `coding-system-for-write'.
If the command generates output, the output may be displayed
in the echo area or in a buffer.
If the output is short enough to display in the echo area
(determined by the variable `max-mini-window-height' if
`resize-mini-windows' is non-nil), it is shown there.
Otherwise it is displayed in the buffer `*Shell Command Output*'.
The output is available in that buffer in both cases.
If there is output and an error, a message about the error
appears at the end of the output.
Optional fourth arg OUTPUT-BUFFER specifies where to put the
command's output. If the value is a buffer or buffer name,
erase that buffer and insert the output there; a non-nil value of
`shell-command-dont-erase-buffer' prevent to erase the buffer.
If the value is nil, use the buffer `*Shell Command Output*'.
Any other non-nil value means to insert the output in the
current buffer after START.
Optional fifth arg REPLACE, if non-nil, means to insert the
output in place of text from START to END, putting point and mark
around it.
Optional sixth arg ERROR-BUFFER, if non-nil, specifies a buffer
or buffer name to which to direct the command's standard error
output. If nil, error output is mingled with regular output.
When called interactively, `shell-command-default-error-buffer'
is used for ERROR-BUFFER.
Optional seventh arg DISPLAY-ERROR-BUFFER, if non-nil, means to
display the error buffer if there were any errors. When called
interactively, this is t.
Non-nil REGION-NONCONTIGUOUS-P means that the region is composed of
noncontiguous pieces. The most common example of this is a
rectangular region, where the pieces are separated by newline
characters.
(fn START END COMMAND &optional OUTPUT-BUFFER REPLACE ERROR-BUFFER DISPLAY-ERROR-BUFFER REGION-NONCONTIGUOUS-P)
(defalias 'shell-command-on-region #[2051 "\205 \306\307\310\206\f \"!\311C\203R \n\312!\313P\311\314\315!r\211q\210\316\317\320\321\322!\323\"\324$\216c\210\325ed \326\211\311\f&\210\327\330 \313\"\262*\210 b\210
!\266\202A\204h \203\251 \331!\204\251 ;\204\251 \205q W\nb\210\203 \332`\333\"\210\334\f\f\f \203\225 \326 D\202\226 \326%\240\210\203\245 \211\203\245 \335 \210\210\202A\336\206\260 \337!\340!\210\316\317\341\321\322#\342\"\343$\216\211p=\203/\344>\204\340 \211\345\337!=\204\346 \204\3110\n\n]d|\210e ^|\210\325ed \326\203\326 D\202\326\311\f&\240\210\202?1rq\210\204 \2111\347 \210)\210\334\f\f\f\311\203: D\202<%\240\210)\210\203z\350!\203z\317\351!\3528\262W\203vr\336!q\210db\210o\204h\353c\210\354\311\"\210\203u\355p!\210)\356!\210\211\242\207" [small-temporary-file-directory temporary-file-directory region-extract-function shell-file-name shell-command-switch region-insert-function make-temp-file expand-file-name "scor" nil delete "\n" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process-region t split-string buffer-string bufferp push-mark nomsg call-shell-region exchange-point-and-mark get-buffer-create "*Shell Command Output*" set-buffer-major-mode "r\302q\210\301\242\204
\305\202( \301\242;\203 \306\307\301\242\"\202( \301\242\310\232?\205( \306\311\301\242\")r\302q\210deV)\203= \312\302!\210\313\302!\207\300\203` \310\314\300!\3158\262W\203` \306\316\f\203[ \306\317\f\"\202\\ \320\"\202a \321\301\242\204l \322\323!\202\216 \301\242\310\232\203z \322\324\"\202\216 \301\242;\203\210 \322\325\301\242\"\202\216 \322\326\301\242#\207" [mode-line-process shell-command-default-error-buffer " - Error" format " - Signal [%s]" 0 " - Exit [%d]" display-message-or-buffer shell-command-set-point-after-cmd file-attributes 7 "some error output%s" " to the \"%s\" buffer" "" "no output" message "(Shell command failed with error)" "(Shell command succeeded with %s)" "(Shell command killed by signal %s)" "(Shell command failed with code %d and %s)"] 5 (nil erase) get-buffer region-active-p shell-command-save-pos-or-erase file-exists-p file-attributes 7 "\f\n" format-insert-file display-buffer delete-file shell-command-dont-erase-buffer buffer-read-only default-directory] 22 (#$ . 116132) (byte-code "\302\303 \204\n \304\305!\210\306\307!\262\310 \311 \211 \312\313 \257\207" [current-prefix-arg shell-command-default-error-buffer nil mark user-error "The mark is not set now, so there is no region" read-shell-command "Shell command on region: " region-beginning region-end t region-noncontiguous-p] 9)])
#@80 Execute shell command COMMAND and return its output as a string.
(fn COMMAND)
(defalias 'shell-command-to-string #[257 "\301\302!\303\216rq\210\304\305\"\210*rq\210\306 +\207" [standard-output generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] shell-command t buffer-string] 4 (#$ . 121393)])
#@794 Process files synchronously in a separate process that runs PROGRAM.
Similar to `call-process', but may invoke a file name handler based on
`default-directory'. The current working directory of the
subprocess is `default-directory'.
If PROGRAM is a remote file name, it should be processed
by `file-local-name' before passing it to this function.
Handle file names in INFILE and BUFFER normally; this differs
from `call-process', which does not support file name handlers
for INFILE and BUFFER. However, pass ARGS to the process
verbatim without file name handling, as `call-process' does.
Some file name handlers might not support all variants. For
example, they might treat DISPLAY as nil regardless of the actual
value passed.
(fn PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)
(defalias 'process-file #[1153 "\301\302\"\303C\303C\304\305\306\307\310\"\311\"\312$\216\203- \313\302\n\n\n\n\n&\202} \2039 \314!\240\210\211:\205K A@;\205K \315\316!\240\210\313\317 \242\206X \242\203f @\242D\202h &\242\203} \320\242A@\321#\210)\207" [default-directory find-file-name-handler process-file nil make-byte-code 0 "\301\242\203\n \302\301\242!\210\300\242\205 \302\300\242!\207" vconcat vector [delete-file] 2 apply file-local-copy make-temp-file "emacs" call-process copy-file t] 16 (#$ . 121738)])
#@388 Whether a call of `process-file' changes remote files.
By default, this variable is always set to t, meaning that a
call of `process-file' could potentially change any file on a
remote host. When set to nil, a file name handler could optimize
its behavior with respect to remote file attribute caching.
You should only ever change this variable with a let-binding;
never with `setq'.
(defvar process-file-side-effects t (#$ . 123096))
#@820 Start a program in a subprocess. Return the process object for it.
Similar to `start-process', but may invoke a file name handler based on
`default-directory'. See Info node `(elisp)Magic File Names'.
This handler ought to run PROGRAM, perhaps on the local host,
perhaps on a remote host that corresponds to `default-directory'.
In the latter case, the local part of `default-directory', the one
produced from it by `file-local-name', becomes the working directory
of the process on the remote host.
PROGRAM and PROGRAM-ARGS might be file names. They are not
objects of file name handler invocation, so they need to be obtained
by calling `file-local-name', in case they are remote file names.
File name handlers might not support pty association, if PROGRAM is nil.
(fn NAME BUFFER PROGRAM &rest PROGRAM-ARGS)
(defalias 'start-file-process #[899 "\301\302\"\211\203 \303\302&\202# \303\304%\207" [default-directory find-file-name-handler start-file-process apply start-process] 12 (#$ . 123541)])
(defvar process-menu-query-only nil)
(defvar process-menu-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [100] process-menu-delete-process] 5))
(defvar process-menu-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [process-menu-mode-hook variable-documentation put "Hook run after entering Process Menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp process-menu-mode-map definition-name process-menu-mode] 4)
(defvar process-menu-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [process-menu-mode-abbrev-table process-menu-mode-map variable-documentation put purecopy "Keymap for `process-menu-mode'." boundp process-menu-mode-syntax-table definition-name process-menu-mode (lambda (#1=#:def-tmp-var) (defvar process-menu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `process-menu-mode'." (lambda (#1#) (defvar process-menu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `process-menu-mode'." derived-mode-parent tabulated-list-mode] 5)
#@267 Major mode for listing the processes called by Emacs.
In addition to any hooks its parent mode `tabulated-list-mode' might have run,
this mode runs the hook `process-menu-mode-hook', as the final or penultimate step
during initialization.
\{process-menu-mode-map}
(defalias 'process-menu-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
\"=\204R \326
\325\"C#\210\327 !\210\330\f!\210
\"\331#\306\332!\210\333\334B$\335\336\337\334\307$\210)\340\341!\207" [delay-mode-hooks major-mode mode-name process-menu-mode-map process-menu-mode-syntax-table process-menu-mode-abbrev-table make-local-variable t tabulated-list-mode process-menu-mode "Process Menu" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table [("Process" 15 t) ("PID" 7 t) ("Status" 7 t) ("Buffer" 25 t) ("TTY" 12 t) ("Thread" 12 t) ("Command" 0 t)] process-menu-query-only "Process" nil add-hook tabulated-list-revert-hook list-processes--refresh run-mode-hooks process-menu-mode-hook local-abbrev-table tabulated-list-format tabulated-list-sort-key] 5 (#$ . 125994) nil])
#@53 Kill process at point in a `list-processes' buffer.
(defalias 'process-menu-delete-process #[0 "`\300\301\302\206 `\303\"\262!\210\304 \210\211d^b\210m\203 \305y\202\" \306 \207" [delete-process nil get-text-property tabulated-list-id revert-buffer -1 beginning-of-line] 6 (#$ . 127345) nil])
#@115 Recompute the list of processes for the Process List buffer.
Also, delete any process that is exited or signaled.
(defalias 'list-processes--refresh #[0 "\303\304 \211\203?\211@\305!\306>\203 \307!\210\2028 \203# \310!\2038\311!\312!\313!\2038 \314\315\313!\"\2029 \316\317!\320\305!!\321!\203g \322!\323\324\325\326\327\322 !\"\330\331\311\f\332BBBBBBBBB\202h \316\333!\206p \316\334!\203} \335\336!\204\201 \316\202\230 \334!\n=\203\216 \337\202\230 \336\334 !!\206\230 \316\340>\203\341 \331\211#\342=\203\365 \314\343\344\345\"\203\271 \346\202\272 \347\344\350\"\203\344 \314\351\344\352\"\203\333 \314\353\344\352\"\344 \354\"#\202\340 \344\355\"\"\202\361 \314\356\344\352\"\344\354\"##\202\314\357\344\360\"\206\377 \361\344\362\"\211\203\314\363\"\202\364\262#\262\202 \365\366\367 !\370# \371 &DB\266 A\266\202\202 \210\372 \207" [tabulated-list-entries process-menu-query-only main-thread nil process-list process-status (exit signal closed) delete-process process-query-on-exit-flag process-buffer process-type process-id format "%d" "--" process-name symbol-name buffer-live-p buffer-name face link help-echo format-message "Visit buffer `%s'" follow-link t (action process-menu-visit-buffer) process-tty-name process-thread fboundp thread-name "Main" (network serial) process-contact network "(%s %s)" plist-get :type "datagram" "network" :server "server on %s" :host "%s:%s" :service :local "connection to %s:%s" "(serial port %s%s)" :port "?" :speed " at %s b/s" "" mapconcat identity process-command " " vector tabulated-list-init-header] 22 (#$ . 127649)])
#@15
(fn BUTTON)
(defalias 'process-menu-visit-buffer #[257 "\300\301\302\"!\207" [display-buffer button-get process-buffer] 5 (#$ . 129308)])
#@545 Display a list of all processes that are Emacs sub-processes.
If optional argument QUERY-ONLY is non-nil, only processes with
the query-on-exit flag set are listed.
Any process listed as exited or signaled is actually eliminated
after the listing is made.
Optional argument BUFFER specifies a buffer to use, instead of
"*Process List*".
The return value is always nil.
This function lists only processes that were launched by Emacs. To
see other processes running on the system, use `list-system-processes'.
(fn &optional QUERY-ONLY BUFFER)
(defalias 'list-processes #[512 "\301\302!\204\n \303\304!\210\305!\204 \306\307!\262r\211q\210\310 \210\311 \210\312 \210)\313!\210\314\207" [process-menu-query-only fboundp process-list error "Asynchronous subprocesses are not supported on this system" bufferp get-buffer-create "*Process List*" process-menu-mode list-processes--refresh tabulated-list-print display-buffer nil] 4 (#$ . 129456) nil])
(byte-code "\302\211\302\207" [prefix-command--needs-update prefix-command--last-echo nil] 2)
(defalias 'internal-echo-keystrokes-prefix #[0 "\204 \207\302C\303\304\305\306\307\310\311!\312\"\313\314%\"\210\211\315\302\242\"\240\210\211\242\205, \316\317\242\320#\262\211\207" [prefix-command--needs-update prefix-command--last-echo nil run-hook-wrapped prefix-command-echo-keystrokes-functions make-byte-code 257 "\300 \300\242B\240\207" vconcat vector [] 4 "\n\n(fn FUN)" delq mapconcat identity " "] 9])
#@149 Abnormal hook that constructs the description of the current prefix state.
Each function is called with no argument, should return a string or nil.
(defvar prefix-command-echo-keystrokes-functions nil (#$ . 130935))
#@90 Update state of prefix commands.
Call it whenever you change the "prefix command state".
(defalias 'prefix-command-update #[0 "\301\211\207" [prefix-command--needs-update t] 2 (#$ . 131157)])
#@62 Normal hook run when a command needs to preserve the prefix.
(defvar prefix-command-preserve-state-hook nil (#$ . 131356))
#@144 Pass the current prefix command state to the next command.
Should be called by all prefix commands.
Runs `prefix-command-preserve-state-hook'.
(defalias 'prefix-command-preserve-state #[0 "\304\305!\210\n\306 \207" [last-command this-command real-last-command real-this-command run-hooks prefix-command-preserve-state-hook prefix-command-update] 2 (#$ . 131486)])
(defalias 'reset-this-command-lengths #[0 "\300\207" [nil] 1])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [make-obsolete reset-this-command-lengths prefix-command-preserve-state "25.1" add-hook prefix-command-echo-keystrokes-functions universal-argument--description] 4)
(defalias 'universal-argument--description #[0 "\205k \301\302\232\203 \303\202j :\203f @\211\250\203] A\211\204T \304\305V\203? \306\305\"\307U\203? \211\310P\262\305\245\262\202# \305U\203I \211\202M \311\312\"\262\262\202X \311\312\"\262\202a \311\312\"\262\202j \311\312\"P\207" [prefix-arg "C-u" (-) " -" "" 4 mod 0 " C-u" format " %s"] 8])
(add-hook 'prefix-command-preserve-state-hook 'universal-argument--preserve)
(defalias 'universal-argument--preserve #[0 "\211\207" [current-prefix-arg prefix-arg] 2])
#@53 Keymap used while processing \[universal-argument].
(defvar universal-argument-map (byte-code "\300 \301\302\303\304\305\257\306\307\310#\210\306\311\312#\210\306\313#\210\306\314\315#\210\306\316\315#\210\306\317\315#\210\306\320\315#\210\306\321\315#\210\306\322\315#\210\306\323\315#\210\306\324\315#\210\306\325\315#\210\306\326\315#\210\306\327\315#\210\306\330\315#\210\306\331\315#\210\306\332\315#\210\306\333\315#\210\306\334\315#\210\306\335\315#\210\306\336\315#\210\306\337\315#\210\306\340\315#\210\306\341#\210\207" [make-sparse-keymap menu-item "" negative-argument :filter #[257 "\250?\205 \211\207" [prefix-arg] 2 "\n\n(fn CMD)"] define-key [switch-frame] #[257 "\300!\210\301 \207" [handle-switch-frame universal-argument--mode] 3 "\n\n(fn E)" "e"] [21] universal-argument-more [45] [48] digit-argument [49] [50] [51] [52] [53] [54] [55] [56] [57] [kp-0] [kp-1] [kp-2] [kp-3] [kp-4] [kp-5] [kp-6] [kp-7] [kp-8] [kp-9] [kp-subtract]] 6) (#$ . 132677))
(defalias 'universal-argument--mode #[0 "\301 \210\302\303\"\207" [universal-argument-map prefix-command-update set-transient-map nil] 3])
#@595 Begin a numeric argument for the following command.
Digits or minus sign following \[universal-argument] make up the numeric argument.
\[universal-argument] following the digits or minus sign ends the argument.
\[universal-argument] without digits or minus sign provides 4 as argument.
Repeating \[universal-argument] without digits or minus sign
multiplies the argument by 4 each time.
For some commands, just \[universal-argument] by itself serves as a flag
that is different in effect from any particular numeric argument.
These commands include \[set-mark-command] and \[start-kbd-macro].
(defalias 'universal-argument #[0 "\301 \210\302C\303 \207" [prefix-arg prefix-command-preserve-state 4 universal-argument--mode] 1 (#$ . 133824) nil])
#@12
(fn ARG)
(defalias 'universal-argument-more #[257 "\301 \210\211:\203 \302@_C\202 \211\303=\203 \304C\202 \211\211:\205$ \305 \207" [prefix-arg prefix-command-preserve-state 4 - -4 universal-argument--mode] 4 (#$ . 134577) "P"])
#@139 Begin a negative numeric argument for the next command.
\[universal-argument] following digits or minus sign ends the argument.
(fn ARG)
(defalias 'negative-argument #[257 "\301 \210\211\250\203
\211[\202 \211\302=\203 \303\202 \302\304 \207" [prefix-arg prefix-command-preserve-state - nil universal-argument--mode] 3 (#$ . 134821) "P"])
#@134 Part of the numeric argument for the next command.
\[universal-argument] following digits or minus sign ends the argument.
(fn ARG)
(defalias 'digit-argument #[257 "\302 \210\250\203\f \202 \303N\304\305\"\306Z\250\203- \307_\310W\203( [\202) \\\202C \311=\203B \211\310U\203= \311\202C \211[\202C \211\266\312 \207" [last-command-event prefix-arg prefix-command-preserve-state ascii-character logand 127 48 10 0 - universal-argument--mode] 6 (#$ . 135173) "P"])
#@127 This variable is a wrapper hook around `buffer-substring--filter'.
(See `with-wrapper-hook' for details about wrapper hooks.)
(defvar filter-buffer-substring-functions nil (#$ . 135657))
(make-obsolete-variable 'filter-buffer-substring-functions 'filter-buffer-substring-function "24.4")
#@335 Function to perform the filtering in `filter-buffer-substring'.
The function is called with the same 3 arguments (BEG END DELETE)
that `filter-buffer-substring' received. It should return the
buffer substring between BEG and END, after filtering. If DELETE is
non-nil, it should delete the text between BEG and END from the buffer.
(defvar filter-buffer-substring-function 'buffer-substring--filter (#$ . 135952))
#@441 List of filter functions for `buffer-substring--filter'.
Each function must accept a single argument, a string, and return a string.
The buffer substring is passed to the first function in the list,
and the return value of each function is passed to the next.
As a special convention, point is set to the start of the buffer text
being operated on (i.e., the first argument of `buffer-substring--filter')
before these functions are called.
(defvar buffer-substring-filters nil (#$ . 136375))
(make-obsolete-variable 'buffer-substring-filters 'filter-buffer-substring-function "24.1")
#@770 Return the buffer substring between BEG and END, after filtering.
If DELETE is non-nil, delete the text between BEG and END from the buffer.
This calls the function that `filter-buffer-substring-function' specifies
(passing the same three arguments that it received) to do the work,
and returns whatever it does. The default function does no filtering,
unless a hook has been set.
Use `filter-buffer-substring' instead of `buffer-substring',
`buffer-substring-no-properties', or `delete-and-extract-region' when
you want to allow filtering to take place. For example, major or minor
modes can use `filter-buffer-substring-function' to exclude text properties
that are special to a buffer, and should not be copied into other buffers.
(fn BEG END &optional DELETE)
(defalias 'filter-buffer-substring #[770 "#\207" [filter-buffer-substring-function] 7 (#$ . 136966)])
#@404 Default function to use for `filter-buffer-substring-function'.
Its arguments and return value are as specified for `filter-buffer-substring'.
Also respects the obsolete wrapper hook `filter-buffer-substring-functions'
(see `with-wrapper-hook' for details about wrapper hooks),
and the abnormal hook `buffer-substring-filters'.
No filtering is done unless a hook says to.
(fn BEG END &optional DELETE)
(defalias 'buffer-substring--filter #[770 "\301C\211\302\303\304\305\306!\307\"\310\311%\240\210\211\242\312\300!\205 \313\300!E#\207" [filter-buffer-substring-functions nil make-byte-code 771 ":\2030 @\301=\203 \300\242\302A\"\303#\207\304@\305\306\307\310\311\312\300!\313\"\314\315%A##\207\304\316\"\207" vconcat vector [t append nil apply apply-partially make-byte-code 642 "\300\242#\207" vconcat vector [] 7 "\n\n(fn FUNS GLOBAL &rest ARGS)" #[771 "\211\204 \2033 \212b\210\211\203 \301\"\202 {\211\203- \211@\211!\262A\266\202\202 \210\211\262)\207{\207" [buffer-substring-filters delete-and-extract-region] 8 "\n\n(fn BEG END DELETE)"]] 12 "\n\n(fn FUNS GLOBAL ARGS)" local-variable-p default-value] 11 (#$ . 137848)])
#@495 Function to call to make a killed region available to other programs.
Most window systems provide a facility for cutting and pasting
text between different programs, such as the clipboard on X and
MS-Windows, or the pasteboard on Nextstep/Mac OS.
This variable holds a function that Emacs calls whenever text is
put in the kill ring, to make the new kill available to other
programs. The function takes one argument, TEXT, which is a
string containing the text that should be made available.
(defvar interprogram-cut-function 'gui-select-text (#$ . 139028))
#@1378 Function to call to get text cut from other programs.
Most window systems provide a facility for cutting and pasting
text between different programs, such as the clipboard on X and
MS-Windows, or the pasteboard on Nextstep/Mac OS.
This variable holds a function that Emacs calls to obtain text
that other programs have provided for pasting. The function is
called with no arguments. If no other program has provided text
to paste, the function should return nil (in which case the
caller, usually `current-kill', should use the top of the Emacs
kill ring). If another program has provided text to paste, the
function should return that text as a string (in which case the
caller should put this string in the kill ring as the latest
kill).
The function may also return a list of strings if the window
system supports multiple selections. The first string will be
used as the pasted text, but the other will be placed in the kill
ring for easy access via `yank-pop'.
Note that the function should return a string only if a program
other than Emacs has provided a string for pasting; if Emacs
provided the most recent string, the function should return nil.
If it is difficult to tell whether Emacs or some other program
provided the current string, it is probably good enough to return
nil if the string is equal (according to `string=') to the last
text Emacs provided.
(defvar interprogram-paste-function 'gui-selection-value (#$ . 139596))
#@430 List of killed text sequences.
Since the kill ring is supposed to interact nicely with cut-and-paste
facilities offered by window systems, use of this variable should
interact nicely with `interprogram-cut-function' and
`interprogram-paste-function'. The functions `kill-new',
`kill-append', and `current-kill' are supposed to implement this
interaction; you may want to use them instead of manipulating the kill
ring directly.
(defvar kill-ring nil (#$ . 141052))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable kill-ring-max funcall function #[0 "\300\207" [60] 1] "Maximum length of kill ring before oldest elements are thrown away." :type integer :group killing] 8)
#@63 The tail of the kill ring whose car is the last thing yanked.
(defvar kill-ring-yank-pointer nil (#$ . 141768))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\313& \207" [custom-declare-variable save-interprogram-paste-before-kill funcall function #[0 "\300\207" [nil] 1] "Save existing clipboard text into kill ring before replacing it.\nA non-nil value ensures that Emacs kill operations do not\nirrevocably overwrite existing clipboard text by saving it to the\n`kill-ring' prior to the kill. Such text can subsequently be\nretrieved via \\[yank] \\[yank-pop]." :type boolean :group killing :version "23.2" kill-do-not-save-duplicates #[0 "\300\207" [nil] 1] "If non-nil, don't add a string to `kill-ring' if it duplicates the last one.\nThe comparison is done using `equal-including-properties'."] 10)
#@751 Make STRING the latest kill in the kill ring.
Set `kill-ring-yank-pointer' to point to it.
If `interprogram-cut-function' is non-nil, apply it to STRING.
Optional second argument REPLACE non-nil means that STRING will replace
the front of the kill ring, rather than being added to the list.
When `save-interprogram-paste-before-kill' and `interprogram-paste-function'
are non-nil, save the interprogram paste string(s) into `kill-ring' before
STRING.
When the yank handler has a non-nil PARAM element, the original STRING
argument is not used by `insert-for-yank'. However, since Lisp code
may access and use elements from the kill ring directly, the STRING
argument should still be a "useful" string for such uses.
(fn STRING &optional REPLACE)
(defalias 'kill-new #[513 "\203\f \306 @\"\204 \307\310!\203 \310\205 @\"\210\n\203V \205& \211\203U \211<\2035 \311!\2027 \211C\211\203T \211@\203I \306 @\"\204M \211 BA\266\202\2027 \210\210\203b \306 @\"\204{ \211\203q \203q \240\210\202{ \312 \313\301
\314$\210)
\205\207 !\207" [kill-do-not-save-duplicates kill-ring save-interprogram-paste-before-kill interprogram-paste-function history-delete-duplicates kill-ring-max equal-including-properties fboundp menu-bar-update-yank-menu reverse nil add-to-history t kill-ring-yank-pointer interprogram-cut-function] 8 (#$ . 142650)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable kill-append-merge-undo funcall function #[0 "\300\207" [nil] 1] "Amalgamate appending kills with the last kill for undo.\nWhen non-nil, appending or prepending text to the last kill makes\n\\[undo] restore both pieces of text simultaneously." :type boolean :group killing :version "25.1"] 10)
#@314 Append STRING to the end of the latest kill in the kill ring.
If BEFORE-P is non-nil, prepend STRING to the kill instead.
If `interprogram-cut-function' is non-nil, call it with the
resulting kill.
If `kill-append-merge-undo' is non-nil, remove the last undo
boundary in the current buffer.
(fn STRING BEFORE-P)
(defalias 'kill-append #[514 "@\304\203
P\202 P\305\230\206 \306\307\310#?\"\266 \205H \n?\205H \211A\211@\203> \211A\266\202\211A\262\210\202+ \205F A\241\266\202\207" [kill-ring kill-append-merge-undo buffer-read-only buffer-undo-list kill-new "" get-text-property 0 yank-handler] 9 (#$ . 144408)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable yank-pop-change-selection funcall function #[0 "\300\207" [nil] 1] "Whether rotating the kill ring changes the window system selection.\nIf non-nil, whenever the kill ring is rotated (usually via the\n`yank-pop' command), Emacs also calls `interprogram-cut-function'\nto copy the new kill to the window system selection." :type boolean :group killing :version "23.1"] 10)
#@686 Rotate the yanking point by N places, and then return that kill.
If N is zero and `interprogram-paste-function' is set to a
function that returns a string or a list of strings, and if that
function doesn't return nil, then that string (or list) is added
to the front of the kill ring and the string (or first string in
the list) is returned as the latest kill.
If N is not zero, and if `yank-pop-change-selection' is
non-nil, use `interprogram-cut-function' to transfer the
kill at the new yank point into the window system selection.
If optional arg DO-NOT-MOVE is non-nil, then don't actually
move the yanking point; just return the Nth kill forward.
(fn N &optional DO-NOT-MOVE)
(defalias 'current-kill #[513 "\305U\205\f \205\f \211\203- \306\211\211<\203# \307\310\311!\"\210\202' \310!\210*\n@\202\\ \n\2045 \312\313!\210\314 GZ\nG\"\n\233\204X \211\f\203X \305V\203X \203X @!\210\211@\262\207" [interprogram-paste-function interprogram-cut-function kill-ring kill-ring-yank-pointer yank-pop-change-selection 0 nil mapc kill-new reverse error "Kill ring is empty" mod] 7 (#$ . 145515)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable kill-read-only-ok funcall function #[0 "\300\207" [nil] 1] "Non-nil means don't signal an error for killing read-only text." :type boolean :group killing] 8)
#@1276 Kill ("cut") text between point and mark.
This deletes the text from the buffer and saves it in the kill ring.
The command \[yank] can retrieve it from there.
(If you want to save the region without killing it, use \[kill-ring-save].)
If you want to append the killed region to the last killed text,
use \[append-next-kill] before \[kill-region].
Any command that calls this function is a "kill command".
If the previous command was also a kill command,
the text killed this time appends to the text killed last time
to make one entry in the kill ring.
The killed text is filtered by `filter-buffer-substring' before it is
saved in the kill ring, so the actual saved text might be different
from what was killed.
If the buffer is read-only, Emacs will beep and refrain from deleting
the text, but put the text in the kill ring anyway. This means that
you can use the killing commands to copy text from a read-only buffer.
Lisp programs should use this function for killing text.
(To delete text, use `delete-region'.)
Supply two arguments, character positions BEG and END indicating the
stretch of text to be killed. If the optional argument REGION is
non-nil, the function ignores BEG and END, and kills the current
region instead.
(fn BEG END &optional REGION)
(defalias 'kill-region #[770 "\203 \204\f \305\306!\210\3071K \211\203 \310!\202 \311\310#\211\2038 \312=\2034 \313W\"\210\2028 \314!\210\211\204B \312=\203D \312\315\316\2620\207\210\317#\210\312\f\203^ \320\321!\210\316\207\322 \210\323\324pC\"\207" [region-extract-function last-command this-command deactivate-mark kill-read-only-ok user-error "The mark is not set now, so there is no region" (buffer-read-only text-read-only) delete filter-buffer-substring kill-region kill-append kill-new t nil copy-region-as-kill message "Read only text copied to kill ring" barf-if-buffer-read-only signal text-read-only] 8 (#$ . 146880) (byte-code "\300 `\301E\207" [mark region] 3)])
#@665 Save the region as if killed, but don't kill it.
In Transient Mark mode, deactivate the mark.
If `interprogram-cut-function' is non-nil, also save the text for a window
system cut and paste.
The copied text is filtered by `filter-buffer-substring' before it is
saved in the kill ring, so the actual saved text might be different
from what was in the buffer.
When called from Lisp, save in the kill ring the stretch of text
between BEG and END, unless the optional argument REGION is
non-nil, in which case ignore BEG and END, and save the current
region instead.
This command's old key binding has been given to `kill-ring-save'.
(fn BEG END &optional REGION)
(defalias 'copy-region-as-kill #[770 "\211\203\n \303!\202 \304\" \305=\203 \306W\"\210\202# \307!\210\210\310\303\207" [region-extract-function last-command deactivate-mark nil filter-buffer-substring kill-region kill-append kill-new t] 8 (#$ . 148862) (byte-code "\301 `\302!E\207" [current-prefix-arg mark prefix-numeric-value] 4)])
#@851 Save the region as if killed, but don't kill it.
In Transient Mark mode, deactivate the mark.
If `interprogram-cut-function' is non-nil, also save the text for a window
system cut and paste.
If you want to append the killed region to the last killed text,
use \[append-next-kill] before \[kill-ring-save].
The copied text is filtered by `filter-buffer-substring' before it is
saved in the kill ring, so the actual saved text might be different
from what was in the buffer.
When called from Lisp, save in the kill ring the stretch of text
between BEG and END, unless the optional argument REGION is
non-nil, in which case ignore BEG and END, and save the current
region instead.
This command is similar to `copy-region-as-kill', except that it gives
visual feedback indicating the extent of the region being copied.
(fn BEG END &optional REGION)
(defalias 'kill-ring-save #[770 "\300#\210\301\302!\205 \303 \207" [copy-region-as-kill called-interactively-p interactive indicate-copied-region] 7 (#$ . 149881) (byte-code "\301 `\302!E\207" [current-prefix-arg mark prefix-numeric-value] 4)])
#@457 Indicate that the region text has been copied interactively.
If the mark is visible in the selected window, blink the cursor
between point and mark if there is currently no active region
highlighting.
If the mark lies outside the selected window, display an
informative message containing a sample of the copied text. The
optional argument MESSAGE-LEN, if non-nil, specifies the length
of this sample text; it defaults to 40.
(fn &optional MESSAGE-LEN)
(defalias 'indicate-copied-region #[256 "\303\304!`\304\305\306 \"\203@ \307 \205 \310\311\312\304#?\205i \313 `p\223\210b\210\314 !\210\313 p\223\210\211b\210\n\205i \307 \205i \315 \202i \316Z!\206J \317^W\203^ \320\321\322Z\"\"\202g \320\323\322\211\\\"\"\262)\207" [inhibit-quit blink-matching-delay quit-flag mark t pos-visible-in-window-p selected-window region-active-p face-background region nil mark-marker sit-for deactivate-mark abs 40 message "Saved text until \"%s\"" buffer-substring-no-properties "Saved text from \"%s\""] 10 (#$ . 150988)])
#@549 Cause following command, if it kills, to add to previous kill.
If the next command kills forward from point, the kill is
appended to the previous killed text. If the command kills
backward, the kill is prepended. Kill commands that act on the
region, such as `kill-region', are regarded as killing forward if
point is after mark, and killing backward if point is before
mark.
If the next command is not a kill command, `append-next-kill' has
no effect.
The argument is used for internal purposes; do not supply one.
(fn &optional INTERACTIVE)
(defalias 'append-next-kill #[256 "\211\203\n \302\303\304!\207\302\211\207" [this-command last-command kill-region message "If the next command is a kill, it will append"] 3 (#$ . 152025) "p"])
#@73 Character set that matches bidirectional formatting control characters.
(defvar bidi-directional-controls-chars "--" (#$ . 152776))
#@73 Character set that matches any character except bidirectional controls.
(defvar bidi-directional-non-controls-chars "^--" (#$ . 152926))
#@151 A subroutine of `squeeze-bidi-context'.
FROM and TO should be markers, CATEGORY and REPLACEMENT should be strings.
(fn FROM TO CATEGORY REPLACEMENT)
(defalias 'squeeze-bidi-context-1 #[1028 "\302!\302!\303\304\262b\210W\205N V\203% \211\212w\\)\304\223\210\305\306#\2044 \262\202? \307\304\306#\210`\304\223\210\262\211 w\\\304\223\210\202 \207" [bidi-directional-non-controls-chars bidi-directional-controls-chars copy-marker 0 nil re-search-forward t replace-match] 12 (#$ . 153082)])
#@265 Replace characters between FROM and TO while keeping bidi context.
This function replaces the region of text with as few characters
as possible, while preserving the effect that region will have on
bidirectional display before and after the region.
(fn FROM TO)
(defalias 'squeeze-bidi-context #[514 "\301 \302V\203\f \202 d\\\303\223\301 \303\223\304\305!\204\" \306 \262\307\310\311$\210\307\312\313$)\207" [inhibit-read-only make-marker 0 nil t marker-position point-max-marker squeeze-bidi-context-1 "\\CR+" "" "\\CL+" ""] 9 (#$ . 153601)])
#@363 Return buffer text between START and END with its bidi context.
START and END are assumed to belong to the same physical line
of buffer text. This function prepends and appends to the text
between START and END bidi control characters that preserve the
visual order of that text when it is inserted at some other place.
(fn START END &optional NO-PROPERTIES)
(defalias 'line-substring-with-bidi-context #[770 "eW\204\f dV\203 \301\302pE\"\210p\303\211\211\211\212b\210\304 \262\305 \262\306 \262b\210\307\310\311!)\262\204E \312\310\311!)\262\203\\ \203R \313\"\202W {\262\202\236 \314\315!r\211q\210\316\317\320\321\322!\323\"\324$\216\203~ \325#\210\202\205 \326#\210\327\330\nZT\"\210\327Z\303\"\210\330d{*\262\262\331=\203\250 \332\202\251 \333\334Q)\207" [inhibit-changing-match-data signal args-out-of-range nil current-bidi-paragraph-direction line-beginning-position line-end-position "\\CR*$" t looking-at "\\CL*$" buffer-substring-no-properties generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring-no-properties insert-buffer-substring squeeze-bidi-context 1 left-to-right "" "" ""] 15 (#$ . 154173)])
#@742 Return portion of current buffer between START and END with bidi context.
This function works similar to `buffer-substring', but it prepends and
appends to the text bidi directional control characters necessary to
preserve the visual appearance of the text if it is inserted at another
place. This is useful when the buffer substring includes bidirectional
text and control characters that cause non-trivial reordering on display.
If copied verbatim, such text can have a very different visual appearance,
and can also change the visual appearance of the surrounding text at the
destination of the copy.
Optional argument NO-PROPERTIES, if non-nil, means copy the text without
the text properties.
(fn START END &optional NO-PROPERTIES)
(defalias 'buffer-substring-with-bidi-context #[770 "\300\211eW\204 dV\203 \301\302pE\"\210\212b\210\303 ^\262W\203K \211\2031 \304\2022 \305\306#Q\262\307y\210`\262\303 ^\262\202\" )\207" [nil signal args-out-of-range line-end-position "\n" "" line-substring-with-bidi-context 1] 11 (#$ . 155443)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\310\317\306\307\312\313& \207" [custom-declare-variable yank-handled-properties funcall function #[0 "\300\207" [((font-lock-face . yank-handle-font-lock-face-property) (category . yank-handle-category-property))] 1] "List of special text property handling conditions for yanking.\nEach element should have the form (PROP . FUN), where PROP is a\nproperty symbol and FUN is a function. When the `yank' command\ninserts text into the buffer, it scans the inserted text for\nstretches of text that have `eq' values of the text property\nPROP; for each such stretch of text, FUN is called with three\narguments: the property's value in that text, and the start and\nend positions of the text.\n\nThis is done prior to removing the properties specified by\n`yank-excluded-properties'." :group killing :type (repeat (cons (symbol :tag "property symbol") function)) :version "24.3" yank-excluded-properties #[0 "\300\207" [(category field follow-link fontified font-lock-face help-echo intangible invisible keymap local-map mouse-face read-only yank-handler)] 1] "Text properties to discard when yanking.\nThe value should be a list of text properties to discard or t,\nwhich means to discard all text properties.\n\nSee also `yank-handled-properties'." (choice (const :tag "All" t) (repeat symbol))] 10)
(defvar yank-window-start nil)
#@297 If non-nil, function used by `yank-pop' to delete last stretch of yanked text.
Function is called with two parameters, START and END corresponding to
the value of the mark and point; it is guaranteed that START <= END.
Normally set from the UNDO element of a yank-handler; see `insert-for-yank'.
(defvar yank-undo-function nil (#$ . 157940))
#@782 Replace just-yanked stretch of killed text with a different stretch.
This command is allowed only immediately after a `yank' or a
`yank-pop'. At such a time, the region contains a stretch of
reinserted previously-killed text. `yank-pop' deletes that text
and inserts in its place a different stretch of killed text by
traversing the value of the `kill-ring' variable.
With no argument, the previous kill is inserted.
With argument N, insert the Nth previous kill.
If N is negative, this is a more recent kill.
The sequence of kills wraps around, so that after the oldest one
comes the newest one.
This command honors the `yank-handled-properties' and
`yank-excluded-properties' variables, and the `yank-handler' text
property, in the way that `yank' does.
(fn &optional ARG)
(defalias 'yank-pop #[256 "\305=\204\n \306\307!\210\305\211\204 \310\262\311`\312\311!W\211\203- \206$ \313`\312\311!\"\210\2028 \2062 \313\312\311!`\"\210\314\315 `p\223\210\316\317!!\210\320\321 \f\311#\210\211\203\\ \312\311!\315 `p\223\210b\210)\266\314\207" [last-command this-command inhibit-read-only yank-undo-function yank-window-start yank user-error "Previous command was not a yank" 1 t mark delete-region nil mark-marker insert-for-yank current-kill set-window-start selected-window] 7 (#$ . 158289) "*p"])
#@1994 Reinsert ("paste") the last stretch of killed text.
More precisely, reinsert the most recent kill, which is the stretch of
text most recently killed OR yanked, as returned by `current-kill' (which
see). Put point at the end, and set mark at the beginning without
activating it. With just \[universal-argument] as argument, put point
at beginning, and mark at end.
With argument N, reinsert the Nth most recent kill.
This command honors the `yank-handled-properties' and
`yank-excluded-properties' variables, and the `yank-handler' text
property, as described below.
Properties listed in `yank-handled-properties' are processed,
then those listed in `yank-excluded-properties' are discarded.
If STRING has a non-nil `yank-handler' property anywhere, the
normal insert behavior is altered, and instead, for each contiguous
segment of STRING that has a given value of the `yank-handler'
property, that value is used as follows:
The value of a `yank-handler' property must be a list of one to four
elements, of the form (FUNCTION PARAM NOEXCLUDE UNDO).
FUNCTION, if non-nil, should be a function of one argument (the
object to insert); FUNCTION is called instead of `insert'.
PARAM, if present and non-nil, is passed to FUNCTION (to be handled
in whatever way is appropriate; e.g. if FUNCTION is `yank-rectangle',
PARAM may be a list of strings to insert as a rectangle). If PARAM
is nil, then the current segment of STRING is used.
If NOEXCLUDE is present and non-nil, the normal removal of
`yank-excluded-properties' is not performed; instead FUNCTION is
responsible for the removal. This may be necessary if FUNCTION
adjusts point before or after inserting the object.
UNDO, if present and non-nil, should be a function to be called
by `yank-pop' to undo the insertion of the current PARAM. It is
given two arguments, the start and end of the region. FUNCTION
may set `yank-undo-function' to override UNDO.
See also the command `yank-pop' (\[yank-pop]).
(fn &optional ARG)
(defalias 'yank #[256 "\302 \303\304 \210\305\306<\203 \307\202 \310=\203 \311\202 S!!\210\211:\2032 \312\303!\313 `p\223\210b\210 \303=\203: \314\315\207" [yank-window-start this-command window-start t push-mark insert-for-yank current-kill 0 - -2 mark mark-marker yank nil] 5 (#$ . 159610) "*P"])
#@123 Rotate the yanking point in the kill ring.
With ARG, rotate that many kills forward (or backward, if negative).
(fn ARG)
(defalias 'rotate-yank-pointer #[257 "\300!\207" [current-kill] 3 (#$ . 161919) "p"])
#@12
(fn ARG)
(defalias 'kill-forward-chars #[257 "\211<\203 \211@\262\211\300=\203 \301\262\302``\\\"\207" [- -1 kill-region] 5 (#$ . 162134)])
#@12
(fn ARG)
(defalias 'kill-backward-chars #[257 "\211<\203 \211@\262\211\300=\203 \301\262\302``Z\"\207" [- -1 kill-region] 5 (#$ . 162287)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable backward-delete-char-untabify-method funcall function #[0 "\300\207" [untabify] 1] "The method for untabifying when deleting backward.\nCan be `untabify' -- turn a tab to many spaces, then delete one space;\n `hungry' -- delete all whitespace, both tabs and spaces;\n `all' -- delete all whitespace, including tabs, spaces and newlines;\n nil -- just delete one character." :type (choice (const untabify) (const hungry) (const all) (const nil)) :version "20.3" :group killing] 10)
#@315 Delete characters backward, changing tabs into spaces.
The exact behavior depends on `backward-delete-char-untabify-method'.
Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
Interactively, ARG is the prefix arg (default 1)
and KILLP is t if a prefix arg was specified.
(fn ARG &optional KILLP)
(defalias 'backward-delete-char-untabify #[513 "\301=\2037 \212\211\302V\2035 o\2045 h\303U\203+ i\304u\210\211iZ\262\305\306\"\210\307\310!\266\304u\210\211S\262\202 )\210\311\267\202E \312\202F \313\202F \314\211\203j `\211\212\314x\210\315\314\")Z\302U\203b \302\202d S\\\266\202\202k \316\"\207" [backward-delete-char-untabify-method untabify 0 9 -1 insert-char 32 delete-char 1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hungry 61 all 65)) " " " \n
" nil constrain-to-field delete-backward-char] 8 (#$ . 163035) "*p\nP"])
#@225 Kill up to and including ARGth occurrence of CHAR.
Case is ignored if `case-fold-search' is non-nil in the current buffer.
Goes backward if ARG is negative; error if CHAR not found.
See also `zap-up-to-char'.
(fn ARG CHAR)
(defalias 'zap-to-char #[514 "\301!\203 H\206
\211\262\302`\303\304!\305\211$\210`\"\207" [translation-table-for-input char-table-p kill-region search-forward char-to-string nil] 9 (#$ . 163944) (byte-code "\301!\302\303\304\305#D\207" [current-prefix-arg prefix-numeric-value read-char-from-minibuffer "Zap to char: " nil read-char-history] 5)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable kill-whole-line funcall function #[0 "\300\207" [nil] 1] "If non-nil, `kill-line' with no arg at start of line kills the whole line." :type boolean :group killing] 8)
#@1266 Kill the rest of the current line; if no nonblanks there, kill thru newline.
With prefix argument ARG, kill that many lines from point.
Negative arguments kill lines backward.
With zero argument, kills the text before point on the current line.
When calling from a program, nil means "no arg",
a number counts as a prefix arg.
To kill a whole line, when point is not at the beginning, type \[move-beginning-of-line] \[kill-line] \[kill-line].
If `show-trailing-whitespace' is non-nil, this command will just
kill the rest of the current line, even if there are no nonblanks
there.
If option `kill-whole-line' is non-nil, then this command kills the whole line
including its terminating newline, when used at the beginning of a line
with no argument. As a consequence, you can always kill a whole line
by typing \[move-beginning-of-line] \[kill-line].
If you want to append the killed line to the last killed text,
use \[append-next-kill] before \[kill-line].
If the buffer is read-only, Emacs will beep and refrain from deleting
the line, but put the line in the kill ring anyway. This means that
you can use this command to copy text from a read-only buffer.
(If the variable `kill-read-only-ok' is non-nil, then this won't
even beep.)
(fn &optional ARG)
(defalias 'kill-line #[256 "\302`\203 \303\304!!\210\202A m\203 \305\306\307\"\210\212\310 \210`)\212\204' \311w\210`U)\2046 \203= n\203= \303\312!\210\202@ \211b\210\210`\"\207" [show-trailing-whitespace kill-whole-line kill-region forward-visible-line prefix-numeric-value signal end-of-buffer nil end-of-visible-line " " 1] 6 (#$ . 164787) "P"])
#@316 Kill current line.
With prefix ARG, kill that many lines starting from the current line.
If ARG is negative, kill backward. Also kill the preceding newline.
(This is meant to make \[repeat] work well with negative arguments.)
If ARG is zero, kill current line but exclude the trailing newline.
(fn &optional ARG)
(defalias 'kill-whole-line #[256 "\211\204 \301\262\211\302V\203 m\203 \212\303\302!\210m)\203 \304\305\306\"\210\211\302W\2038 o\2038 \212\307 \210o)\2038 \304\310\306\"\210\311=\204D \312\313!\210\311\211\302U\203] \212\311`\303\302!\210`\"\210)\311`\307 \210`\"\207\211\302W\203~ \212\311`\307 \210`\"\210)\311`\303T!\210o\204{ \314u\210`\"\207\212\311`\303\302!\210`\"\210)\311`\303!\210`\"\207" [last-command 1 0 forward-visible-line signal end-of-buffer nil end-of-visible-line beginning-of-buffer kill-region kill-new "" -1] 5 (#$ . 166417) "p"])
#@187 Move forward by ARG lines, ignoring currently invisible newlines only.
If ARG is negative, move backward -ARG lines.
If ARG is zero, move to the beginning of the current line.
(fn ARG)
(defalias 'forward-visible-line #[257 "\3001\311 \211\301V\203_ \211\301V\203. \302y\301U\204 \303\304\305\"\210\306`S!\203' \211T\262\211S\262\202\n `m\204S \306`!\203S \307`\310\"\203K \311`\310\"\206N d\202N \312`!b\210\202/ n?\205Z \211b\262\202\307 \313\211\204j \301X\203\225 \211\203t \314 \210\202\200 \315y\301U\204\200 \303\316\305\"\210o\204\217 \306`S!\204\217 T\262\305\262\202` `o\204\274 \306`S!\203\274 \307`S\310\"\203\264 \317`\310\"\206\267 e\202\267 \320`!b\210\202\226 n?\205\303 \211b\262\2620\207\210\305\207" [(beginning-of-buffer end-of-buffer) 0 1 signal end-of-buffer nil invisible-p get-text-property invisible next-single-property-change next-overlay-change t beginning-of-line -1 beginning-of-buffer previous-single-property-change previous-overlay-change] 6 (#$ . 167302)])
#@38 Move to end of current visible line.
(defalias 'end-of-visible-line #[0 "\300\210m?\2057 \212\301\300w\210\302`!)\2057 \301\300w\210\303`\304\"\203, \305`\304\"\206' db\210\2021 \306`!b\210\300\210\202 \207" [nil "^\n" invisible-p get-text-property invisible next-single-property-change next-overlay-change] 3 (#$ . 168309)])
#@246 Kill the current buffer.
When called in the minibuffer, get out of the minibuffer
using `abort-recursive-edit'.
This is like `kill-this-buffer', but it doesn't have to be invoked
via the menu bar, and pays no attention to the menu-bar's frame.
(defalias 'kill-current-buffer #[0 "\300 \301!\203 \302\303!!\204 \304p!\202 \305 \207" [selected-frame frame-live-p window-minibuffer-p frame-selected-window kill-buffer abort-recursive-edit] 4 (#$ . 168645) nil])
#@133 Insert after point the contents of BUFFER.
Puts mark after the inserted text.
BUFFER may be a buffer or a buffer name.
(fn BUFFER)
(defalias 'insert-buffer #[257 "\300\212\301\302!!\210`)!\210\303\207" [push-mark insert-buffer-substring get-buffer nil] 5 (#$ . 169117) (byte-code "\300 \210\301\302\303 \304 =\203 \305p!\202 \306\304 !\307#C\207" [barf-if-buffer-read-only read-buffer "Insert buffer: " selected-window next-window other-buffer window-buffer t] 4)])
(byte-code "\300\301\302\303#\300\207" [function-put insert-buffer interactive-only insert-buffer-substring] 4)
#@403 Append to specified BUFFER the text of the region.
The text is inserted into that buffer before its point.
BUFFER can be a buffer or the name of a buffer; this
function will create BUFFER if it doesn't already exist.
When calling from a program, give three arguments:
BUFFER (or buffer name), START and END.
START and END specify the portion of the current buffer to be copied.
(fn BUFFER START END)
(defalias 'append-to-buffer #[771 "p\300!\301\302\211#\303\212rq\210`\262\304 \210\305#\210\211\2058 \211@\306!U\2031 \307`\"\210A\266\202\202 \262*\207" [get-buffer-create get-buffer-window-list t nil barf-if-buffer-read-only insert-buffer-substring window-point set-window-point] 12 (#$ . 169706) (byte-code "\300\301\302p\303\"\"\304 \305 E\207" [read-buffer "Append to buffer: " other-buffer t region-beginning region-end] 5)])
#@403 Prepend to specified BUFFER the text of the region.
The text is inserted into that buffer after its point.
BUFFER can be a buffer or the name of a buffer; this
function will create BUFFER if it doesn't already exist.
When calling from a program, give three arguments:
BUFFER (or buffer name), START and END.
START and END specify the portion of the current buffer to be copied.
(fn BUFFER START END)
(defalias 'prepend-to-buffer #[771 "pr\300!q\210\301 \210\212\302#*\207" [get-buffer-create barf-if-buffer-read-only insert-buffer-substring] 8 (#$ . 170563) "BPrepend to buffer: \nr"])
#@415 Copy to specified BUFFER the text of the region.
The text is inserted into that buffer, replacing existing text there.
BUFFER can be a buffer or the name of a buffer; this
function will create BUFFER if it doesn't already exist.
When calling from a program, give three arguments:
BUFFER (or buffer name), START and END.
START and END specify the portion of the current buffer to be copied.
(fn BUFFER START END)
(defalias 'copy-to-buffer #[771 "pr\300!q\210\301 \210\302 \210\212\303#*\207" [get-buffer-create barf-if-buffer-read-only erase-buffer insert-buffer-substring] 8 (#$ . 171162) "BCopy to buffer: \nr"])
(byte-code "\300\301\302\303!\"\207" [define-error mark-inactive purecopy "The mark is not active now"] 4)
#@178 Hook run when the mark becomes active.
It is also run when the region is reactivated, for instance after
using a command that switches back to a buffer that has an active
mark.
(defvar activate-mark-hook nil (#$ . 171896))
#@42 Hook run when the mark becomes inactive.
(defvar deactivate-mark-hook nil (#$ . 172125))
#@465 Return this buffer's mark value as integer, or nil if never set.
In Transient Mark mode, this function signals an error if
the mark is not active. However, if `mark-even-if-inactive' is non-nil,
or the argument FORCE is non-nil, it disregards whether the mark
is active, and returns an integer or nil in the usual way.
If you are using this in an editing command, you are most likely making
a mistake; see the documentation of `set-mark'.
(fn &optional FORCE)
(defalias 'mark #[256 "\211\204 \203 \204 \n\203 \303\304 !\207\305\306\307\"\207" [transient-mark-mode mark-active mark-even-if-inactive marker-position mark-marker signal mark-inactive nil] 4 (#$ . 172221)])
#@545 Deactivate the mark.
If Transient Mark mode is disabled, this function normally does
nothing; but if FORCE is non-nil, it deactivates the mark anyway.
Deactivating the mark sets `mark-active' to nil, updates the
primary selection according to `select-active-regions', and runs
`deactivate-mark-hook'.
If Transient Mark mode was temporarily enabled, reset the value
of the variable `transient-mark-mode'; if this causes Transient
Mark mode to be disabled, don't change `mark-active' to nil or
run `deactivate-mark-hook'.
(fn &optional FORCE)
(defalias 'deactivate-mark #[256 "\305 \204 \211\205\207 \306=\203 \242\306=\202 \203S \305 \203S \307 \203S \n\2038 \310\311!\2033 \312\311\n\"\210\313\202S \314 \315 U\204S \310\311!\204L \316\311!\204S \312\311 \313!\"\210\f\203Z \317 \210 \242\306=\203s A\211\320\301!=\203} \321\301!\210\202} \322=\203} \321\301!\210\313\323\324!\210\325\326 !\207" [select-active-regions transient-mark-mode saved-region-selection region-extract-function mark-active region-active-p only display-selections-p gui-backend-selection-owner-p PRIMARY gui-set-selection nil region-beginning region-end gui-backend-selection-exists-p force-mode-line-update default-value kill-local-variable lambda run-hooks deactivate-mark-hook redisplay--update-region-highlight selected-window] 6 (#$ . 172908)])
#@100 Activate the mark.
If NO-TMM is non-nil, leave `transient-mark-mode' alone.
(fn &optional NO-TMM)
(defalias 'activate-mark #[256 "\302\303!\205\" \304 ?\205\" \305 \210\303 \204 \211\204 \306\301!\210\307\310\311!\207" [mark-active transient-mark-mode mark t region-active-p force-mode-line-update make-local-variable lambda run-hooks activate-mark-hook] 3 (#$ . 174253)])
#@715 Set this buffer's mark to POS. Don't use this function!
That is to say, don't use this function unless you want
the user to see that the mark has moved, and you want the previous
mark position to be lost.
Normally, when a new mark is set, the old one should go on the stack.
This is why most applications should use `push-mark', not `set-mark'.
Novice Emacs Lisp programmers often try to use the mark for the wrong
purposes. The mark saves a location for the user's convenience.
Most editing commands should not alter the mark.
To remember a location for internal use in the Lisp program,
store it in a Lisp variable. Example:
(let ((beg (point))) (forward-line 1) (delete-region beg (point))).
(fn POS)
(defalias 'set-mark #[257 "\211\203 \301 p\223\210\302\303!\207\304\305!\210\306\301 \306\211\223\207" [mark-active mark-marker activate-mark no-tmm deactivate-mark t nil] 4 (#$ . 174638)])
(defalias 'save-mark-and-excursion--save #[0 "\301 \302!\205 \303!\262B\207" [mark-active mark-marker marker-position copy-marker] 3])
#@24
(fn SAVED-MARK-INFO)
(defalias 'save-mark-and-excursion--restore #[257 "\211@\301\302 !\303A\204 \302 \303\211\223\210\202& \301!\262\302 \303\223\210\303\211\223\210\203> \211\2038 =?\205E \304\305!\202E \211\205E \304\306!\262\207" [mark-active marker-position mark-marker nil run-hooks activate-mark-hook deactivate-mark-hook] 8 (#$ . 175691)])
#@144 Like `save-excursion', but also save and restore the mark state.
This macro does what `save-excursion' did before Emacs 25.1.
(fn &rest BODY)
(defalias 'save-mark-and-excursion '(macro . #[128 "\300\301!\302\303BC\304\305B\306DEE\207" [make-symbol "saved-marker" let ((save-mark-and-excursion--save)) unwind-protect save-excursion save-mark-and-excursion--restore] 8 (#$ . 176062)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312\313DD\314\315\316\317\320\321\322& \207" [function-put save-mark-and-excursion lisp-indent-function 0 put edebug-form-spec t custom-declare-variable use-empty-active-region funcall function #[0 "\300\207" [nil] 1] "Whether \"region-aware\" commands should act on empty regions.\nIf nil, region-aware commands treat the empty region as inactive.\nIf non-nil, region-aware commands treat the region as active as\nlong as the mark is active, even if the region is empty.\n\nRegion-aware commands are those that act on the region if it is\nactive and Transient Mark mode is enabled, and on the text near\npoint otherwise." :type boolean :version "23.1" :group editing-basics] 11)
#@482 Return t if the region is active and it is appropriate to act on it.
This is used by commands that act specially on the region under
Transient Mark mode.
The return value is t if Transient Mark mode is enabled and the
mark is active; furthermore, if `use-empty-active-region' is nil,
the region must not be empty. Otherwise, the return value is nil.
For some commands, it may be appropriate to ignore the value of
`use-empty-active-region'; in that case, use `region-active-p'.
(defalias 'use-region-p #[0 "\301 \205 \204 \302 \303 V\205 \304\207" [use-empty-active-region region-active-p region-end region-beginning t] 2 (#$ . 177200)])
#@299 Return t if Transient Mark mode is enabled and the mark is active.
Some commands act specially on the region when Transient Mark
mode is enabled. Usually, such commands should use
`use-region-p' instead of this function, because `use-region-p'
also checks the value of `use-empty-active-region'.
(defalias 'region-active-p #[0 "\205 \205 \302 \204 \303\304!\210\305\207" [transient-mark-mode mark-active mark cl--assertion-failed (mark) t] 2 (#$ . 177852)])
#@240 Return the boundaries of the region.
Value is a list of one or more cons cells of the form (START . END).
It will have more than one cons cell when the region is non-contiguous,
see `region-noncontiguous-p' and `extract-rectangle-bounds'.
(defalias 'region-bounds #[0 "\301!\207" [region-extract-function bounds] 2 (#$ . 178324)])
#@154 Return non-nil if the region contains several pieces.
An example is a rectangular region handled as a list of
separate contiguous regions for each line.
(defalias 'region-noncontiguous-p #[0 "\300 A\207" [region-bounds] 1 (#$ . 178663)])
(defvar redisplay-unhighlight-region-function #[257 "\300!\205 \301!\207" [overlayp delete-overlay] 3 "\n\n(fn ROL)"])
#@291 Function to move the region-highlight overlay.
This function is called with four parameters, START, END, WINDOW
and OVERLAY. If OVERLAY is nil, a new overlay is created. In
any case, the overlay is adjusted to reflect the other three
parameters.
The overlay is returned by the function.
(defvar redisplay-highlight-region-function #[1028 "\301!\204\" \302\"!\210\303\304#\210\303\305\306#\210\303\307\310#\210\211\207\311!p=\203: \312!=\203: \313!=\204A \314p$\210\207" [redisplay-unhighlight-region-function overlayp make-overlay overlay-put window face region priority (nil . 100) overlay-buffer overlay-start overlay-end move-overlay] 9 "\n\n(fn START END WINDOW ROL)"] (#$ . 179030))
#@15
(fn WINDOW)
(defalias 'redisplay--update-region-highlight #[257 "\303\304\"\305 \203 \204& \306 =\204& \307 \203 \310 =\204& !\202I \311!\312 ^]\n$\211\232?\205G \313\304#\266\205\207" [highlight-nonselected-windows redisplay-unhighlight-region-function redisplay-highlight-region-function window-parameter internal-region-overlay region-active-p selected-window window-minibuffer-p minibuffer-selected-window window-point mark set-window-parameter] 11 (#$ . 179744)])
#@237 Hook run just before redisplay.
It is called in each window that is to be redisplayed. It takes one argument,
which is the window that will be redisplayed. When run, the `current-buffer'
is set to the buffer displayed in that window.
(defvar pre-redisplay-functions (list 'redisplay--update-region-highlight) (#$ . 180246))
#@16
(fn WINDOWS)
(defalias 'redisplay--pre-redisplay-functions #[257 "\3001C \211\204 r\301\302 !q\210\303\304\302 \")\202A \211<\203! \211\202& \305\306\211\307#\211\205? \211@r\301!q\210\303\304\"\210)A\266\202\202& \2620\207\310\311\"\210\306\207" [(debug error) window-buffer selected-window run-hook-with-args pre-redisplay-functions window-list-1 nil t message "redisplay--pre-redisplay-functions: %S"] 6 (#$ . 180578)])
(byte-code "\300\301\302\303B\304\305$\207" [advice--add-function :before #[0 "\300\301!\207" [default-value pre-redisplay-function] 2] #[257 "\300\301\"\207" [set-default pre-redisplay-function] 4 "\n\n(fn GV--VAL)"] redisplay--pre-redisplay-functions nil] 5)
#@68 The list of former marks of the current buffer, most recent first.
(defvar mark-ring nil (#$ . 181277))
(byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310\311DD\312\313\314\315\316&\207" [make-variable-buffer-local mark-ring put permanent-local t custom-declare-variable mark-ring-max funcall function #[0 "\300\207" [16] 1] "Maximum size of mark ring. Start discarding off end if gets this big." :type integer :group editing-basics] 8)
#@52 The list of saved global marks, most recent first.
(defvar global-mark-ring nil (#$ . 181734))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable global-mark-ring-max funcall function #[0 "\300\207" [16] 1] "Maximum size of global mark ring. Start discarding off end if gets this big." :type integer :group editing-basics] 8)
#@97 Jump to mark, and pop a new position for mark off the ring.
(Does not affect global mark ring).
(defalias 'pop-to-mark-command #[0 "\300\301!\204\n \302\303!\207`\300\301!U\203 \304\305!\210\300\301!b\210\306 \207" [mark t user-error "No mark set in this buffer" message "Mark popped" pop-mark] 3 (#$ . 182103) nil])
#@189 Set mark at where point is.
If no prefix ARG and mark is already set there, just activate it.
Display `Mark set' unless the optional second arg NOMSG is non-nil.
(fn ARG &optional NOMSG)
(defalias 'push-mark-command #[513 "\300\301!\204 \211\203 \211`U\204 \302\303\301#\202% \304\305!\210?\205% \306\307!\207" [mark t push-mark nil activate-mark no-tmm message "Mark activated"] 7 (#$ . 182428) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable set-mark-command-repeat-pop funcall function #[0 "\300\207" [nil] 1] "Non-nil means repeating \\[set-mark-command] after popping mark pops it again.\nThat means that C-u \\[set-mark-command] \\[set-mark-command]\nwill pop the mark twice, and\nC-u \\[set-mark-command] \\[set-mark-command] \\[set-mark-command]\nwill pop the mark three times.\n\nA value of nil means \\[set-mark-command]'s behavior does not change\nafter C-u \\[set-mark-command]." :type boolean :group editing-basics] 8)
#@1337 Set the mark where point is, and activate it; or jump to the mark.
Setting the mark also alters the region, which is the text
between point and mark; this is the closest equivalent in
Emacs to what some editors call the "selection".
With no prefix argument, set the mark at point, and push the
old mark position on local mark ring. Also push the new mark on
global mark ring, if the previous mark was set in another buffer.
When Transient Mark Mode is off, immediately repeating this
command activates `transient-mark-mode' temporarily.
With prefix argument (e.g., \[universal-argument] \[set-mark-command]), jump to the mark, and set the mark from
position popped off the local mark ring (this does not affect the global
mark ring). Use \[pop-global-mark] to jump to a mark popped off the global
mark ring (see `pop-global-mark').
If `set-mark-command-repeat-pop' is non-nil, repeating
the \[set-mark-command] command with no prefix argument pops the next position
off the local (or global) mark ring and jumps there.
With \[universal-argument] \[universal-argument] as prefix
argument, unconditionally set mark where point is, even if
`set-mark-command-repeat-pop' is non-nil.
Novice Emacs Lisp programmers often try to use the mark for the wrong
purposes. See the documentation of `set-mark' for more information.
(fn ARG)
(defalias 'set-mark-command #[257 "\304=\203
\305\300!\210\202 \242\306=\203 \307 \210\211:\203( \310!\311V\203( \312\313!\207 \314=\2049 \211\2035 \315 \207\312\316!\207\n\203L \317=\203L \211\204L \317\211 \207\n\203V \315=\204Z \211\203_ \315\211 \207 \314=\203x \320 \203q \307 \210\321\322!\207\323 \210\321\324!\207\312\313!\207" [transient-mark-mode this-command set-mark-command-repeat-pop last-command lambda kill-local-variable only deactivate-mark prefix-numeric-value 4 push-mark-command nil set-mark-command pop-to-mark-command t pop-global-mark region-active-p message "Mark deactivated" activate-mark "Mark activated"] 4 (#$ . 183420) "P"])
#@507 Set mark at LOCATION (point, by default) and push old mark on mark ring.
If the last global mark pushed was not in the current buffer,
also push LOCATION on the global mark ring.
Display `Mark set' unless the optional second arg NOMSG is non-nil.
Novice Emacs Lisp programmers often try to use the mark for the wrong
purposes. See the documentation of `set-mark' for more information.
In Transient Mark mode, activate mark if optional third arg ACTIVATE non-nil.
(fn &optional LOCATION NOMSG ACTIVATE)
(defalias 'push-mark #[768 "\306\307!\203 8\310\311\301\312\313 !\307$\210\211\203 \211\310\211\223\210)\210\313 \206' `p\223\210 \2037 \314 @!p=\204Q \f 8\310\311\303\312\313 !\f\307$\210\211\203O \211\310\211\223\210)\210\204d
\204d \315 \316V\204d \317\320!\210\211\204m \204s \321\306\307!!\210\310\207" [mark-ring-max mark-ring history-delete-duplicates global-mark-ring global-mark-ring-max executing-kbd-macro mark t nil add-to-history copy-marker mark-marker marker-buffer minibuffer-depth 0 message "Mark set" set-mark transient-mark-mode] 9 (#$ . 185429)])
#@107 Pop off mark ring into the buffer's actual mark.
Does not set point. Does nothing if mark ring is empty.
(defalias 'pop-mark #[0 "\203' \301\302 !C\244\302 @\303\223\210@\303\211\223\210\304\305!\204\" \306 \210\210A\307 \207" [mark-ring copy-marker mark-marker nil mark t ding deactivate-mark] 3 (#$ . 186521)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias exchange-dot-and-mark exchange-point-and-mark nil make-obsolete "23.3"] 4)
#@375 Put the mark where point is now, and point where the mark is now.
This command works even when the mark is not active,
and it reactivates the mark.
If Transient Mark mode is on, a prefix ARG deactivates the mark
if it is active, and otherwise avoids reactivating it. If
Transient Mark mode is off, a prefix ARG enables Transient Mark
mode temporarily.
(fn &optional ARG)
(defalias 'exchange-point-and-mark #[256 "\301\302!\242\303=\204 \304\305!\210\306`!\210b\210\211\203% \307\300!\210\303B\202E \310 ?\2041 \211\2027 \211?\2057 \266\202\203B \311 \210\202E \312 \210\313\207" [transient-mark-mode mark t only user-error "No mark set in this buffer" set-mark make-local-variable region-active-p deactivate-mark activate-mark nil] 6 (#$ . 186991) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable shift-select-mode funcall function #[0 "\300\207" [t] 1] "When non-nil, shifted motion keys activate the mark momentarily.\n\nWhile the mark is activated in this way, any shift-translated point\nmotion key extends the region, and if Transient Mark mode was off, it\nis temporarily turned on. Furthermore, the mark will be deactivated\nby any subsequent point motion key that was not shift-translated, or\nby any action that normally deactivates the mark in Transient Mark mode.\n\nSee `this-command-keys-shift-translated' for the meaning of\nshift-translation." :type boolean :group editing-basics] 8)
#@632 Activate/deactivate mark depending on invocation thru shift translation.
This function is called by `call-interactively' when a command
with a `^' character in its `interactive' spec is invoked, before
running the command itself.
If `shift-select-mode' is enabled and the command was invoked
through shift translation, set the mark and activate the region
temporarily, unless it was already set in this way. See
`this-command-keys-shift-translated' for the meaning of shift
translation.
Otherwise, if the region has been activated temporarily,
deactivate it, and restore the variable `transient-mark-mode' to
its earlier value.
(defalias 'handle-shift-selection #[0 "\203) \203) \n\205 \242\304=?\205A \305\303!\210\304 \306=?\205! B\307\310\211\311#\207 \242\304=\205A A\211\312\303!=\203? \313\303!\210\314 \207" [shift-select-mode this-command-keys-shift-translated mark-active transient-mark-mode only make-local-variable lambda push-mark nil t default-value kill-local-variable deactivate-mark] 5 (#$ . 188454)])
#@1265 Toggle Transient Mark mode.
If called interactively, enable Transient-Mark mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
Transient Mark mode is a global minor mode. When enabled, the
region is highlighted with the `region' face whenever the mark
is active. The mark is "deactivated" after certain non-motion
commands, including those that change the text in the buffer, and
during shift or mouse selection by any unshifted cursor motion
command (see Info node `Shift Selection' for more details).
You can also deactivate the mark by typing \[keyboard-quit] or
\[keyboard-escape-quit].
Many commands change their behavior when Transient Mark mode is
in effect and the mark is active, by acting on the region instead
of their usual default part of the buffer's text. Examples of
such commands include \[comment-dwim], \[flush-lines], \[keep-lines],
\[query-replace], \[query-replace-regexp], \[ispell], and \[undo].
To see the documentation of commands that are sensitive to the
Transient Mark mode, invoke \[apropos-documentation] and type "transient"
or "mark.*active" at the prompt.
(fn &optional ARG)
(defalias 'transient-mark-mode #[256 "\300 \301\302\303=\203 \304\302!?\202 \305!\306V\"\210\307\310\304\302!\203$ \311\202% \312\"\210\313\314!\203K \300 \2039 \211\300 \232\203K \315\316\317\304\302!\203F \320\202G \321#\266\210\322 \210\304\302!\207" [current-message set-default transient-mark-mode toggle default-value prefix-numeric-value 0 run-hooks transient-mark-mode-hook transient-mark-mode-on-hook transient-mark-mode-off-hook called-interactively-p any "" message "Transient-Mark mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 189491) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar transient-mark-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [transient-mark-mode-map transient-mark-mode-hook variable-documentation put "Hook run after entering or leaving `transient-mark-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode transient-mark-mode nil boundp] 6)
#@301 Non-nil means it is ok for commands to call `widen' when they want to.
Some commands will do this in order to go to positions outside
the current accessible part of the buffer.
If `widen-automatically' is nil, these commands will do something else
as a fallback, and won't change the buffer bounds.
(defvar widen-automatically t (#$ . 191835))
#@369 Whether the currently executing code is performing an essential task.
This variable should be non-nil only when running code that should not
disturb the user. E.g., it can be used to prevent Tramp from prompting
the user for a password when we are simply scanning a set of files in the
background or displaying possible completions before the user even asked
for it.
(defvar non-essential nil (#$ . 192187))
#@56 Pop off global mark ring and jump to the top location.
(defalias 'pop-global-mark #[0 "\203 \302@!\204 A\211\204 \204 \303\304!\210@\302!\305!A@C\244q\210\211eY\2038 \211dX\204E \203A ~\210\202E \303\306!\210\211b\210\307!\207" [global-mark-ring widen-automatically marker-buffer error "No global mark set" marker-position "Global mark position is outside accessible part of buffer" switch-to-buffer] 6 (#$ . 192602) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable next-line-add-newlines funcall function #[0 "\300\207" [nil] 1] "If non-nil, `next-line' inserts newline to avoid `end of buffer' error." :type boolean :version "21.1" :group editing-basics] 10)
#@1566 Move cursor vertically down ARG lines.
Interactively, vscroll tall lines if `auto-window-vscroll' is enabled.
Non-interactively, use TRY-VSCROLL to control whether to vscroll tall
lines: if either `auto-window-vscroll' or TRY-VSCROLL is nil, this
function will not vscroll.
ARG defaults to 1.
If there is no character in the target line exactly under the current column,
the cursor is positioned after the character in that line that spans this
column, or at the end of the line if it is not long enough.
If there is no line in the buffer after this one, behavior depends on the
value of `next-line-add-newlines'. If non-nil, it inserts a newline character
to create a line, and moves the cursor to that line. Otherwise it moves the
cursor to the end of the buffer.
If the variable `line-move-visual' is non-nil, this command moves
by display lines. Otherwise, it moves by buffer lines, without
taking variable-width characters or continued lines into account.
See \[next-logical-line] for a command that always moves by buffer lines.
The command \[set-goal-column] can be used to create
a semipermanent goal column for this command.
Then instead of trying to move exactly vertically (or as close as possible),
this command moves to the specified goal column (or as close as possible).
The goal column is stored in the variable `goal-column', which is nil
when there is no goal column. Note that setting `goal-column'
overrides `line-move-visual' and causes this command to move by buffer
lines rather than by display lines.
(fn &optional ARG TRY-VSCROLL)
(defalias 'next-line #[512 "\204 \304\262\2038 \304U\2038 \212\305\210m)\203. \305\211\210\n\203' \202( \306c\210)\202_ \307\305\211$\210\202_ \310\311!\203X \3121L \307\305\211$0\202T \313@A\"\262\210\202_ \307\305\211$\210\305\207" [next-line-add-newlines abbrev-mode use-hard-newlines hard-newline 1 nil "\n" line-move called-interactively-p interactive (beginning-of-buffer end-of-buffer) signal] 8 (#$ . 193341) "^p\np"])
(byte-code "\300\301\302\303#\300\207" [function-put next-line interactive-only forward-line] 4)
#@1304 Move cursor vertically up ARG lines.
Interactively, vscroll tall lines if `auto-window-vscroll' is enabled.
Non-interactively, use TRY-VSCROLL to control whether to vscroll tall
lines: if either `auto-window-vscroll' or TRY-VSCROLL is nil, this
function will not vscroll.
ARG defaults to 1.
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line that spans this
column, or at the end of the line if it is not long enough.
If the variable `line-move-visual' is non-nil, this command moves
by display lines. Otherwise, it moves by buffer lines, without
taking variable-width characters or continued lines into account.
See \[previous-logical-line] for a command that always moves by buffer lines.
The command \[set-goal-column] can be used to create
a semipermanent goal column for this command.
Then instead of trying to move exactly vertically (or as close as possible),
this command moves to the specified goal column (or as close as possible).
The goal column is stored in the variable `goal-column', which is nil
when there is no goal column. Note that setting `goal-column'
overrides `line-move-visual' and causes this command to move by buffer
lines rather than by display lines.
(fn &optional ARG TRY-VSCROLL)
(defalias 'previous-line #[512 "\204 \300\262\301\302!\203( \3031 \304[\305\211$0\202$ \306@A\"\262\210\2020 \304[\305\211$\210\305\207" [1 called-interactively-p interactive (beginning-of-buffer end-of-buffer) line-move nil signal] 7 (#$ . 195456) "^p\np"])
(byte-code "\300\301\302\303#\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\210\322\316!\207" [function-put previous-line interactive-only "use `forward-line' with negative argument instead." custom-declare-variable track-eol funcall function #[0 "\300\207" [nil] 1] "Non-nil means vertical motion starting at end of line keeps to ends of lines.\nThis means moving to the end of each line moved onto.\nThe beginning of a blank line does not count as the end of a line.\nThis has no effect when the variable `line-move-visual' is non-nil." :type boolean :group editing-basics goal-column #[0 "\300\207" [nil] 1] "Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil.\nA non-nil setting overrides the variable `line-move-visual', which see." (choice integer (const :tag "None" nil)) make-variable-buffer-local] 9)
#@482 Current goal column for vertical motion.
It is the column where point was at the start of the current run
of vertical motion commands.
When moving by visual lines via the function `line-move-visual', it is a cons
cell (COL . HSCROLL), where COL is the x-position, in pixels,
divided by the default column width, and HSCROLL is the number of
columns by which window is scrolled from left margin.
When the `track-eol' feature is doing its job, the value is
`most-positive-fixnum'.
(defvar temporary-goal-column 0 (#$ . 197926))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311\315\316& \207" [custom-declare-variable line-move-ignore-invisible funcall function #[0 "\300\207" [t] 1] "Non-nil means commands that move by lines ignore invisible newlines.\nWhen this option is non-nil, \\[next-line], \\[previous-line], \\[move-end-of-line], and \\[move-beginning-of-line] behave\nas if newlines that are invisible didn't exist, and count\nonly visible newlines. Thus, moving across 2 newlines\none of which is invisible will be counted as a one-line move.\nAlso, a non-nil value causes invisible text to be ignored when\ncounting columns for the purposes of keeping point in the same\ncolumn by \\[next-line] and \\[previous-line].\n\nOutline mode sets this." :type boolean :group editing-basics line-move-visual #[0 "\300\207" [t] 1] "When non-nil, `line-move' moves point by visual lines.\nThis movement is based on where the cursor is displayed on the\nscreen, instead of relying on buffer contents alone. It takes\ninto account variable-width characters and line continuation.\nIf nil, `line-move' moves point by logical lines.\nA non-nil setting of `goal-column' overrides the value of this variable\nand forces movement by logical lines.\nA window that is horizontally scrolled also forces movement by logical\nlines." :version "23.1"] 10)
#@277 Return the height in pixels of the current buffer's default face font.
If the default font is remapped (see `face-remapping-alist'), the
function returns the height of the remapped face.
This function uses the definition of the default face for the currently
selected frame.
(defalias 'default-font-height #[0 "\300\301!\302 \203 \303\304\305\"\230\204 \306!\307H\202 \310 \207" [face-font default display-multi-font-p frame-parameter nil font font-info 3 frame-char-height] 4 (#$ . 199833)])
#@275 Return the width in pixels of the current buffer's default face font.
If the default font is remapped (see `face-remapping-alist'), the
function returns the width of the remapped face.
This function uses the definition of the default face for the currently
selected frame.
(defalias 'default-font-width #[0 "\300\301!\302 \203+ \303\304\305\"\230\204+ \306\300\301!!\211\307H\211\310V\203# \211\202& \311H\266\202\202- \312 \207" [face-font default display-multi-font-p frame-parameter nil font font-info 11 0 10 frame-char-width] 5 (#$ . 200339)])
#@238 Return the pixel height of current buffer's default-face text line.
The value includes `line-spacing', if any, defined for the buffer
or the frame.
This function uses the definition of the default face for the currently
selected frame.
(defalias 'default-line-height #[0 "\301 \302 \203 \206 \303\300!\206 \304\305\300\"\206 \306\202 \306\307!\203+ \310\311 _!\262\\\207" [line-spacing default-font-height display-graphic-p default-value frame-parameter nil 0 floatp truncate frame-char-height] 5 (#$ . 200898)])
#@410 Return the number of screen lines in the text area of the selected window.
This is different from `window-text-height' in that this function counts
lines in units of the height of the font used by the default face displayed
in the window, not in units of the frame's default font, and also accounts
for `line-spacing', if any, defined for the window's buffer or frame.
The value is a floating-point number.
(defalias 'window-screen-lines #[0 "\300 \301 \302\3038A@Z!\245\207" [window-inside-pixel-edges default-line-height float 3] 5 (#$ . 201430)])
#@37
(fn ARG NOERROR &optional TO-END)
(defalias 'line-move-partial #[770 "\301W\203 \302\303\304\"\305 V\205 \306\303Z\304#\207\307\310!\211@A@\3118\3128\307 \211@\3118\305 \313 \314 \315\3128A@\316#\303\211\211\317\320\"\321V\203S \322\323\\!\262\203w \nY\204w [X\204w \203w [X\205\313\204\221 \324\304\303\304#\3128\262\f\3258\262\3268\262\210 \204\246 \324\303\211\304#\3118\262 \3258\262\n\210 A@\206\307 \327 \303\330!\262\211\203\301 \211A\302 Z\202\305 \331!A\266\202\262\f\203\f\301V\203
\203\365
\332 Y\203\365
W\203\365 Z
^\262\202\315\316#
S^\262\302\303\304\"\211\262W\204\203X\203+\n\203'\n\301U\203+\303\202\313\2037X\203M\f\203M\f\301V\203MW\203M\303\202\313\301V\203w\n\203_\n\301V\204l\205\313V\205\313\306\303 \\\304#\202\313\f\203\261\f\301V\203\261U\203\261
\203\246\n\203\246
\\Z\316Y\203\246\306\303\304#\210\333\"\210\304\202\313\f\203\305\f\301V\203\305\334\316!\210\304\202\313\306\303\304#\207" [scroll-margin 0 window-vscroll nil t default-line-height set-window-vscroll window-line-height -1 2 3 window-screen-lines window-inside-pixel-edges - 1 mod 1.0 0.0 round 0.5 pos-visible-in-window-p 4 5 posn-at-point posn-actual-col-row posn-col-row default-font-height line-move-1 scroll-up] 22 (#$ . 201991)])
#@291 Move forward ARG lines.
If NOERROR, don't signal an error if we can't move ARG lines.
TO-END is unused.
TRY-VSCROLL controls whether to vscroll tall lines: if either
`auto-window-vscroll' or TRY-VSCROLL is nil, this function will
not vscroll.
(fn ARG &optional NOERROR TO-END TRY-VSCROLL)
(defalias 'line-move #[1025 "\203 \306\"\207 \205- \211\205- \307!\310U\205- \n\311U\205- ?\205- \f?\205- \312\"?\205\241 \313\314\311\315#\210
\203\235 \204\235 \316 \311V\204\235 \317\320E>\203h \203h \247\203h \321 ZY\204\235 \305\"\322 \323 \324 \314\325\3268A@\310#\262\311W\203\232 `\327 W\203\232 V\203\232 \313\314Z\315#\210\266\207\306\"\207" [noninteractive auto-window-vscroll scroll-conservatively defining-kbd-macro executing-kbd-macro line-move-visual line-move-1 abs 1 0 line-move-partial set-window-vscroll nil t window-hscroll next-line previous-line window-width line-pixel-height window-inside-pixel-edges default-line-height - 3 window-start goal-column last-command this-command auto-hscroll-mode temporary-goal-column hscroll-margin] 13 (#$ . 203383)])
#@121 Move ARG lines forward.
If NOERROR, don't signal an error if we can't move that many lines.
(fn ARG &optional NOERROR)
(defalias 'line-move-visual #[513 "`\305 \306\307!\310:\203* \311\312\nE>\203* AU\203# A\313V\203{ A\262\202{ \314 \310A@\315>\203= \316 B\202y \3178\262@\203o \3178\262@Z\262\320 \321=\203c \322\323\310\307\"\324#\262\325!\326 \245B\202y \203y \327i\330 \"\266\211\203\205 \331\332 \"\210\313Y\203\245 \333\f\206\233 :\203\232 @\202\233 B!Y\204\305 \313W\203\334 \333\f\206\273 :\203\272 @\202\273 B!X\203\334 \313Y\206\360 `U?\206\360 \333!U\206\360 ?\205\360 \334\313W\203\355 \335\202\356 \336\310\"\207" [temporary-goal-column last-command this-command executing-kbd-macro goal-column window-hscroll line-number-display-width t nil next-line previous-line 0 posn-at-point (right-fringe left-fringe) window-width 2 current-bidi-paragraph-direction right-to-left - window-body-width 1 float frame-char-width mod window-text-width set-window-hscroll selected-window vertical-motion signal beginning-of-buffer end-of-buffer] 12 (#$ . 204491)])
#@37
(fn ARG &optional NOERROR TO-END)
(defalias 'line-move-1 #[769 "C\306`\242 :\203 @ A\\\307\310\311\312\313#\314\"\315$\216\n\316>\204B \203@ l\203@ n\203< \n\317=\203@ \f\202A i
\250\204\230 \204\230 \242\310V\203o \242\320V\203_ \242Sy\210\321\210\320y\310U\203\201 \310\240\202~ \242y\310U\203\201 n\203\201 \310\240\204\236\204\236\322\242\310W\203\221 \323\202\222 \324\321\"\210\202\236\321\242\310V\203\211\204m\204\266 \325`!\203\266 \326`!b\210\202\244 \327\306 \330 )`\306\211\331%b\210m\203\333 \204\325 \322\324\321\"\210\202 \306\262\202 \242\320V\203\363
\250\204\363 \325`!\204\363 \320y\210\202 \332\320!\310U\203 \204\322\324\321\"\210\202 \306\262\211\204\231 \211\242S\240\210\202\231 \242\310W\203\235\211\204\235\310y\210o\203=\2047\322\323\321\"\210\202n\306\262\202n\242\333W\203V
\250\204V\325`S!\204V\333y\210\202n\332\333!\310U\203n\204k\322\323\321\"\210\202n\306\262\211\204\211\242T\240\210 \206~ \310U\204\212\242\310W\203o\204\325`S!\203\334`!b\210\202x\210\242\310U*\266\203\207" [inhibit-point-motion-hooks temporary-goal-column last-command track-eol most-positive-fixnum selective-display t make-byte-code 0 "\300\242\306V\203 \307 \301b\210\310\211b)\207\300\242\306W\203$ \311 \301b\210\310\211b)\207\312\f\206*
\301\302\306V#\207" vconcat vector [inhibit-point-motion-hooks goal-column temporary-goal-column 0 line-end-position nil line-beginning-position line-move-finish] 5 (next-line previous-line) move-end-of-line 1 nil signal beginning-of-buffer end-of-buffer invisible-p next-char-property-change constrain-to-field line-end-position inhibit-line-move-field-capture vertical-motion -1 previous-char-property-change line-move-ignore-invisible inhibit-field-text-motion goal-column] 15 (#$ . 205614)])
#@30
(fn COLUMN OPOINT FORWARD)
(defalias 'line-move-finish #[771 "\304\211\205\275 \305\262\305`\306 \212\307\305w\210m\204' \310`!\203' \311`!b\210\307\305w\210\202 `)\203? \204? \n\204? \312\313B!\210\202F \314\315 !!\210\203S `W\203S b\210`\262b\210\305b\210`X\203j `\262\202\206 \316u\210\203w `W\202z `X\203\203 `\262\202\206 \211\262)b\210\305\317\320\"\317\320\"=\203\236 \202\246 \321\304\211\322%b\210)`W\204\265 `V\203\270 \304\262\266\202 \207" [line-move-visual truncate-lines truncate-partial-width-windows inhibit-point-motion-hooks t nil line-beginning-position "^\n" invisible-p next-char-property-change vertical-motion 0 line-move-to-column truncate -1 get-char-property field constrain-to-field inhibit-line-move-field-capture] 14 (#$ . 207457)])
#@214 Try to find column COL, considering invisibility.
This function works only in certain cases,
because what we really need is for `move-to-column'
and `current-column' to be able to ignore invisible text.
(fn COL)
(defalias 'line-move-to-column #[257 "\211\302U\203\f \303 \210\202 \304!\210\205e n?\205e \305`S!\205e `im\2044 \305`!\2034 \306`!b\210\202\" iV\203D \307iZ\\!\202c b\210\310\311 )n?\205a \305`S!\205a \312`\"b\210\202L \262\266\202\207" [line-move-ignore-invisible inhibit-field-text-motion 0 beginning-of-line move-to-column invisible-p next-char-property-change line-move-to-column t line-beginning-position previous-char-property-change] 7 (#$ . 208264)])
#@427 Move point to end of current line as displayed.
With argument ARG not nil or 1, move forward ARG - 1 lines first.
If point reaches the beginning or end of buffer, it stops there.
To ignore the effects of the `intangible' text or overlay
property, bind `inhibit-point-motion-hooks' to t.
If there is an image in the current line, this function
disregards newlines that are part of the text on which the image
rests.
(fn ARG)
(defalias 'move-end-of-line #[257 "\211\204 \302\262\303\211?\205n \212\304\303\305\306\"\203: \307\303x\203: o\204: o\2047 \310`S!\2037 \311`\312\"b\210\202# \313u\210`+\211b\210`V\203Q h\314=\203Q \313u\210\202j `V\203g m\204g g\314=\204g \302\262\202j \306\262\210\202 \207" [line-move-visual goal-column 1 nil 0 line-move t "^\n" invisible-p previous-single-char-property-change invisible -1 10] 5 (#$ . 208954) "^p"])
#@767 Move point to beginning of current line as displayed.
(If there's an image in the line, this disregards newlines
that are part of the text that the image rests on.)
When moving from position that has no `field' property, this
command doesn't enter text which has non-nil `field' property.
In particular, when invoked in the minibuffer, the command will
stop short of entering the text of the minibuffer prompt.
See `inhibit-field-text-motion' for how to inhibit this.
With argument ARG not nil or 1, move forward ARG - 1 lines first.
If point reaches the beginning or end of buffer, it stops there.
(But if the buffer doesn't end in a newline, it stops at the
beginning of the last line.)
To ignore intangibility, bind `inhibit-point-motion-hooks' to t.
(fn ARG)
(defalias 'move-beginning-of-line #[257 "\211\204 \301\262`\302\211\301U\204 \302\303S\304\"\210)\305\302x\210o\2044 \306`S!\2034 \307`!b\210\305\302x\210\202 `W\203I \306`!\203I \310`\"b\210\2024 `\262\311\301U?\304\302%\262\211U\204c \211\202n \311`\301U?\304\302%b\207" [line-move-visual 1 nil line-move t "^\n" invisible-p previous-char-property-change next-char-property-change constrain-to-field] 10 (#$ . 209820) "^p"])
(put 'set-goal-column 'disabled t)
#@427 Set the current horizontal position as a goal for \[next-line] and \[previous-line].
Those commands will move to this position in the line moved to
rather than trying to keep the same horizontal position.
With a non-nil argument ARG, clears out the goal column
so that \[next-line] and \[previous-line] resume vertical motion.
The goal column is stored in the variable `goal-column'.
This is a buffer-local setting.
(fn ARG)
(defalias 'set-goal-column #[257 "\211\203
\301\302\303!\210\202 i\302\304\305\306\"\307\310!P\"\210\301\207" [goal-column nil message "No goal column" "%s" format "Goal column %d " substitute-command-keys "(use \\[set-goal-column] with an arg to unset it)"] 6 (#$ . 211074) "P"])
#@260 Move point to end of current visual line.
With argument N not nil or 1, move forward N - 1 visual lines first.
If point reaches the beginning or end of buffer, it stops there.
To ignore intangibility, bind `inhibit-point-motion-hooks' to t.
(fn &optional N)
(defalias 'end-of-visual-line #[256 "\211\204 \301\262\211\301U\204 \302\303S\302\"\210)\304\305 \306B!\207" [line-move-visual 1 t line-move vertical-motion window-width 0] 4 (#$ . 211793) "^p"])
#@363 Move point to beginning of current visual line.
With argument N not nil or 1, move forward N - 1 visual lines first.
If point reaches the beginning or end of buffer, it stops there.
(But if the buffer doesn't end in a newline, it stops at the
beginning of the last visual line.)
To ignore intangibility, bind `inhibit-point-motion-hooks' to t.
(fn &optional N)
(defalias 'beginning-of-visual-line #[256 "\211\204 \301\262`\301U\204 \302\303S\302\"\210)\304\305!\210\306`\301U?#b\207" [line-move-visual 1 t line-move vertical-motion 0 constrain-to-field] 7 (#$ . 212260) "^p"])
#@629 Kill the rest of the visual line.
With prefix argument ARG, kill that many visual lines from point.
If ARG is negative, kill visual lines backward.
If ARG is zero, kill the text before point on the current visual
line.
If you want to append the killed line to the last killed text,
use \[append-next-kill] before \[kill-line].
If the buffer is read-only, Emacs will beep and refrain from deleting
the line, but put the line in the kill ring anyway. This means that
you can use this command to copy text from a read-only buffer.
(If the variable `kill-read-only-ok' is non-nil, then this won't
even beep.)
(fn &optional ARG)
(defalias 'kill-visual-line #[256 "`\205 n\203 \301\302!!\210\202) \303\304!\210`U\203% \301\304!\210\202) \305\306w\210\307\203: g\310U\203: `T\202; `\")\207" [kill-whole-line vertical-motion prefix-numeric-value end-of-visual-line 1 " " nil kill-region 10] 6 (#$ . 212853) "P"])
#@231 Move cursor vertically down ARG lines.
This is identical to `next-line', except that it always moves
by logical lines instead of visual lines, ignoring the value of
the variable `line-move-visual'.
(fn &optional ARG TRY-VSCROLL)
(defalias 'next-logical-line #[512 "\301\302\")\207" [line-move-visual nil next-line] 5 (#$ . 213779) "^p\np"])
#@233 Move cursor vertically up ARG lines.
This is identical to `previous-line', except that it always moves
by logical lines instead of visual lines, ignoring the value of
the variable `line-move-visual'.
(fn &optional ARG TRY-VSCROLL)
(defalias 'previous-logical-line #[512 "\301\302\")\207" [line-move-visual nil previous-line] 5 (#$ . 214131) "^p\np"])
(custom-declare-group 'visual-line nil "Editing based on visual lines." :group 'convenience :version "23.1")
(defvar visual-line-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key [remap kill-line] kill-visual-line [remap move-beginning-of-line] beginning-of-visual-line [remap move-end-of-line] end-of-visual-line] 5))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable visual-line-fringe-indicators funcall function #[0 "\300\207" [(nil nil)] 1] "How fringe indicators are shown for wrapped lines in `visual-line-mode'.\nThe value should be a list of the form (LEFT RIGHT), where LEFT\nand RIGHT are symbols representing the bitmaps to display, to\nindicate wrapped lines, in the left and right fringes respectively.\nSee also `fringe-indicator-alist'.\nThe default is not to display fringe indicators for wrapped lines.\nThis variable does not affect fringe indicators displayed for\nother purposes." :type (list (choice (const :tag "Hide left indicator" nil) (const :tag "Left curly arrow" left-curly-arrow) (symbol :tag "Other bitmap")) (choice (const :tag "Hide right indicator" nil) (const :tag "Right curly arrow" right-curly-arrow) (symbol :tag "Other bitmap"))) :set #[514 "\301 \211\203* \211@r\211q\210\302\303!\203\" \303J\203\" \304B\305\304\306!\"B)A\266\202\202 \210\307\"\207" [fringe-indicator-alist buffer-list boundp visual-line-mode continuation assq-delete-all copy-tree set-default] 9 "\n\n(fn SYMBOL VALUE)"]] 8)
(defvar visual-line--saved-state nil)
#@101 Non-nil if Visual-Line mode is enabled.
Use the command `visual-line-mode' to change this variable.
(defvar visual-line-mode nil (#$ . 216081))
(make-variable-buffer-local 'visual-line-mode)
#@548 Toggle visual line based editing (Visual Line mode) in the current buffer.
If called interactively, enable Visual-Line mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When Visual Line mode is enabled, `word-wrap' is turned on in
this buffer, and simple editing commands are redefined to act on
visual lines, not logical lines. See Info node `Visual Line
Mode' for details.
(fn &optional ARG)
(defalias 'visual-line-mode #[256 "\306 \307=\203
?\202 \310!\311V\211\203U \312\301!\210\313\314\211\2038 \211@\315!\2031 \211JB BA\266\202\202 \210\312\302!\210\316\312\303!\210\313\211\316\317 BB\202\204 \320\302!\210\320\305!\210\320\304!\210\320\303!\210\320\321!\210 \211\203 \211@\312@!AL\210A\266\202\202j \210\320\301!\210\322\323\203\216 \324\202\217 \325\"\210\326\327!\203\263 \306 \203\243 \211\306 \232\203\263 \330\331\332\203\256 \333\202\257 \334#\266\210\335 \210\207" [visual-line-mode visual-line--saved-state line-move-visual truncate-partial-width-windows truncate-lines word-wrap current-message toggle prefix-numeric-value 0 make-local-variable nil (line-move-visual truncate-lines truncate-partial-width-windows word-wrap fringe-indicator-alist) local-variable-p t continuation kill-local-variable fringe-indicator-alist run-hooks visual-line-mode-hook visual-line-mode-on-hook visual-line-mode-off-hook called-interactively-p any " in current buffer" message "Visual-Line mode %sabled%s" "en" "dis" force-mode-line-update visual-line-fringe-indicators] 8 (#$ . 216279) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar visual-line-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [visual-line-mode-map visual-line-mode-hook variable-documentation put "Hook run after entering or leaving `visual-line-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode visual-line-mode " Wrap" nil] 6)
(defalias 'turn-on-visual-line-mode #[0 "\300\301!\207" [visual-line-mode 1] 2])
(put 'global-visual-line-mode 'globalized-minor-mode t)
(defvar visual-line-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local visual-line-mode-major-mode custom-declare-variable global-visual-line-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Visual-Line mode is enabled.\nSee the `global-visual-line-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-visual-line-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group global-visual-line :type boolean] 12)
#@371 Toggle Visual-Line mode in all buffers.
With prefix ARG, enable Global Visual-Line mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
Visual-Line mode is enabled in all buffers where
`turn-on-visual-line-mode' would do it.
See `visual-line-mode' for more information on Visual-Line mode.
(fn &optional ARG)
(defalias 'global-visual-line-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c \211@r\211q\210\203S \321 \210\202[ \203[ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203p \325\202q \326\"\210\327\330!\203\233 \331\300!\210\302 \203\211 \211\302 \232\203\233 \332\333\334\305\300!\203\226 \335\202\227 \336#\266\210\337 \210\305\300!\207" [global-visual-line-mode visual-line-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-visual-line-mode-enable-in-buffers find-file-hook global-visual-line-mode-check-buffers change-major-mode-hook global-visual-line-mode-cmhh remove-hook buffer-list turn-on-visual-line-mode -1 run-hooks global-visual-line-mode-hook global-visual-line-mode-on-hook global-visual-line-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Visual-Line mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 219256) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-visual-line-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-visual-line-mode-map global-visual-line-mode-hook variable-documentation put "Hook run after entering or leaving `global-visual-line-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-visual-line-mode nil boundp] 6)
(defvar visual-line-mode-set-explicitly nil nil)
(make-variable-buffer-local 'visual-line-mode-set-explicitly)
(defalias 'visual-line-mode-set-explicitly #[0 "\301\211\207" [visual-line-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put visual-line-mode-set-explicitly definition-name global-visual-line-mode add-hook visual-line-mode-hook] 4)
(defvar global-visual-line-mode-buffers nil)
(defalias 'global-visual-line-mode-enable-in-buffers #[0 "\305\211\211\2059 \211@\306!\2032 r\211q\210 \204/ \n =\204/ \f\203, \304\307!\210\310 \210\202/ \310 \210 )A\266\202\202 \262\207" [global-visual-line-mode-buffers visual-line-mode-set-explicitly visual-line-mode-major-mode major-mode visual-line-mode nil buffer-live-p -1 turn-on-visual-line-mode] 5])
(put 'global-visual-line-mode-enable-in-buffers 'definition-name 'global-visual-line-mode)
(defalias 'global-visual-line-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-visual-line-mode-enable-in-buffers remove-hook post-command-hook global-visual-line-mode-check-buffers] 3])
(put 'global-visual-line-mode-check-buffers 'definition-name 'global-visual-line-mode)
(defalias 'global-visual-line-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-visual-line-mode-buffers add-hook post-command-hook global-visual-line-mode-check-buffers] 3])
(put 'global-visual-line-mode-cmhh 'definition-name 'global-visual-line-mode)
#@287 Interchange characters around point, moving forward one character.
With prefix arg ARG, effect is to take character before point
and drag it forward past ARG other characters (backward if ARG negative).
If no argument and at end of line, the previous two chars are exchanged.
(fn ARG)
(defalias 'transpose-chars #[257 "\211\204 l\203 o\204 \300`S\301\"\204 \302u\210\303\304\305!\"\207" [get-text-property read-only -1 transpose-subr forward-char prefix-numeric-value] 5 (#$ . 222711) "*P"])
#@300 Interchange words around point, leaving point at end of them.
With prefix arg ARG, effect is to take word before or around point
and drag it forward past ARG other words (backward if ARG negative).
If ARG is zero, the words around or after point and around or after mark
are interchanged.
(fn ARG)
(defalias 'transpose-words #[257 "\300\301\"\207" [transpose-subr forward-word] 4 (#$ . 223216) "*p"])
#@422 Like \[transpose-chars] (`transpose-chars'), but applies to sexps.
Unlike `transpose-words', point must be between the two sexps and not
in the middle of a sexp to be transposed.
With non-zero prefix arg ARG, effect is to take the sexp before point
and drag it forward past ARG other sexps (backward if ARG is negative).
If ARG is zero, the sexps ending at or after point and at or after mark
are interchanged.
(fn ARG)
(defalias 'transpose-sexps #[257 "\300\301\302#\207" [transpose-subr #[257 "\211\300V\203\f \301\302!\202 o\2043 \212\303u\210\301\302!)\2033 \211\300V\203% \304\202& \305\306!\210\212\307!\210`)`B\207\211\300V\203= \304\202> \305\310!\210\212\307!\210`)\311\300V\203S \312\202T \303!\204H \300V\203b \305\202c \304\313!\300U\203H `B\207" [0 looking-at "\\sw\\|\\s_" -1 skip-syntax-backward skip-syntax-forward "w_" forward-sexp " ." forward-comment 1 "."] 5 "\n\n(fn ARG)"] special] 5 (#$ . 223626) "*p"])
#@215 Exchange current line and previous line, leaving point after both.
With argument ARG, takes previous line and moves it past ARG lines.
With argument 0, interchanges line point is in with line mark is in.
(fn ARG)
(defalias 'transpose-lines #[257 "\300\301\"\207" [transpose-subr #[257 "\211\300V\203 \211y\262h\301U\204 \211T\262\211\300V\205 \302!\207\211y\207" [0 10 newline] 3 "\n\n(fn ARG)"]] 4 (#$ . 224567) "*p"])
#@490 Subroutine to do the work of transposing objects.
Works for lines, sentences, paragraphs, etc. MOVER is a function that
moves forward by units of the given object (e.g. forward-sentence,
forward-paragraph). If ARG is zero, exchanges the current object
with the one containing mark. If ARG is an integer, moves the
current object past ARG following (if ARG is positive) or
preceding (if ARG is negative) objects, leaving point after the
current object.
(fn MOVER ARG &optional SPECIAL)
(defalias 'transpose-subr #[770 "\211\203 \202 \300\301\302\303\304!\305\"\306\307%\310\211\311U\203= \212\312!\262\313 \206+ \314\315!b\210\312!\262\316\"\210)\317 \202t \311V\203X \320!\262!\262\316\"\210\211@b\202t \320!\262@b\210!\262\316\"\210\211@A@Z\\b\207" [make-byte-code 257 "\300!\210`\300[!\210`B\207" vconcat vector [] 4 "\n\n(fn X)" nil 0 1 mark error "No mark set in this buffer" transpose-subr-1 exchange-point-and-mark -1] 9 (#$ . 225002)])
#@18
(fn POS1 POS2)
(defalias 'transpose-subr-1 #[514 "@AV\203 A@B\262\211@AV\203 \211A@B\262@@V\203, \262\262A@V\2038 \304\305!\210\306 \307\211\307C\310\311\312\313\314 \"\315\"\316$\216\317!\210@A{A@ZG\320 \211\n@\307\223\210\nAb\210\321!\210\322 @\f@\\\"\262\211b\210c\210\211\\b\210``\\|\210\211\307\211\223\266\204\323\240\210,\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit error "Don't have two things to transpose" prepare-change-group nil make-byte-code 0 "\301\242\203 \302\300!\207\303\300!\207" vconcat vector [accept-change-group cancel-change-group] 2 activate-change-group make-marker insert-before-markers delete-and-extract-region t] 15 (#$ . 225987)])
#@583 Move backward until encountering the beginning of a word.
With argument ARG, do this that many times.
If ARG is omitted or nil, move point backward one word.
The word boundaries are normally determined by the buffer's
syntax table and character script (according to
`char-script-table'), but `find-word-boundary-function-table',
such as set up by `subword-mode', can change that. If a Lisp
program needs to move by words determined strictly by the syntax
table, it should use `backward-word-strictly' instead. See Info
node `(elisp) Word Motion' for details.
(fn &optional ARG)
(defalias 'backward-word #[256 "\211\206 \300[v\207" [1] 2 (#$ . 226737) "^p"])
#@315 Set mark ARG words away from point.
The place mark goes is the same place \[forward-word] would
move to with the same argument.
Interactively, if this command is repeated
or (in Transient Mark mode) if the mark is active,
it marks the next ARG words after the ones already marked.
(fn &optional ARG ALLOW-EXTEND)
(defalias 'mark-word #[512 "\211\203: =\203 \302\303!\204 \304 \203: \203 \305!\202+ \302 `W\203* \306\202+ \307\262\310\212\302 b\210v\210`)!\207\311\212\305!v\210`)\312\303#\207" [last-command this-command mark t region-active-p prefix-numeric-value -1 1 set-mark push-mark nil] 6 (#$ . 227407) "P\np"])
#@117 Kill characters forward until encountering the end of a word.
With argument ARG, do this that many times.
(fn ARG)
(defalias 'kill-word #[257 "\300`v\210`\"\207" [kill-region] 4 (#$ . 228044) "p"])
#@124 Kill characters backward until encountering the beginning of a word.
With argument ARG, do this that many times.
(fn ARG)
(defalias 'backward-kill-word #[257 "\300[!\207" [kill-word] 3 (#$ . 228251) "p"])
#@568 Return the word at or near point, as a string.
The return value includes no text properties.
If optional arg STRICT is non-nil, return nil unless point is
within or adjacent to a word, otherwise look for a word within
point's line. If there is no word anywhere on point's line, the
value is nil regardless of STRICT.
By default, this function treats as a single word any sequence of
characters that have either word or symbol syntax. If optional
arg REALLY-WORD is non-nil, only characters of word syntax can
constitute a word.
(fn &optional STRICT REALLY-WORD)
(defalias 'current-word #[512 "\212```\203\f \300\202
\301\302P\303!\210`\262b\210\304!\210`\262=\203Y =\203Y \204Y \303\305 \"\210n\203O \304\306 \"\210`\262\304!\210`\262\202Y `\262\303!\210`\262U?\205d \307\"\266\205)\207" ["w" "w_" "^" skip-syntax-backward skip-syntax-forward line-beginning-position line-end-position buffer-substring-no-properties] 10 (#$ . 228465)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\210\313\301\314\315#\210\300\316\302\303\317DD\320\306\321\310\311&\207" [custom-declare-variable fill-prefix funcall function #[0 "\300\207" [nil] 1] "String for filling to insert at front of new line, or nil for none." :type (choice (const :tag "None" nil) string) :group fill make-variable-buffer-local put safe-local-variable string-or-null-p auto-fill-inhibit-regexp #[0 "\300\207" [nil] 1] "Regexp to match lines that should not be auto-filled." (choice (const :tag "None" nil) regexp)] 8)
#@167 The default value for `normal-auto-fill-function'.
This is the default auto-fill function, some major modes use a different one.
Returns t if it really did any work.
(defalias 'do-auto-fill #[0 "\305\211\211\306 \211\262?\206/ \307 \211\262?\206/ \310=\203# iX\206/ \205/ \212\311 \210\312 !)?\205\313>\203> \212\314 \210)\n\203t \203L \315\230\203t \316\212\317\320!\210`)\212\317\321!\210`)\"\211\203s \211\315\232\204s \203q \322\323\"\204s \211\210\211\204iV\203\212\311 \210\203\214 \324\325!!\210`\324T!\210\326!\210`\262)\212\211b\210n\206\301 \212\327\305w\210l)\206\301 \f\205\301 `\311 \210\330\f\331#\205\277 `=\262)\203\313 \331\262\202i\212\332\305x\210`U)\203\337 \333\331!\210\202\350 \212b\210\333\331!\210)\310=\204\371 \212\334\210\335\305\331#\210)iY\203\331\262\210\210\202t \335\331\211#\210\331)\207" [fill-prefix auto-fill-inhibit-regexp adaptive-fill-mode fill-indent-according-to-mode comment-start-skip nil current-justification current-fill-column left beginning-of-line looking-at (full center right) unjustify-current-line "" fill-context-prefix fill-forward-paragraph -1 1 string-match "\\`[ ]*\\'" move-to-column string-width fill-move-to-break-point " " re-search-forward t " " default-indent-new-line 0 justify-current-line] 9 (#$ . 230006)])
#@261 Mode-specific function that line breaks and continues a comment.
This function is called during auto-filling when a comment syntax
is defined.
The function should take a single optional argument, which is a flag
indicating whether it should use soft newlines.
(defvar comment-line-break-function 'comment-indent-new-line (#$ . 231332))
#@242 Break line at point and indent.
If a comment syntax is defined, call `comment-line-break-function'.
The inserted newline is marked hard if variable `use-hard-newlines' is true,
unless optional argument SOFT is non-nil.
(fn &optional SOFT)
(defalias 'default-indent-new-line #[256 "\203 !\207\211\203 \304\305!\210\202 \306\307!\210\212\310u\210\311 \210)\311 \210\n\2031 \2041 \312 \210\313\n!\207\n\203< \312 \210\304\n!\207\314 \207" [comment-start comment-line-break-function fill-prefix adaptive-fill-mode insert-and-inherit 10 newline 1 -1 delete-horizontal-space indent-to-left-margin insert-before-markers-and-inherit indent-according-to-mode] 3 (#$ . 231675) nil])
#@71 The function called by `self-insert-command' to perform auto-filling.
(defalias 'internal-auto-fill #[0 "\203 \203 \303\304 8\205 \n \207" [comment-start comment-auto-fill-only-comments auto-fill-function 4 syntax-ppss] 2 (#$ . 232363)])
#@105 The function to use for `auto-fill-function' if Auto Fill mode is turned on.
Some major modes set this.
(defvar normal-auto-fill-function 'do-auto-fill (#$ . 232613))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put auto-fill-function :minor-mode-function auto-fill-mode safe-local-variable null] 4)
#@660 Toggle automatic line breaking (Auto Fill mode).
If called interactively, enable Auto-Fill mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When Auto Fill mode is enabled, inserting a space at a column
beyond `current-fill-column' automatically breaks the line at a
previous space.
When `auto-fill-mode' is on, the `auto-fill-function' variable is
non-nil.
The value of `normal-auto-fill-function' specifies the function to use
for `auto-fill-function' when turning Auto Fill mode on.
(fn &optional ARG)
(defalias 'auto-fill-mode #[256 "\302 \303=\203
?\202 \304!\305V\211\205 \210\306\307\203# \310\202$ \311\"\210\312\313!\203H \302 \2038 \211\302 \232\203H \314\315\316\203C \317\202D \320#\266\210\321 \210\207" [auto-fill-function normal-auto-fill-function current-message toggle prefix-numeric-value 0 run-hooks auto-fill-mode-hook auto-fill-mode-on-hook auto-fill-mode-off-hook called-interactively-p any " in current buffer" message "Auto-Fill mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 232932) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-fill-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [auto-fill-mode-map auto-fill-mode-hook variable-documentation put "Hook run after entering or leaving `auto-fill-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode auto-fill-function nil boundp] 6)
#@69 Automatically break line at a previous space, in insertion of text.
(defalias 'auto-fill-function #[0 "\300\207" [nil] 1 (#$ . 234611)])
#@41 Unconditionally turn on Auto Fill mode.
(defalias 'turn-on-auto-fill #[0 "\300\301!\207" [auto-fill-mode 1] 2 (#$ . 234754)])
#@42 Unconditionally turn off Auto Fill mode.
(defalias 'turn-off-auto-fill #[0 "\300\301!\207" [auto-fill-mode -1] 2 (#$ . 234886)])
(custom-add-option 'text-mode-hook 'turn-on-auto-fill)
#@192 Set `fill-column' to specified argument.
Use \[universal-argument] followed by a number to specify a column.
Just \[universal-argument] as argument means to use the current column.
(fn ARG)
(defalias 'set-fill-column #[257 "\211:\203 i\262\211\250\204 \301\302!\207\303\304#\210\211\211\207" [fill-column error "set-fill-column requires an explicit argument" message "Fill column set to %d (was %d)"] 5 (#$ . 235077) (byte-code "\206 \301\302i\"C\207" [current-prefix-arg read-number "Set fill-column to: "] 3)])
#@249 Set `selective-display' to ARG; clear it if no arg.
When the value of `selective-display' is a number > 0,
lines whose indentation is >= that value are not displayed.
The variable `selective-display' has a separate value for each buffer.
(fn ARG)
(defalias 'set-selective-display #[257 "\301=\203\n \302\303!\210\214e`}\210\304 b\210\305\306 !)\205 \307!\310!\266\311\312 \304 \"\210\313\314\301\"\210\315\301\"\210\313\316\301\"\207" [selective-display t error "selective-display already in use for marked lines" window-start vertical-motion window-height prefix-numeric-value recenter set-window-start selected-window princ "selective-display set to " prin1 "."] 4 (#$ . 235606) "P"])
(defvaralias 'indicate-unused-lines 'indicate-empty-lines)
#@322 Toggle truncating of long lines for the current buffer.
When truncating is off, long lines are folded.
With prefix argument ARG, truncate long lines if ARG is positive,
otherwise fold them. Note that in side-by-side windows, this
command has no effect if `truncate-partial-width-windows' is
non-nil.
(fn &optional ARG)
(defalias 'toggle-truncate-lines #[256 "\211\204 ?\202 \301!\302V\303 \210\204* p\304\305\306\307\310\311!\312\"\313\314%\315\316#\266\317\320\2034 \321\2025 \322\"\207" [truncate-lines prefix-numeric-value 0 force-mode-line-update walk-windows make-byte-code 257 "\300\301!=\205\f \302\303\"\207" vconcat vector [window-buffer set-window-hscroll 0] 4 "\n\n(fn WINDOW)" nil t message "Truncate long lines %s" "enabled" "disabled"] 9 (#$ . 236368) "P"])
#@310 Toggle whether to use word-wrapping for continuation lines.
With prefix argument ARG, wrap continuation lines at word boundaries
if ARG is positive, otherwise wrap them at the right screen edge.
This command toggles the value of `word-wrap'. It has no effect
if long lines are truncated.
(fn &optional ARG)
(defalias 'toggle-word-wrap #[256 "\211\204 ?\202 \301!\302V\303 \210\304\305\203 \306\202 \307\"\207" [word-wrap prefix-numeric-value 0 force-mode-line-update message "Word wrapping %s" "enabled" "disabled"] 4 (#$ . 237161) "P"])
#@63 The string displayed in the mode line when in overwrite mode.
(defvar overwrite-mode-textual (purecopy " Ovwrt") (#$ . 237715))
#@70 The string displayed in the mode line when in binary overwrite mode.
(defvar overwrite-mode-binary (purecopy " Bin Ovwrt") (#$ . 237849))
#@687 Toggle Overwrite mode.
If called interactively, enable Overwrite mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When Overwrite mode is enabled, printing characters typed in
replace existing text on a one-for-one basis, rather than pushing
it to the right. At the end of a line, such characters extend
the line. Before a tab, such characters insert until the tab is
filled in. \[quoted-insert] still inserts characters in
overwrite mode; this is supposed to make it easier to insert
characters when necessary.
(fn &optional ARG)
(defalias 'overwrite-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\205 \305\210\306\307\203# \310\202$ \311\"\210\312\313!\203H \301 \2038 \211\301 \232\203H \314\315\316\203C \317\202D \320#\266\210\321 \210\207" [overwrite-mode current-message toggle prefix-numeric-value 0 overwrite-mode-textual run-hooks overwrite-mode-hook overwrite-mode-on-hook overwrite-mode-off-hook called-interactively-p any " in current buffer" message "Overwrite mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 237994) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar overwrite-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [overwrite-mode-map overwrite-mode-hook variable-documentation put "Hook run after entering or leaving `overwrite-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode overwrite-mode nil boundp] 6)
#@876 Toggle Binary Overwrite mode.
If called interactively, enable Binary-Overwrite mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
When Binary Overwrite mode is enabled, printing characters typed
in replace existing text. Newlines are not treated specially, so
typing at the end of a line joins the line to the next, with the
typed character between them. Typing before a tab character
simply replaces the tab with the character typed.
\[quoted-insert] replaces the text at the cursor, just as
ordinary typing characters do.
Note that Binary Overwrite mode is not its own minor mode; it is
a specialization of overwrite mode, entered by setting the
`overwrite-mode' variable to `overwrite-mode-binary'.
(fn &optional ARG)
(defalias 'binary-overwrite-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\205 \305\210\306\307\203# \310\202$ \311\"\210\312\313!\203H \301 \2038 \211\301 \232\203H \314\315\316\203C \317\202D \320#\266\210\321 \210\207" [overwrite-mode current-message toggle prefix-numeric-value 0 overwrite-mode-binary run-hooks binary-overwrite-mode-hook binary-overwrite-mode-on-hook binary-overwrite-mode-off-hook called-interactively-p any " in current buffer" message "Binary-Overwrite mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 239693) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar binary-overwrite-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326& \207" [binary-overwrite-mode-map binary-overwrite-mode-hook variable-documentation put "Hook run after entering or leaving `binary-overwrite-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode overwrite-mode nil boundp custom-declare-variable line-number-mode funcall function #[0 "\300\207" [t] 1] "Non-nil if Line-Number mode is enabled.\nSee the `line-number-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :group mode-line :type boolean] 12)
#@495 Toggle line number display in the mode line (Line Number mode).
If called interactively, enable Line-Number mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Line numbers do not appear for very large buffers and buffers
with very long lines; see variables `line-number-display-limit'
and `line-number-display-limit-width'.
(fn &optional ARG)
(defalias 'line-number-mode #[256 "\300 \301\302\303=\203 \304\302!?\202 \305!\306V\"\210\307\310\304\302!\203$ \311\202% \312\"\210\313\314!\203O \315\302!\210\300 \203= \211\300 \232\203O \316\317\320\304\302!\203J \321\202K \322#\266\210\323 \210\304\302!\207" [current-message set-default line-number-mode toggle default-value prefix-numeric-value 0 run-hooks line-number-mode-hook line-number-mode-on-hook line-number-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Line-Number mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 242001) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar line-number-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326& \207" [line-number-mode-map line-number-mode-hook variable-documentation put "Hook run after entering or leaving `line-number-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode line-number-mode nil boundp custom-declare-variable column-number-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Column-Number mode is enabled.\nSee the `column-number-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :group mode-line :type boolean] 12)
#@335 Toggle column number display in the mode line (Column Number mode).
If called interactively, enable Column-Number mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'column-number-mode #[256 "\300 \301\302\303=\203 \304\302!?\202 \305!\306V\"\210\307\310\304\302!\203$ \311\202% \312\"\210\313\314!\203O \315\302!\210\300 \203= \211\300 \232\203O \316\317\320\304\302!\203J \321\202K \322#\266\210\323 \210\304\302!\207" [current-message set-default column-number-mode toggle default-value prefix-numeric-value 0 run-hooks column-number-mode-hook column-number-mode-on-hook column-number-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Column-Number mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 243943) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar column-number-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326& \207" [column-number-mode-map column-number-mode-hook variable-documentation put "Hook run after entering or leaving `column-number-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode column-number-mode nil boundp custom-declare-variable size-indication-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Size-Indication mode is enabled.\nSee the `size-indication-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :group mode-line :type boolean] 12)
#@337 Toggle buffer size display in the mode line (Size Indication mode).
If called interactively, enable Size-Indication mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'size-indication-mode #[256 "\300 \301\302\303=\203 \304\302!?\202 \305!\306V\"\210\307\310\304\302!\203$ \311\202% \312\"\210\313\314!\203O \315\302!\210\300 \203= \211\300 \232\203O \316\317\320\304\302!\203J \321\202K \322#\266\210\323 \210\304\302!\207" [current-message set-default size-indication-mode toggle default-value prefix-numeric-value 0 run-hooks size-indication-mode-hook size-indication-mode-on-hook size-indication-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Size-Indication mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 245753) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar size-indication-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [size-indication-mode-map size-indication-mode-hook variable-documentation put "Hook run after entering or leaving `size-indication-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode size-indication-mode nil boundp] 6)
#@322 Toggle auto-saving in the current buffer (Auto Save mode).
If called interactively, enable Auto-Save mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'auto-save-mode #[256 "\305 \306=\203 \205 \307Y?\202 \310!\307V\211\204 \311\2022 \n\2030 \2030 \f\2040 \n\2022 \312 \210 \307W\203< \307\313\314\203L \307Y\203L \315\202M \316\"\210\317\320!\203w \305 \203a \211\305 \232\203w \321\322\323\203r \307Y\203r \324\202s \325#\266\210\326 \210\205\202 \307Y\207" [buffer-auto-save-file-name buffer-saved-size buffer-file-name auto-save-visited-file-name buffer-read-only current-message toggle 0 prefix-numeric-value nil make-auto-save-file-name run-hooks auto-save-mode-hook auto-save-mode-on-hook auto-save-mode-off-hook called-interactively-p any " in current buffer" message "Auto-Save mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 247215) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-save-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\312\305&\210\314\324\316\317\325DD\326\322\327\312\305&\210\314\330\316\317\331DD\332\333\334\322\335\312\305& \210\314\336\316\317\337DD\340\322\341\312\305&\210\314\342\316\317\343DD\344\322\327\312\305&\207" [auto-save-mode-hook variable-documentation put "Hook run after entering or leaving `auto-save-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-declare-group paren-blinking nil "Blinking matching of parens and expressions." :prefix "blink-matching-" :group paren-matching custom-declare-variable blink-matching-paren funcall function #[0 "\300\207" [t] 1] "Non-nil means show matching open-paren when close-paren is inserted.\nIf t, highlight the paren. If `jump', briefly move cursor to its\nposition. If `jump-offscreen', move cursor there even if the\nposition is off screen. With any other non-nil value, the\noff-screen position of the opening paren will be shown in the\necho area." :type (choice (const :tag "Disable" nil) (const :tag "Highlight" t) (const :tag "Move cursor" jump) (const :tag "Move cursor, even if off screen" jump-offscreen)) blink-matching-paren-on-screen #[0 "\300\207" [t] 1] "Non-nil means show matching open-paren when it is on screen.\nIf nil, don't show it (but the open-paren can still be shown\nin the echo area when it is off screen).\n\nThis variable has no effect if `blink-matching-paren' is nil.\n(In that case, the open-paren is never shown.)\nIt is also ignored if `show-paren-mode' is enabled." boolean blink-matching-paren-distance #[0 "\300\207" [102400] 1] "If non-nil, maximum distance to search backwards for matching open-paren.\nIf nil, search stops at the beginning of the accessible portion of the buffer." :version "23.2" (choice (const nil) integer) blink-matching-delay #[0 "\300\207" [1] 1] "Time in seconds to delay after showing a matching paren." number blink-matching-paren-dont-ignore-comments #[0 "\300\207" [nil] 1] "If nil, `blink-matching-paren' ignores comments.\nMore precisely, when looking for the matching parenthesis,\nit skips the contents of comments that end before point."] 10)
#@231 Return whether or not START...END are matching parens.
END is the current point and START is the blink position.
START might be nil if no matching starter was found.
Returns non-nil if we find there is a mismatch.
(fn START END)
(defalias 'blink-matching-check-mismatch #[514 "\300S!\211:\205 \301!\302=\205 \211A\211\205) \205( f=\206( \211\300!\243=?\207" [syntax-after syntax-class 5] 7 (#$ . 250657)])
#@293 Function to check parentheses mismatches.
The function takes two arguments (START and END) where START is the
position just before the opening token and END is the position right after.
START can be nil, if it was not found.
The function should return non-nil if the two tokens do not match.
(defvar blink-matching-check-function 'blink-matching-check-mismatch (#$ . 251079))
#@47 Overlay used to highlight the matching paren.
(defvar blink-matching--overlay (byte-code "\300``\301\302$\303\304\305#\210\306!\210\211\207" [make-overlay nil t overlay-put face show-paren-match delete-overlay] 5) (#$ . 251461))
#@63 Momentarily highlight the beginning of the sexp before point.
(defalias 'blink-matching-open #[0 "o?\205(\205(`\306\212\214\n\203 \307 `\nZ]}\210 \205! \f?\3101W \311`!\210\312\313!\210`SW\203R \314`!\315!\316=\206G \317\320@\"\320=\262\203R \321u\210\202. `0\202Y \210\306+
\"\211\203\210 \203w \322 \203q \323\324!\202%\325\324!\202%\322 \203\202 \323\326!\202%\325\326!\202%\204\220 \306\202%\327=\204\234 \330!\203\314 $\205%%?\205%\331>\203\271 \212b\210\332&!)\202%\333\216\334'\211Tp$\210\332&!)\202%\212b\210\212\335\306x\210n)\204\342 \336 T{\202 \212\321u\210\335\306w\210l)\204\366 \337 {\202 \212\340\306x\210o)\204\340\306x\210\336 \306\210\335\306x\210`{\341\211T{Q\202 \211T{)\323\342\343!\"\262)\266\203\207" [blink-matching-paren message-log-max blink-matching-paren-distance parse-sexp-ignore-comments blink-matching-paren-dont-ignore-comments blink-matching-check-function nil minibuffer-prompt-end (error) syntax-propertize forward-sexp -1 syntax-after syntax-class 6 logand 1048576 1 minibufferp minibuffer-message "Mismatched parentheses" message "No matching parenthesis found" jump-offscreen pos-visible-in-window-p (jump jump-offscreen) sit-for #[0 "\301!\207" [blink-matching--overlay delete-overlay] 2] move-overlay " " line-beginning-position line-end-position "\n " "..." "Matches %s" substring-no-properties blink-matching-paren-on-screen show-paren-mode blink-matching-delay blink-matching--overlay] 8 (#$ . 251698) nil])
#@136 Function called, if non-nil, whenever a close parenthesis is inserted.
More precisely, a char with closeparen syntax is self-inserted.
(defvar blink-paren-function 'blink-matching-open (#$ . 253208))
(defalias 'blink-paren-post-self-insert-function #[0 "`Sf=\2053 z\304>\2053 \2053 \n?\2053 ?\2053 \305\306`\212\307u\210\310\311!\210`)Z\"\306U\2053 \207" [last-command-event blink-paren-function executing-kbd-macro noninteractive (41 36) logand 1 -1 skip-syntax-backward "/\\"] 5])
(byte-code "\300\301\302\303#\210\304\305\301\306#\207" [put blink-paren-post-self-insert-function priority 100 add-hook post-self-insert-hook append] 4)
#@153 Signal a `quit' condition.
During execution of Lisp code, this character causes a quit directly.
At top-level, as an editor command, this simply beeps.
(defalias 'keyboard-quit #[0 "\305\211\306 \210)\307\310!\203 \310 \210\n\203 \302\311!\210 \203! \312\313!\210\305\211 \314\315\305\")\207" [saved-region-selection select-active-regions completion-in-region-mode defining-kbd-macro debug-on-quit nil deactivate-mark fboundp kmacro-keyboard-quit -1 force-mode-line-update t signal quit] 4 (#$ . 253858) nil])
#@210 Function to call to "quit" the current buffer, or nil if none.
\[keyboard-escape-quit] calls this function when its more local actions
(such as canceling a prefix argument, minibuffer or region) do not apply.
(defvar buffer-quit-function nil (#$ . 254380))
#@374 Exit the current "mode" (in a generalized sense of the word).
This command can exit an interactive command such as `query-replace',
can clear out a prefix argument or a region,
can get out of the minibuffer or other recursive edit,
cancel the use of the current buffer (for special-purpose buffers),
or go back to just one window (by deleting all but the selected window).
(defalias 'keyboard-escape-quit #[0 "\303=\203 \304\207\305 \203 \306 \207\307 \310V\203 \311 \207 \203 \304\207\312 \310V\203* \313 \207\n\2031 \n \207\314\315!\204: \316 \207\317\320\321p!\"\205E \322 \207" [last-command current-prefix-arg buffer-quit-function mode-exited nil region-active-p deactivate-mark minibuffer-depth 0 abort-recursive-edit recursion-depth exit-recursive-edit one-window-p t delete-other-windows string-match "^ \\*" buffer-name bury-buffer] 4 (#$ . 254644) nil])
#@153 Play sound stored in FILE.
VOLUME and DEVICE correspond to the keywords of the sound
specification for `play-sound'.
(fn FILE &optional VOLUME DEVICE)
(defalias 'play-sound-file #[769 "\300D\203
\301\302#\210\203 \301\303#\210\304B\262\305!\207" [:file plist-put :volume :device sound play-sound] 8 (#$ . 255520) "fPlay sound file: "])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\320\312\313& \210\300\321\302\303\322DD\323\306\324\310\320\312\313& \207" [custom-declare-variable read-mail-command funcall function #[0 "\300\207" [rmail] 1] "Your preference for a mail reading package.\nThis is used by some keybindings that support reading mail.\nSee also `mail-user-agent' concerning sending mail." :type (radio (function-item :tag "Rmail" :format "%t\n" rmail) (function-item :tag "Gnus" :format "%t\n" gnus) (function-item :tag "Emacs interface to MH" :format "%t\n" mh-rmail) (function :tag "Other")) :version "21.1" :group mail mail-user-agent #[0 "\300\207" [message-user-agent] 1] "Your preference for a mail composition package.\nVarious Emacs Lisp packages (e.g. Reporter) require you to compose an\noutgoing email message. This variable lets you specify which\nmail-sending package you prefer.\n\nValid values include:\n\n `message-user-agent' -- use the Message package.\n See Info node `(message)'.\n `sendmail-user-agent' -- use the Mail package.\n See Info node `(emacs)Sending Mail'.\n `mh-e-user-agent' -- use the Emacs interface to the MH mail system.\n See Info node `(mh-e)'.\n `gnus-user-agent' -- like `message-user-agent', but with Gnus\n paraphernalia if Gnus is running, particularly\n the Gcc: header for archiving.\n\nAdditional valid symbols may be available; check with the author of\nyour package for details. The function should return non-nil if it\nsucceeds.\n\nSee also `read-mail-command' concerning reading mail." (radio (function-item :tag "Message package" :format "%t\n" message-user-agent) (function-item :tag "Mail package" :format "%t\n" sendmail-user-agent) (function-item :tag "Emacs interface to MH" :format "%t\n" mh-e-user-agent) (function-item :tag "Message with full Gnus features" :format "%t\n" gnus-user-agent) (function :tag "Other")) "23.2" compose-mail-user-agent-warnings #[0 "\300\207" [t] 1] "If non-nil, `compose-mail' warns about changes in `mail-user-agent'.\nIf the value of `mail-user-agent' is the default, and the user\nappears to have customizations applying to the old default,\n`compose-mail' issues a warning." boolean] 10)
#@249 If the buffer starts with a mail header, move point to the header's end.
Otherwise, moves to `point-min'.
The end of the header is the start of the next line, if there is one,
else the end of the last line. This function obeys RFC 822 (or later).
(defalias 'rfc822-goto-eoh #[0 "eb\210\300\301\302\303#\205 \304\224b\207" [re-search-forward "^\\([:\n]\\|[^: \n]+[ \n]\\)" nil move 0] 4 (#$ . 258241)])
#@108 If non-nil, mail-user-agent's `sendfunc' command should mml-encode
the outgoing message before sending it.
(defvar mail-encode-mml nil (#$ . 258654))
#@1637 Start composing a mail message to send.
This uses the user's chosen mail composition package
as selected with the variable `mail-user-agent'.
The optional arguments TO and SUBJECT specify recipients
and the initial Subject field, respectively.
OTHER-HEADERS is an alist specifying additional
header fields. Elements look like (HEADER . VALUE) where both
HEADER and VALUE are strings.
By default, if an unsent message is already being composed, this
command will ask whether to erase the unsent message, and will not
start a new message if the user doesn't allow erasing. However, if
CONTINUE is non-nil, it means to continue editing a message already
being composed without asking. Interactively, CONTINUE is the prefix
argument.
SWITCH-FUNCTION, if non-nil, is a function to use to
switch to and display the buffer used for mail composition.
YANK-ACTION, if non-nil, is an action to perform, if and when necessary,
to insert the raw text of the message being replied to.
It has the form (FUNCTION . ARGS). The user agent will apply
FUNCTION to ARGS, to insert the raw text of the original message.
(The user agent will also run `mail-citation-hook', *after* the
original text has been inserted in this way.)
SEND-ACTIONS is a list of actions to call when the message is sent.
Each action has the form (FUNCTION . ARGS).
RETURN-ACTION, if non-nil, is an action for returning to the
caller. It has the form (FUNCTION . ARGS). The function is
called after the mail has been sent or put aside, and the mail
buffer buried.
(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION)
(defalias 'compose-mail #[2048 "\203H \302=\203H \303\304\211\203) \211@\305!\203\" \211J\203\" \211B\262A\266\202\202\f \210\211\203G \306\307\310\311G\312V\203= \313\202> \314\315\316\317##\"\210\210 \320N\211\204S \321\322!\210\211 &\207" [compose-mail-user-agent-warnings mail-user-agent message-user-agent nil (mail-mode-hook mail-send-hook mail-setup-hook mail-citation-hook mail-archive-file-name mail-default-reply-to mail-mailing-lists mail-self-blind) boundp display-warning mail format-message "The default mail mode is now Message mode.\nYou have the following Mail mode variable%s customized:\n\n %s\n\nTo use Mail mode, set `mail-user-agent' to sendmail-user-agent.\nTo disable this warning, set `compose-mail-user-agent-warnings' to nil." 1 "s" "" mapconcat symbol-name " " composefunc error "Invalid value for `mail-user-agent'"] 18 (#$ . 258812) (byte-code "\301\211\211F\207" [current-prefix-arg nil] 4)])
#@161 Like \[compose-mail], but edit the outgoing message in another window.
(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE YANK-ACTION SEND-ACTIONS RETURN-ACTION)
(defalias 'compose-mail-other-window #[1792 "\300\301&\207" [compose-mail switch-to-buffer-other-window] 16 (#$ . 261406) (byte-code "\301\211\211F\207" [current-prefix-arg nil] 4)])
#@160 Like \[compose-mail], but edit the outgoing message in another frame.
(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE YANK-ACTION SEND-ACTIONS RETURN-ACTION)
(defalias 'compose-mail-other-frame #[1792 "\300\301&\207" [compose-mail switch-to-buffer-other-frame] 16 (#$ . 261772) (byte-code "\301\211\211F\207" [current-prefix-arg nil] 4)])
#@143 History of values entered with `set-variable'.
Maximum length of the history list is determined by the value
of `history-length', which see.
(defvar set-variable-value-history nil (#$ . 262135))
#@1156 Set VARIABLE to VALUE. VALUE is a Lisp object.
VARIABLE should be a user option variable name, a Lisp variable
meant to be customized by users. You should enter VALUE in Lisp syntax,
so if you want VALUE to be a string, you must surround it with doublequotes.
VALUE is used literally, not evaluated.
If VARIABLE has a `variable-interactive' property, that is used as if
it were the arg to `interactive' (which see) to interactively read VALUE.
If VARIABLE has been defined with `defcustom', then the type information
in the definition is used to check that VALUE is valid.
Note that this function is at heart equivalent to the basic `set' function.
For a variable defined with `defcustom', it does not pay attention to
any :set property that the variable might have (if you want that, use
\[customize-set-variable] instead).
With a prefix argument, set VARIABLE to VALUE buffer-locally.
When called interactively, the user is prompted for VARIABLE and
then VALUE. The current value of VARIABLE will be put in the
minibuffer history so that it can be accessed with `M-n', which
makes it easier to edit it.
(fn VARIABLE VALUE &optional MAKE-LOCAL)
(defalias 'set-variable #[770 "\300!\203 \301N\204 \302!\210\301N\211\2031 \303\304!\210\305!\262\306\307#\2041 \310\311@$\210\210\211\203: \312!\210L\210\313 \207" [custom-variable-p custom-type custom-load-symbol require cus-edit widget-convert widget-apply :match user-error "Value `%S' does not match type %S of %S" make-local-variable force-mode-line-update] 9 (#$ . 262339) (byte-code "\303 \304!\203 \305\306\307\"\"\202 \305\310!\311\312DD\211\313N\314N@\306\315\316!\2030 \317\202@ \204; \320!\203? \321\202@ \322#\203Z \323\3249\203P \325\202Q \326P#\210\327\330!\210\203m \331\332\333\334D\335BBB!\202{ \336\337\n\340\341\306\342 J\"& E)\207" [minibuffer-help-form current-prefix-arg read-expression-map variable-at-point custom-variable-p read-variable format "Set variable (default %s): " "Set variable: " describe-variable quote variable-interactive byte-obsolete-variable "Set %s %s to value: " local-variable-p "(buffer-local)" local-variable-if-set-p "buffer-locally" "globally" message "`%S' is obsolete; " "use `%S' instead" "%s" sit-for 3 call-interactively lambda (arg) interactive (arg) read-from-minibuffer nil t set-variable-value-history "%S"] 14)])
#@40 Local map for completion list buffers.
(defvar completion-list-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\303#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\316#\210\301\320\314#\210\301\321\322#\210\301\323\324#\210\211\207" [make-sparse-keymap define-key [mouse-2] choose-completion [follow-link] mouse-face [down-mouse-2] nil "
" "" delete-completion-window [left] previous-completion [right] next-completion [9] [backtab] "q" quit-window "z" kill-current-buffer] 5) (#$ . 264718))
(put 'completion-list-mode 'mode-class 'special)
#@186 Record the buffer that was current when the completion list was requested.
This is a local variable in the completion list buffer.
Initial value is nil to avoid some compiler warnings.
(defvar completion-reference-buffer nil (#$ . 265333))
#@142 Non-nil means `choose-completion-string' should never exit the minibuffer.
This also applies to other functions such as `choose-completion'.
(defvar completion-no-auto-exit nil (#$ . 265580))
#@330 Position of the base of the text corresponding to the shown completions.
This variable is used in the *Completions* buffers.
Its value is a list of the form (START END) where START is the place
where the completion should be inserted and END (if non-nil) is the end
of the text to replace. If END is nil, point is used instead.
(defvar completion-base-position nil (#$ . 265779))
#@227 Function to use to insert the text chosen in *Completions*.
Called with three arguments (BEG END TEXT), it should replace the text
between BEG and END with TEXT. Expected to be set buffer-locally
in the *Completions* buffer.
(defvar completion-list-insert-choice-function 'completion--replace (#$ . 266167))
#@419 Number of chars before point not involved in completion.
This is a local variable in the completion list buffer.
It refers to the chars in the minibuffer if completing in the
minibuffer, or in `completion-reference-buffer' otherwise.
Only characters in the field at point are included.
If nil, Emacs determines which part of the tail end of the
buffer's text is involved in completion by comparing the text
directly.
(defvar completion-base-size nil (#$ . 266483))
(make-obsolete-variable 'completion-base-size 'completion-base-position "23.2")
#@90 Delete the completion list window.
Go to the window from which completion was requested.
(defalias 'delete-completion-window #[0 "\301\302!\203 \303 \205! \304 \202! \305\306 !\210\307!\205! \310\307!!\207" [completion-reference-buffer one-window-p t window-dedicated-p delete-frame delete-window selected-window get-buffer-window select-window] 4 (#$ . 267035) nil])
#@59 Move to the previous item in the completion list.
(fn N)
(defalias 'previous-completion #[257 "\300[!\207" [next-completion] 3 (#$ . 267413) "p"])
#@126 Move to the next item in the completion list.
With prefix argument N, move N items (negative N means move backward).
(fn N)
(defalias 'next-completion #[257 "ed\300V\2031 m\2041 \301`\302\"\203 \303`\302\304$b\210\301`\302\"\204* \303`\302\304$b\210S\262\202 \300W\205} o?\205} \301`S\302\"\211\203W \211\301`\302\"=\203W \305`\302\304$b\210o\204l \301`S\302\"\204l \305`\302\304$b\210\305`\302\304$b\210T\262\210\2021 \207" [0 get-text-property mouse-face next-single-property-change nil previous-single-property-change] 9 (#$ . 267569) "p"])
#@122 Choose the completion at point.
If EVENT, use EVENT's position to determine the starting position.
(fn &optional EVENT)
(defalias 'choose-completion #[256 "\304\305!\210r\306\307!\211@\262!q\210 \n \212\310\307!!b\210\311\211m\2044 \312`\313\"\2034 `\262`T\262\202N o\204J \312`S\313\"\203J `S\262`\262\202N \314\315!\210\316\313\"\262\317\313\"\206\\ d\262\320\"\266\202)\321!\204o \314\322!\210\323\311\307!\211@\262\"\210rq\210\324\206\231 \203\225 \325 \\C\206\231 \326!C$)\266\205)\207" [completion-reference-buffer completion-base-size completion-base-position completion-list-insert-choice-function run-hooks mouse-leave-buffer-hook window-buffer event-start posn-point nil get-text-property mouse-face error "No completion here" previous-single-property-change next-single-property-change buffer-substring-no-properties buffer-live-p "Destination buffer is dead" quit-window choose-completion-string field-beginning choose-completion-guess-base-position] 11 (#$ . 268137) (list last-nonmenu-event)])
#@15
(fn STRING)
(defalias 'choose-completion-guess-base-position #[257 "\212`\301`GZ\302 ]b\210`Z\262\203 \227\262\211\303V\203A `{\203* \211\227\262\211\304\303#\230?\262\203A \211S\262\305u\210\202 `\266\202)\207" [completion-ignore-case nil minibuffer-prompt-end 0 substring 1] 9 (#$ . 269182)])
#@15
(fn STRING)
(defalias 'choose-completion-delete-max-match #[257 "\300!`|\207" [choose-completion-guess-base-position] 3 (#$ . 269500)])
(make-obsolete 'choose-completion-delete-max-match 'choose-completion-guess-base-position "23.2")
#@695 Functions that may override the normal insertion of a completion choice.
These functions are called in order with three arguments:
CHOICE - the string to insert in the buffer,
BUFFER - the buffer in which the choice should be inserted,
BASE-POSITION - where to insert the completion.
Functions should also accept and ignore a potential fourth
argument, passed for backwards compatibility.
If a function in the list returns non-nil, that function is supposed
to have inserted the CHOICE in the BUFFER, and possibly exited
the minibuffer; no further functions will be called.
If all functions in the list return nil, that means to use
the default method of inserting the completion in BUFFER.
(defvar choose-completion-string-functions nil (#$ . 269744))
#@289 Switch to BUFFER and insert the completion choice CHOICE.
BASE-POSITION says where to insert the completion.
INSERT-FUNCTION says how to insert the completion and falls
back on `completion-list-insert-choice-function' when nil.
(fn CHOICE &optional BUFFER BASE-POSITION INSERT-FUNCTION)
(defalias 'choose-completion-string #[1025 ":\204\f \306\307!\210\310\262\206 \311!\211\203, \312 \203& \313\312 !\232\204, \314\315!\202\225 q\210\316\317\310%?\205\225 \206A @\206G `A@\206N `#\210\320\321\"\322`\"\266\n?\205\225 \311!\205\225 \205\225 \323 `{\324 \f\325$\211@G=\203\221 \312 \326!\210
\205\214 \327\330!!\262\202\223 \331 \266\202\207" [completion-reference-buffer completion-list-insert-choice-function completion-no-auto-exit minibuffer-completion-table minibuffer-completion-predicate minibuffer-auto-raise message "Obsolete `base-size' passed to choose-completion-string" nil minibufferp active-minibuffer-window window-buffer error "Minibuffer is not active for completion" run-hook-with-args-until-success choose-completion-string-functions get-buffer-window t set-window-point field-beginning completion-boundaries "" select-window raise-frame window-frame exit-minibuffer] 12 (#$ . 270507)])
(defvar completion-list-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [completion-list-mode-hook variable-documentation put "Hook run after entering Completion List mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp completion-list-mode-map definition-name completion-list-mode] 4)
(defvar completion-list-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [completion-list-mode-abbrev-table completion-list-mode-map variable-documentation put purecopy "Keymap for `completion-list-mode'." boundp completion-list-mode-syntax-table definition-name completion-list-mode (lambda (#1=#:def-tmp-var) (defvar completion-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `completion-list-mode'." (lambda (#1#) (defvar completion-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `completion-list-mode'." derived-mode-parent] 5)
#@354 Major mode for buffers showing lists of possible completions.
Type \<completion-list-mode-map>\[choose-completion] in the completion list to select the completion near point.
Or click to select one with the mouse.
\{completion-list-mode-map}
This mode runs the hook `completion-list-mode-hook', as the final or penultimate step
during initialization.
(defalias 'completion-list-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\306\315!\210\316
)\317\320!\207" [delay-mode-hooks major-mode mode-name completion-list-mode-map completion-list-mode-syntax-table completion-list-mode-abbrev-table make-local-variable t kill-all-local-variables completion-list-mode "Completion List" use-local-map set-syntax-table completion-base-size nil run-mode-hooks completion-list-mode-hook local-abbrev-table] 2 (#$ . 273013) nil])
#@78 Finish setup of the completions buffer.
Called from `temp-buffer-show-hook'.
(defalias 'completion-list-mode-finish #[0 "\302=\205 \303\211\207" [major-mode buffer-read-only completion-list-mode t] 2 (#$ . 273862)])
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314\315\316& \207" [add-hook temp-buffer-show-hook completion-list-mode-finish custom-declare-variable completion-show-help funcall function #[0 "\300\207" [t] 1] "Non-nil means show help message in *Completions* buffer." :type boolean :version "22.1" :group completion] 10)
(defalias 'completion-setup-function #[0 "p\205 \306\307\310 ` \206 \311Z{!!r\nq\210 \f\312 \210\313\301!\210\313\303!\210\313\304!\210\266\313\305!\210\211\203= \211\205Q eb\210\314 \203M \315c\210\316\317!c)\207" [minibuffer-completing-file-name completion-base-size standard-output completion-base-position completion-list-insert-choice-function completion-reference-buffer file-name-as-directory expand-file-name minibuffer-prompt-end 0 completion-list-mode make-local-variable display-mouse-p "Click on a completion to select it.\n" substitute-command-keys "In this buffer, type \\[choose-completion] to select the completion near point.\n\n" default-directory completion-show-help] 7])
(add-hook 'completion-setup-hook 'completion-setup-function)
#@36 Select the completion list window.
(defalias 'switch-to-completions #[0 "\300\301\302\"\206 \303 \210\300\301\302\"\211\205 \304!\210o\205 \305\306!\207" [get-buffer-window "*Completions*" 0 minibuffer-completion-help select-window next-completion 1] 3 (#$ . 275200) nil])
#@149 \<function-key-map>Add the Alt modifier to the following event.
For example, type \[event-apply-alt-modifier] & to enter Alt-&.
(fn IGNORE-PROMPT)
(defalias 'event-apply-alt-modifier #[257 "\300\301\302 \303\304\305$!\207" [vector event-apply-modifier read-event alt 22 "A-"] 7 (#$ . 275484)])
#@155 \<function-key-map>Add the Super modifier to the following event.
For example, type \[event-apply-super-modifier] & to enter Super-&.
(fn IGNORE-PROMPT)
(defalias 'event-apply-super-modifier #[257 "\300\301\302 \303\304\305$!\207" [vector event-apply-modifier read-event super 23 "s-"] 7 (#$ . 275786)])
#@155 \<function-key-map>Add the Hyper modifier to the following event.
For example, type \[event-apply-hyper-modifier] & to enter Hyper-&.
(fn IGNORE-PROMPT)
(defalias 'event-apply-hyper-modifier #[257 "\300\301\302 \303\304\305$!\207" [vector event-apply-modifier read-event hyper 24 "H-"] 7 (#$ . 276098)])
#@155 \<function-key-map>Add the Shift modifier to the following event.
For example, type \[event-apply-shift-modifier] & to enter Shift-&.
(fn IGNORE-PROMPT)
(defalias 'event-apply-shift-modifier #[257 "\300\301\302 \303\304\305$!\207" [vector event-apply-modifier read-event shift 25 "S-"] 7 (#$ . 276410)])
#@155 \<function-key-map>Add the Ctrl modifier to the following event.
For example, type \[event-apply-control-modifier] & to enter Ctrl-&.
(fn IGNORE-PROMPT)
(defalias 'event-apply-control-modifier #[257 "\300\301\302 \303\304\305$!\207" [vector event-apply-modifier read-event control 26 "C-"] 7 (#$ . 276722)])
#@152 \<function-key-map>Add the Meta modifier to the following event.
For example, type \[event-apply-meta-modifier] & to enter Meta-&.
(fn IGNORE-PROMPT)
(defalias 'event-apply-meta-modifier #[257 "\300\301\302 \303\304\305$!\207" [vector event-apply-modifier read-event meta 27 "M-"] 7 (#$ . 277038)])
#@268 Apply a modifier flag to event EVENT.
SYMBOL is the name of this modifier, as a symbol.
LSHIFTBY is the numeric value of this modifier, in keyboard events.
PREFIX is the string that represents this modifier in an event type symbol.
(fn EVENT SYMBOL LSHIFTBY PREFIX)
(defalias 'event-apply-modifier #[1028 "\247\203B \300\267\202: \301\302\226\303#\203 \226\302Z\207\304\305\306\"\"\207\227\307X\2032 \227\310Y\2032 \226\207\304\305\306\"\"\207\304\305\306\"\"\207\311!>\203L \2079\203U \202W @\312\313!P!\2629\203i \211\202m \211AB\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (control 11 shift 33)) <= 64 95 logior ash 1 122 97 event-modifiers intern symbol-name] 9 (#$ . 277345)])
(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\316\317\320\"\207" [function-key-map define-key [24 64 104] event-apply-hyper-modifier [24 64 115] event-apply-super-modifier [24 64 109] event-apply-meta-modifier [24 64 97] event-apply-alt-modifier [24 64 83] event-apply-shift-modifier [24 64 99] event-apply-control-modifier mapc #[257 "\211@A@\301\302#\210\303\304!\304!#\207" [function-key-map put ascii-character define-key vector] 8 "\n\n(fn KEYPAD-NORMAL)"] ((kp-space 32) (kp-tab 9) (kp-enter 13) (kp-separator 44) (kp-equal 61) (backspace 127) (delete 127) (tab 9) (linefeed 10) (clear 12) (return 13) (escape 27))] 4)
#@68 Normal hook to run in the new buffer at the end of `clone-buffer'.
(defvar clone-buffer-hook nil (#$ . 278812))
#@77 Normal hook to run in the new buffer at the end of `clone-indirect-buffer'.
(defvar clone-indirect-buffer-hook nil (#$ . 278930))
#@345 Create a twin copy of PROCESS.
If NEWNAME is nil, it defaults to PROCESS' name;
NEWNAME is modified by adding or incrementing <N> at the end as necessary.
If PROCESS is associated with a buffer, the new process will be associated
with the current buffer instead.
Returns nil if PROCESS has already terminated.
(fn PROCESS &optional NEWNAME)
(defalias 'clone-process #[513 "\211\206 \301!\262\302\303\"\203 \304\305\211\224#\262\306!\307>\205\207 \310!\306!\311=\203N \312\313\"\314\315#\262\314\316\317!\205B p#\262\320\321\"\262\202] \320\322\317!\205X p\323!$\324\325!\"\210\326\327!\"\210\330\331!\"\210\332\333!\"\210\334\335\336!!\"\210)\211\262\207" [process-connection-type process-name string-match "<[0-9]+>\\'" substring 0 process-status (run stop open) process-tty-name open process-contact t plist-put :name :buffer process-buffer apply make-network-process start-process process-command set-process-query-on-exit-flag process-query-on-exit-flag set-process-inherit-coding-system-flag process-inherit-coding-system-flag set-process-filter process-filter set-process-sentinel process-sentinel set-process-plist copy-sequence process-plist] 8 (#$ . 279067)])
#@955 Create and return a twin copy of the current buffer.
Unlike an indirect buffer, the new buffer can be edited
independently of the old one (if it is not read-only).
NEWNAME is the name of the new buffer. It may be modified by
adding or incrementing <N> at the end as necessary to create a
unique buffer name. If nil, it defaults to the name of the
current buffer, with the proper suffix. If DISPLAY-FLAG is
non-nil, the new buffer is shown with `pop-to-buffer'. Trying to
clone a file-visiting buffer, or a buffer whose major mode symbol
has a non-nil `no-clone' property, results in an error.
Interactively, DISPLAY-FLAG is t and NEWNAME is the name of the
current buffer with appropriate suffix. However, if a prefix
argument is given, then the command prompts for NEWNAME in the
minibuffer.
This runs the normal hook `clone-buffer-hook' in the new buffer
after it has been set up properly in other respects.
(fn &optional NEWNAME DISPLAY-FLAG)
(defalias 'clone-buffer #[512 "\203 \306\307!\210 \310N\203 \306\311\n\"\210\206 \312 \262\313\314\"\203* \315\316\211\224#\262ped` \2055 \317\320!\321 \322 \323p!\324 \206E \312 !\214~\210r\211q\210\325\n!\210*r\211q\210}\210b\210\203j \326!\210\327!\210\203v \330!\210 \210\331\332\"\210\333\334\f\"\335\336!\210)\n\203\227 \337\211 !\340!\210*\207" [buffer-file-name major-mode mode-name mark-active mark-ring same-window-buffer-names error "Cannot clone a file-visiting buffer" no-clone "Cannot clone a buffer in %s mode" buffer-name string-match "<[0-9]+>\\'" substring 0 mark t buffer-modified-p buffer-local-variables get-buffer-process generate-new-buffer insert-buffer-substring set-mark set-buffer-modified-p clone-process mapc #[257 "\3001 \2119\203 \301\302!!\202 \302@!AL0\207\210\303\207" [(setting-constant) makunbound make-local-variable nil] 4 "\n\n(fn V)"] mapcar #[257 "\300\301!!\207" [copy-marker marker-position] 4 "\n\n(fn MK)"] run-hooks clone-buffer-hook nil pop-to-buffer same-window-regexps] 15 (#$ . 280283) (byte-code "\203 \304\305!\210 \306N\203 \304\307\n\"\210 \205 \310\311p\"\312D\207" [buffer-file-name major-mode mode-name current-prefix-arg error "Cannot clone a file-visiting buffer" no-clone "Cannot clone a buffer in %s mode" read-buffer "Name of new cloned buffer: " t] 3)])
#@833 Create an indirect buffer that is a twin copy of the current buffer.
Give the indirect buffer name NEWNAME. Interactively, read NEWNAME
from the minibuffer when invoked with a prefix arg. If NEWNAME is nil
or if not called with a prefix arg, NEWNAME defaults to the current
buffer's name. The name is modified by adding a `<N>' suffix to it
or by incrementing the N in an existing suffix. Trying to clone a
buffer whose major mode symbol has a non-nil `no-clone-indirect'
property results in an error.
DISPLAY-FLAG non-nil means show the new buffer with `pop-to-buffer'.
This is always done when called interactively.
Optional third arg NORECORD non-nil means do not put this buffer at the
front of the list of recently selected ones.
Returns the newly created indirect buffer.
(fn NEWNAME DISPLAY-FLAG &optional NORECORD)
(defalias 'clone-indirect-buffer #[770 "\302N\203 \303\304 \"\210\206 \305 \262\306\307\"\203\" \310\311\211\224#\262\312!\313p\314#r\211q\210\315\316!\210)\203= \317\320#\210\207" [major-mode mode-name no-clone-indirect error "Cannot indirectly clone a buffer in %s mode" buffer-name string-match "<[0-9]+>\\'" substring 0 generate-new-buffer-name make-indirect-buffer t run-hooks clone-indirect-buffer-hook pop-to-buffer nil] 9 (#$ . 282602) (byte-code "\303N\203 \304\305 \"\210\n\205 \306\307p\"\310D\207" [major-mode mode-name current-prefix-arg no-clone-indirect error "Cannot indirectly clone a buffer in %s mode" read-buffer "Name of indirect buffer: " t] 3)])
#@107 Like `clone-indirect-buffer' but display in another window.
(fn NEWNAME DISPLAY-FLAG &optional NORECORD)
(defalias 'clone-indirect-buffer-other-window #[770 "\301\302#)\207" [pop-up-windows t clone-indirect-buffer] 7 (#$ . 284126) (byte-code "\303N\203 \304\305 \"\210\n\205 \306\307p\"\310D\207" [major-mode mode-name current-prefix-arg no-clone-indirect error "Cannot indirectly clone a buffer in %s mode" read-buffer "Name of indirect buffer: " t] 3)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable normal-erase-is-backspace funcall function #[0 "\300\207" [maybe] 1] "Set the default behavior of the Delete and Backspace keys.\n\nIf set to t, Delete key deletes forward and Backspace key deletes\nbackward.\n\nIf set to nil, both Delete and Backspace keys delete backward.\n\nIf set to `maybe' (which is the default), Emacs automatically\nselects a behavior. On window systems, the behavior depends on\nthe keyboard used. If the keyboard has both a Backspace key and\na Delete key, and both are mapped to their usual meanings, the\noption's default value is set to t, so that Backspace can be used\nto delete backward, and Delete can be used to delete forward.\n\nIf not running under a window system, customizing this option\naccomplishes a similar effect by mapping C-h, which is usually\ngenerated by the Backspace key, to DEL, and by mapping DEL to C-d\nvia `keyboard-translate'. The former functionality of C-h is\navailable on the F1 key. You should probably not use this\nsetting if you don't have both Backspace, Delete and F1 keys.\n\nSetting this variable with setq doesn't take effect. Programmatically,\ncall `normal-erase-is-backspace-mode' (which see) instead." :type (choice (const :tag "Off" nil) (const :tag "Maybe" maybe) (other :tag "On" t)) :group editing-basics :version "21.1" :set #[514 "\300\301!\203 \301\206\f \302!\207\303\"\207" [fboundp normal-erase-is-backspace-mode 0 set-default] 5 "\n\n(fn SYMBOL VALUE)"]] 12)
#@87 Set up `normal-erase-is-backspace-mode' on FRAME, if necessary.
(fn &optional FRAME)
(defalias 'normal-erase-is-backspace-setup-frame #[256 "\211\204 \305 \262\305 p\306\307\310\311\312\"\313\"\314$\216\315\316\"\210\317\320\300\"?\205c \321\322=\203Y \204a \n\323>\204] \324>\204] \325=\203O \326\327!\203O \327 \204] \204a \f\330=\202Z \203a \331\202b \307!)\207" [normal-erase-is-backspace noninteractive system-type window-system tty-erase-char selected-frame make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord terminal-parameter nil normal-erase-is-backspace-mode maybe (ms-dos windows-nt) (w32 ns) x fboundp x-backspace-delete-keys-p 8 1] 10 (#$ . 286154)])
#@1611 Toggle the Erase and Delete mode of the Backspace and Delete keys.
If called interactively, enable Normal-Erase-Is-Backspace mode if ARG
is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
On window systems, when this mode is on, Delete is mapped to C-d
and Backspace is mapped to DEL; when this mode is off, both
Delete and Backspace are mapped to DEL. (The remapping goes via
`local-function-key-map', so binding Delete or Backspace in the
global or local keymap will override that.)
In addition, on window systems, the bindings of C-Delete, M-Delete,
C-M-Delete, C-Backspace, M-Backspace, and C-M-Backspace are changed in
the global keymap in accordance with the functionality of Delete and
Backspace. For example, if Delete is remapped to C-d, which deletes
forward, C-Delete is bound to `kill-word', but if Delete is remapped
to DEL, which deletes backward, C-Delete is bound to
`backward-kill-word'.
If not running on a window system, a similar effect is accomplished by
remapping C-h (normally produced by the Backspace key) and DEL via
`keyboard-translate': if this mode is on, C-h is mapped to DEL and DEL
to C-d; if it's off, the keys are not remapped.
When not running on a window system, and this mode is turned on, the
former functionality of C-h is available on the F1 key. You should
probably not turn on this mode on a text-only terminal if you don't
have both Backspace, Delete and F1 keys.
See also `normal-erase-is-backspace'.
(fn &optional ARG)
(defalias 'normal-erase-is-backspace-mode #[256 "\302 \303=\203 \304\305\306\"\307=?\202 \310!\311V\312\305\306\203\" \307\202# \311#\266\304\305\306\"\307=\313 \203\240 \314\203i \315\316\317#\210\315\320\321#\210\315\322\323#\210\211\211\203e \211@\315 @\305#\210\315 A@\305#\210A\266\202\202I \210\202\234 \315\324\325#\210\315\326\327#\210\315\330\331#\210\211\211\203\233 \211@\315 @A@#\210\315 A@@#\210A\266\202\202| \210\210\202\273 \211\203\261 \332\333\334\"\210\332\334\335\"\210\202\273 \332\333\211\"\210\332\334\211\"\210\336\337!\203\323 \340\341\304\305\306\"\307=\203\320 \342\202\321 \343\"\210\210\344\345\304\305\306\"\307=\203\343 \346\202\344 \347\"\210\336\350!\203
\302 \203\370 \211\302 \232\203
\351\340\352\304\305\306\"\307=\203\353\202 \354#\266\210\355 \210\304\305\306\"\307=\207" [local-function-key-map input-decode-map current-message toggle terminal-parameter nil normal-erase-is-backspace 1 prefix-numeric-value 0 set-terminal-parameter display-symbol-keys-p (([M-delete] [M-backspace]) ([C-M-delete] [C-M-backspace]) ([27 C-delete] [27 C-backspace])) define-key [delete] [deletechar] [kp-delete] [deletechar] [backspace] [127] [delete] [127] [kp-delete] [127] [backspace] [127] keyboard-translate 8 127 4 called-interactively-p interactive message "Delete key deletes %s" "forward" "backward" run-hooks normal-erase-is-backspace-mode-hook normal-erase-is-backspace-mode-on-hook normal-erase-is-backspace-mode-off-hook any " in current buffer" "Normal-Erase-Is-Backspace mode %sabled%s" "en" "dis" force-mode-line-update] 10 (#$ . 286956) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar normal-erase-is-backspace-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\300\207" [normal-erase-is-backspace-mode-hook variable-documentation put "Hook run after entering or leaving `normal-erase-is-backspace-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4)
#@68 Saved value of `buffer-invisibility-spec' when Visible mode is on.
(defvar vis-mode-saved-buffer-invisibility-spec nil (#$ . 290611))
#@855 Change whether the current buffer is read-only.
If called interactively, enable Read-Only mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
If buffer is read-only and `view-read-only' is non-nil, enter
view mode.
Do not call this from a Lisp program unless you really intend to
do the same thing as the \[read-only-mode] command, including
possibly enabling or disabling View mode. Also, note that this
command works by setting the variable `buffer-read-only', which
does not affect read-only regions caused by text properties. To
ignore read-only status in a Lisp program (whether due to text
properties or buffer state), bind `inhibit-read-only' temporarily
to a non-nil value.
(fn &optional ARG)
(defalias 'read-only-mode #[256 "\304 \305=\203
?\202 \306!\307V\211\204' \203' \310 \210\311\302!\210\312\202> \203> \n\203> \204> \313N\314=\204> \315 \210\316\317\203H \320\202I \321\"\210\322\323!\203m \304 \203] \211\304 \232\203m \324\325\326\203h \327\202i \330#\266\210\331 \210\207" [buffer-read-only view-mode view-read-only major-mode current-message toggle prefix-numeric-value 0 View-exit-and-edit make-local-variable t mode-class special view-mode-enter run-hooks read-only-mode-hook read-only-mode-on-hook read-only-mode-off-hook called-interactively-p any " in current buffer" message "Read-Only mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 290752) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar read-only-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [read-only-mode-map read-only-mode-hook variable-documentation put "Hook run after entering or leaving `read-only-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode buffer-read-only nil boundp] 6)
#@93 Non-nil if Visible mode is enabled.
Use the command `visible-mode' to change this variable.
(defvar visible-mode nil (#$ . 292791))
(make-variable-buffer-local 'visible-mode)
#@420 Toggle making all invisible text temporarily visible (Visible mode).
If called interactively, enable Visible mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
This mode works by saving the value of `buffer-invisibility-spec'
and setting it to nil.
(fn &optional ARG)
(defalias 'visible-mode #[256 "\303 \304=\203
?\202 \305!\306V\307\301!\203 \310\301!\210\203+ \311\301!\210\n\312\313\314\2035 \315\2026 \316\"\210\317\320!\203Z \303 \203J \211\303 \232\203Z \321\322\323\203U \324\202V \325#\266\210\326 \210\207" [visible-mode vis-mode-saved-buffer-invisibility-spec buffer-invisibility-spec current-message toggle prefix-numeric-value 0 local-variable-p kill-local-variable make-local-variable nil run-hooks visible-mode-hook visible-mode-on-hook visible-mode-off-hook called-interactively-p any " in current buffer" message "Visible mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 292973) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar visible-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [visible-mode-map visible-mode-hook variable-documentation put "Hook run after entering or leaving `visible-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode visible-mode " Vis" boundp nil] 6)
(defvar messages-buffer-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [special-mode-map make-sparse-keymap set-keymap-parent define-key "g" nil] 5))
(defvar messages-buffer-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [messages-buffer-mode-hook variable-documentation put "Hook run after entering Messages mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp messages-buffer-mode-map definition-name messages-buffer-mode] 4)
(defvar messages-buffer-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [messages-buffer-mode-abbrev-table messages-buffer-mode-map variable-documentation put purecopy "Keymap for `messages-buffer-mode'." boundp messages-buffer-mode-syntax-table definition-name messages-buffer-mode (lambda (#1=#:def-tmp-var) (defvar messages-buffer-mode-syntax-table #1#)) make-syntax-table "Syntax table for `messages-buffer-mode'." (lambda (#1#) (defvar messages-buffer-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `messages-buffer-mode'." derived-mode-parent special-mode] 5)
#@256 Major mode used in the "*Messages*" buffer.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `messages-buffer-mode-hook', as the final or penultimate step
during initialization.
\{messages-buffer-mode-map}
(defalias 'messages-buffer-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name messages-buffer-mode-map messages-buffer-mode-syntax-table messages-buffer-mode-abbrev-table make-local-variable t special-mode messages-buffer-mode "Messages" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks messages-buffer-mode-hook local-abbrev-table] 5 (#$ . 295971) nil])
#@106 Return the "*Messages*" buffer.
If it does not exist, create it and switch it to `messages-buffer-mode'.
(defalias 'messages-buffer #[0 "\300\301!\206 r\302\301!q\210\303 \210p)\207" [get-buffer "*Messages*" get-buffer-create messages-buffer-mode] 2 (#$ . 297010)])
#@408 Alist of packages known to cause problems in this version of Emacs.
Each element has the form (PACKAGE SYMBOL REGEXP STRING).
PACKAGE is either a regular expression to match file names, or a
symbol (a feature name), like for `with-eval-after-load'.
SYMBOL is either the name of a string variable, or t. Upon
loading PACKAGE, if SYMBOL is t or matches REGEXP, display a
warning using STRING as the message.
(defconst bad-packages-alist '((semantic semantic-version "\\`2\\.0pre[1-3]\\'" "The version of `semantic' loaded does not work in Emacs 22.\nIt can cause constant high CPU load.\nUpgrade to at least Semantic 2.0pre4 (distributed with CEDET 1.0pre4).") (CUA-mode t nil "CUA-mode is now part of the standard GNU Emacs distribution,\nso you can now enable CUA via the Options menu or by customizing `cua-mode'.\n\nYou have loaded an older version of CUA-mode which does not work\ncorrectly with this version of Emacs. You should remove the old\nversion and use the one distributed with Emacs.")) (#$ . 297284))
#@89 Run a check using the element from `bad-packages-alist' matching PACKAGE.
(fn PACKAGE)
(defalias 'bad-package-check #[257 "\3021B \303\"\211A@\205> \304!\205> \211\305=\2047 \306!\211\262;\205> \3078\310\305\311#)\266\203\205> \312\3138\314#\266\2020\207\210\310\207" [bad-packages-alist inhibit-changing-match-data (error) assoc boundp t eval 2 nil string-match display-warning 3 :warning] 10 (#$ . 298307)])
(byte-code "\211\203! \211@\211@\301\302\303\304\305\306!\307\"\310$\"\266A\266\202\202 \207" [bad-packages-alist eval-after-load make-byte-code 0 "\301\300!\207" vconcat vector [bad-package-check] 2] 11)
#@708 Define the new command `COMMAND'.
The argument `COMMAND' should be a symbol.
Running `M-x COMMAND RET' for the first time prompts for which
alternative to use and records the selected command as a custom
variable.
Running `C-u M-x COMMAND RET' prompts again for an alternative
and overwrites the previous choice.
The variable `COMMAND-alternatives' contains an alist with
alternative implementations of COMMAND. `define-alternatives'
does not have any effect until this variable is set.
CUSTOMIZATIONS, if non-nil, should be composed of alternating
`defcustom' keywords and values to add to the declaration of
`COMMAND-alternatives' (typically :group and :version).
(fn COMMAND &rest CUSTOMIZATIONS)
(defalias 'define-alternatives '(macro . #[385 "\300!\211\301P\302!\302\303P!\304\305\306\307\310 \"\311\312 BBBBBB\313\314D\315\314 DF\316\317BB\320\n\321\307\322\f\211
$\323\324\325\326\327
DE\330\331\332\333\334\"\335BBBDC\336\337\324\327D\340\341E\342BBB\343\314D\344\345\331EDEFEE\346 \347
D\340\350\333\351\"EF\257\257\207" [symbol-name "-alternatives" intern "--implementation" progn defcustom nil format "Alist of alternative implementations for the `%s' command.\n\nEach entry must be a pair (ALTNAME . ALTFUN), where:\nALTNAME - The name shown at user to describe the alternative implementation.\nALTFUN - The function called to implement this alternative." :type '(alist :key-type string :value-type function) put quote 'definition-name defvar (nil "Internal use only.") defun (&optional arg) "Run generic command `%s'.\nIf used for the first time, or with interactive ARG, ask the user which\nimplementation to use for `%s'. The variable `%s'\ncontains the list of implementations currently supported for this command." (interactive "P") when or arg null let val completing-read format-message "Select implementation for command `%s': " (nil t) unless (string-equal val "") message "Use `C-u M-x %s RET' to select another implementation" ((sit-for 3)) customize-save-variable cdr assoc-string if call-interactively "%s" "No implementation selected for command `%s'"] 28 (#$ . 298951)]))
#@232 Upcase words in the region, if active; if not, upcase word at point.
If the region is active, this function calls `upcase-region'.
Otherwise, it calls `upcase-word', with prefix argument passed to it
to upcase ARG words.
(fn ARG)
(defalias 'upcase-dwim #[257 "\300 \203 \301\302 \303 \304 #\207\305!\207" [use-region-p upcase-region region-beginning region-end region-noncontiguous-p upcase-word] 5 (#$ . 301097) "*p"])
#@242 Downcase words in the region, if active; if not, downcase word at point.
If the region is active, this function calls `downcase-region'.
Otherwise, it calls `downcase-word', with prefix argument passed to it
to downcase ARG words.
(fn ARG)
(defalias 'downcase-dwim #[257 "\300 \203 \301\302 \303 \304 #\207\305!\207" [use-region-p downcase-region region-beginning region-end region-noncontiguous-p downcase-word] 5 (#$ . 301527) "*p"])
#@252 Capitalize words in the region, if active; if not, capitalize word at point.
If the region is active, this function calls `capitalize-region'.
Otherwise, it calls `capitalize-word', with prefix argument passed to it
to capitalize ARG words.
(fn ARG)
(defalias 'capitalize-dwim #[257 "\300 \203 \301\302 \303 \304 #\207\305!\207" [use-region-p capitalize-region region-beginning region-end region-noncontiguous-p capitalize-word] 5 (#$ . 301973) "*p"])
#@76 compiler-macro for inlining `decoded-time-second'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-second--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-second (progn (car cl-x))) nil] 9 (#$ . 302434)])
(put 'decoded-time-second 'compiler-macro 'decoded-time-second--cmacro)
#@263 Access slot "second" of `decoded-time' struct CL-X.
This is an integer or a Lisp timestamp (TICKS . HZ) representing a nonnegative
number of seconds less than 61. (If not less than 60, it is a leap second,
which only some operating systems support.)
(fn CL-X)
(defalias 'decoded-time-second #[257 "\211@\207" [] 2 (#$ . 302769)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-second side-effect-free t] 4)
#@76 compiler-macro for inlining `decoded-time-minute'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-minute--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-minute (progn (nth 1 cl-x))) nil] 9 (#$ . 303203)])
(put 'decoded-time-minute 'compiler-macro 'decoded-time-minute--cmacro)
#@113 Access slot "minute" of `decoded-time' struct CL-X.
This is an integer between 0 and 59 (inclusive).
(fn CL-X)
(defalias 'decoded-time-minute #[257 "\211A@\207" [] 2 (#$ . 303540)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-minute side-effect-free t] 4)
#@74 compiler-macro for inlining `decoded-time-hour'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-hour--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-hour (progn (nth 2 cl-x))) nil] 9 (#$ . 303825)])
(put 'decoded-time-hour 'compiler-macro 'decoded-time-hour--cmacro)
#@111 Access slot "hour" of `decoded-time' struct CL-X.
This is an integer between 0 and 23 (inclusive).
(fn CL-X)
(defalias 'decoded-time-hour #[257 "\3008\207" [2] 3 (#$ . 304152)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-hour side-effect-free t] 4)
#@73 compiler-macro for inlining `decoded-time-day'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-day--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-day (progn (nth 3 cl-x))) nil] 9 (#$ . 304432)])
(put 'decoded-time-day 'compiler-macro 'decoded-time-day--cmacro)
#@110 Access slot "day" of `decoded-time' struct CL-X.
This is an integer between 1 and 31 (inclusive).
(fn CL-X)
(defalias 'decoded-time-day #[257 "\3008\207" [3] 3 (#$ . 304754)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-day side-effect-free t] 4)
#@75 compiler-macro for inlining `decoded-time-month'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-month--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-month (progn (nth 4 cl-x))) nil] 9 (#$ . 305031)])
(put 'decoded-time-month 'compiler-macro 'decoded-time-month--cmacro)
#@127 Access slot "month" of `decoded-time' struct CL-X.
This is an integer between 1 and 12 (inclusive). January is 1.
(fn CL-X)
(defalias 'decoded-time-month #[257 "\3008\207" [4] 3 (#$ . 305363)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-month side-effect-free t] 4)
#@74 compiler-macro for inlining `decoded-time-year'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-year--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-year (progn (nth 5 cl-x))) nil] 9 (#$ . 305661)])
(put 'decoded-time-year 'compiler-macro 'decoded-time-year--cmacro)
#@92 Access slot "year" of `decoded-time' struct CL-X.
This is a four digit integer.
(fn CL-X)
(defalias 'decoded-time-year #[257 "\3008\207" [5] 3 (#$ . 305987)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-year side-effect-free t] 4)
#@77 compiler-macro for inlining `decoded-time-weekday'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-weekday--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-weekday (progn (nth 6 cl-x))) nil] 9 (#$ . 306248)])
(put 'decoded-time-weekday 'compiler-macro 'decoded-time-weekday--cmacro)
#@116 Access slot "weekday" of `decoded-time' struct CL-X.
This is a number between 0 and 6, and 0 is Sunday.
(fn CL-X)
(defalias 'decoded-time-weekday #[257 "\3008\207" [6] 3 (#$ . 306590)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-weekday side-effect-free t] 4)
#@73 compiler-macro for inlining `decoded-time-dst'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-dst--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-dst (progn (nth 7 cl-x))) nil] 9 (#$ . 306881)])
(put 'decoded-time-dst 'compiler-macro 'decoded-time-dst--cmacro)
#@193 Access slot "dst" of `decoded-time' struct CL-X.
This is t if daylight saving time is in effect, nil if it is not
in effect, and -1 if daylight saving information is not
available.
(fn CL-X)
(defalias 'decoded-time-dst #[257 "\3008\207" [7] 3 (#$ . 307203)])
(byte-code "\300\301\302\303#\300\207" [function-put decoded-time-dst side-effect-free t] 4)
#@74 compiler-macro for inlining `decoded-time-zone'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'decoded-time-zone--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block decoded-time-zone (progn (nth 8 cl-x))) nil] 9 (#$ . 307563)])
(put 'decoded-time-zone 'compiler-macro 'decoded-time-zone--cmacro)
#@166 Access slot "zone" of `decoded-time' struct CL-X.
This is an integer indicating the UTC offset in seconds, i.e.,
the number of seconds east of Greenwich.
(fn CL-X)
(defalias 'decoded-time-zone #[257 "\3008\207" [8] 3 (#$ . 307890)])
(byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306& \210\312\313!\207" [function-put decoded-time-zone side-effect-free t cl-struct-define decoded-time nil list ((second nil :documentation "This is an integer or a Lisp timestamp (TICKS . HZ) representing a nonnegative\nnumber of seconds less than 61. (If not less than 60, it is a leap second,\nwhich only some operating systems support.)") (minute nil :documentation "This is an integer between 0 and 59 (inclusive).") (hour nil :documentation "This is an integer between 0 and 23 (inclusive).") (day nil :documentation "This is an integer between 1 and 31 (inclusive).") (month nil :documentation "This is an integer between 1 and 12 (inclusive). January is 1.") (year nil :documentation "This is a four digit integer.") (weekday nil :documentation "This is a number between 0 and 6, and 0 is Sunday.") (dst nil :documentation "This is t if daylight saving time is in effect, nil if it is not\nin effect, and -1 if daylight saving information is not\navailable.") (zone nil :documentation "This is an integer indicating the UTC offset in seconds, i.e.,\nthe number of seconds east of Greenwich.")) cl-struct-decoded-time-tags provide simple] 11)
Mini Shell