Current File : //usr/local/share/emacs/27.2/lisp/eshell/em-hist.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315&\210\316\317\320\321\322DD\323\324\325\326\327\314\307& \210\316\330\320\321\331DD\332\326\327\314\307&\210\316\333\320\321\334DD\335\326\336\314\307&\210\316\337\320\321\340DD\341\326\342\314\307&\210\316\343\320\321\344DD\345\326\346\314\307&\210\316\347\320\321\350DD\351\326\352\314\307&\210\316\353\320\321\354DD\355\326\356\314\307&\210\357\353\360\361#\210\316\362\320\321\363DD\364\326\346\314\307&\210\316\365\320\321\366DD\367\326\346\314\307&\210\316\370\320\321\371DD\372\326\373\314\307&\210\316\374\320\321\375DD\376\326\373\314\307&\210\316\377\320\321\201@ DD\201A \326\373\314\307&\210\316\201B \320\321\201C DD\201D \326\201E \314\307&\207" [require ring esh-opt esh-mode em-pred eshell custom-declare-group eshell-hist nil "This module provides command history management." :tag "History list management" :group eshell-module custom-declare-variable eshell-hist-load-hook funcall function #[0 "\300\207" [nil] 1] "A list of functions to call when loading `eshell-hist'." :version "24.1" :type hook eshell-hist-unload-hook #[0 "\300C\207" [#[0 "\300\301\302\"\207" [remove-hook kill-emacs-hook eshell-save-some-history] 3]] 1] "A hook that gets run when `eshell-hist' is unloaded." eshell-history-file-name #[0 "\301\302\"\207" [eshell-directory-name expand-file-name "history"] 3] "If non-nil, name of the file to read/write input history.\nSee also `eshell-read-history' and `eshell-write-history'.\nIf it is nil, Eshell will use the value of HISTFILE." (choice (const :tag "Use HISTFILE" nil) file) eshell-history-size #[0 "\300\207" [128] 1] "Size of the input history ring. If nil, use envvar HISTSIZE." (choice (const :tag "Use HISTSIZE" nil) integer) eshell-hist-ignoredups #[0 "\300\207" [nil] 1] "If non-nil, don't add input matching the last on the input ring.\nThis mirrors the optional behavior of bash." boolean eshell-save-history-on-exit #[0 "\300\207" [t] 1] "Determine if history should be automatically saved.\nHistory is always preserved after sanely exiting an Eshell buffer.\nHowever, when Emacs is being shut down, this variable determines\nwhether to prompt the user.\nIf set to nil, it means never save history on termination of Emacs.\nIf set to `ask', ask if any Eshell buffers are open at exit time.\nIf set to t, history will always be saved, silently." (choice (const :tag "Never" nil) (const :tag "Ask" ask) (const :tag "Always save" t)) eshell-input-filter #[0 "\300\207" [eshell-input-filter-default] 1] "Predicate for filtering additions to input history.\nTakes one argument, the input. If non-nil, the input may be saved on\nthe input history list. Default is to save anything that isn't all\nwhitespace." (radio (function-item eshell-input-filter-default) (function-item eshell-input-filter-initial-space) (function :tag "Other function")) put risky-local-variable t eshell-hist-match-partial #[0 "\300\207" [t] 1] "If non-nil, movement through history is constrained by current input.\nOtherwise, typing <M-p> and <M-n> will always go to the next history\nelement, regardless of any text on the command line. In that case,\n<C-c M-r> and <C-c M-s> still offer that functionality." eshell-hist-move-to-end #[0 "\300\207" [t] 1] "If non-nil, move to the end of the buffer before cycling history." eshell-hist-event-designator #[0 "\300\207" [#1="^!\\(!\\|-?[0-9]+\\|\\??[^:^$%*?]+\\??\\|#\\)"] 1 #1#] "The regexp used to identifier history event designators." regexp eshell-hist-word-designator #[0 "\300\207" [#2="^:?\\([0-9]+\\|[$^%*]\\)?\\(-[0-9]*\\|[$^%*]\\)?"] 1 #2#] "The regexp used to identify history word designators." eshell-hist-modifier #[0 "\300\207" [#3="^\\(:\\([hretpqx&g]\\|s/\\([^/]*\\)/\\([^/]*\\)/\\)\\)*"] 1 #3#] "The regexp used to identity history modifiers." eshell-hist-rebind-keys-alist #[0 "\300\207" [(([(control 112)] . eshell-previous-input) ([(control 110)] . eshell-next-input) ([(control up)] . eshell-previous-input) ([(control down)] . eshell-next-input) ([(control 114)] . eshell-isearch-backward) ([(control 115)] . eshell-isearch-forward) ([(meta 114)] . eshell-previous-matching-input) ([(meta 115)] . eshell-next-matching-input) ([(meta 112)] . eshell-previous-matching-input-from-input) ([(meta 110)] . eshell-next-matching-input-from-input) ([up] . eshell-previous-matching-input-from-input) ([down] . eshell-next-matching-input-from-input))] 1] "History keys to bind differently if point is in input text." (repeat (cons (vector :tag "Keys to bind" (repeat :inline t sexp)) (function :tag "Command")))] 10)
(defvar eshell-history-ring nil)
(defvar eshell-history-index nil)
(defvar eshell-matching-input-from-input-string "")
(defvar eshell-save-history-index nil)
#@35 Keymap used in isearch in Eshell.
(defvar eshell-isearch-map (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\317#\210\211\207" [isearch-mode-map copy-keymap define-key [(control 109)] eshell-isearch-return [(control 114)] eshell-isearch-repeat-backward [(control 115)] eshell-isearch-repeat-forward [(control 103)] eshell-isearch-abort [backspace] eshell-isearch-delete-char [delete] "" eshell-isearch-cancel] 5) (#$ . 5198))
#@89 Do not add blank input to input history.
Returns non-nil if INPUT is blank.
(fn INPUT)
(defalias 'eshell-input-filter-default #[257 "\211\301\302\303\304#)\266\204?\207" [inhibit-changing-match-data "\\`[ \n
]*\\'" nil t string-match] 9 (#$ . 5720)])
#@138 Do not add input beginning with empty space to history.
Returns nil if INPUT is prepended by blank space, otherwise non-nil.
(fn INPUT)
(defalias 'eshell-input-filter-initial-space #[257 "\301\302\303\304#)\266\203?\207" [inhibit-changing-match-data "\\`\\s-+" nil t string-match] 8 (#$ . 5985)])
#@63 Initialize the history management code for one Eshell buffer.
(defalias 'eshell-hist-initialize #[0 "\306\211>\262\203 \307\310\311\312\313$\210\314\211>\262\203E \204E \n\315\302!\210\316 \"\315\304!\210\313\315\305!\210\313\307\317\320\312\313$\210\307\321\322\312\313$\266\202\275 \323@\324\325#\210\323@\326\327#\210\323@\330\331#\210\323@\332\333#\210\323@\334\335#\210\323@\336\337#\210\323A\340\325#\210\323A\341\327#\210B\203\241 \323@\342\325#\210\323@\343\327#\210\323A\344\331#\210\323A\345\333#\210\202\275 \323@\346\331#\210\323@\347\333#\210\323A\350\325#\210\323A\351\327#\210\315\352!\210*\204\346 \353\354!\211;\203\342 \355!\211\262\250\203\342 \211\356V\203\342 \211\202\343 \357*\210\315\360!\2100\204\364 \353\361!0\315\362!\210\315\363!\210\364\365 !\203
\315\366!\210\3126\202%\315\367!\210\31270\203 \370\312\313\"\210\307\371\372\312\313$\2107\2040\373*!7\307\371\372\312\313$\210\307\374\375\"\210\315\376!\210\307\376\377\312\313$\210\323A\201C \201D #\210\323A\201E \201F #\207" [eshell-modules-list eshell-non-interactive-p eshell-rebind-keys-alist eshell-hist-rebind-keys-alist search-invisible search-exit-option eshell-cmpl add-hook pcomplete-try-first-hook eshell-complete-history-reference nil t eshell-rebind make-local-variable append isearch-mode-hook #[0 "`Y\205 \211\207" [eshell-last-output-end eshell-isearch-map overriding-terminal-local-map] 2] isearch-mode-end-hook #[0 "\301\211\207" [overriding-terminal-local-map nil] 2] define-key [up] eshell-previous-matching-input-from-input [down] eshell-next-matching-input-from-input [(control up)] eshell-previous-input [(control down)] eshell-next-input [(meta 114)] eshell-previous-matching-input [(meta 115)] eshell-next-matching-input [(meta 114)] [(meta 115)] [(meta 112)] [(meta 110)] [(meta 112)] [(meta 110)] [(meta 112)] [(meta 110)] [(meta 112)] [(meta 110)] eshell-history-size getenv "HISTSIZE" string-to-number 0 128 eshell-history-file-name "HISTFILE" eshell-history-index eshell-save-history-index minibuffer-window-active-p selected-window eshell-save-history-on-exit eshell-history-ring eshell-read-history eshell-exit-hook eshell-write-history make-ring kill-emacs-hook eshell-save-some-history eshell-input-filter-functions eshell-add-to-history eshell-mode-map eshell-command-map eshell-hist-match-partial [(control 108)] eshell-list-history [(control 120)] eshell-get-next-from-history] 6 (#$ . 6294)])
#@47 Save the history for any open Eshell buffers.
(defalias 'eshell-save-some-history #[0 "\303 \211\205: \211@\304!\2033 r\211q\210\2032 \2032 \n\2032 \n\305=\204/ \306\307\310\311!\"!\2032 \312 \210)A\266\202\202 \207" [eshell-mode eshell-history-file-name eshell-save-history-on-exit buffer-list buffer-live-p t y-or-n-p format-message "Save input history for Eshell buffer `%s'? " buffer-name eshell-write-history] 7 (#$ . 8763)])
#@66 List in help buffer the buffer's input history.
(fn &rest ARGS)
(defalias 'eshell/history #[128 "\301 \210\302!\303\304\"\262\305\306\307#\211A\262\242\211A\262\242\211A\262\242\310!\2030 \311!\2034 \312\313!\210\314\211\203P \315\316@\"\203P \317@!\320!^\262A\262\203d \204` \204` \203d \312\321!\210\203v @;\203v @\262A\262\203\201 \322!\210\202\303 \203\214 \323!\210\202\303 \203\230 \323\324\"\210\202\303 \206\237 \320!S\320!Z\325Y\203\301 \326\327\330\331!#!\210S\262\211T\262\202\245 \266\266\332 \210\314\207" [eshell-history-ring eshell-init-print-buffer flatten-tree mapcar eshell-stringify eshell--do-opts "history" ((114 "read" nil read-history "read from history file to current history list") (119 "write" nil write-history "write current history list to history file") (97 "append" nil append-history "append current history list to history file") (104 "help" nil nil "display this usage message") :usage "[n] [-rwa [filename]]" :post-usage "When Eshell is started, history is read from `eshell-history-file-name'.\nThis is also the location where history info will be saved by this command,\nunless a different file is specified on the command line.") ring-p ring-empty-p error "No history" nil string-match "^[0-9]+$" eshell-convert ring-length "history: extra arguments" eshell-read-history eshell-write-history t 0 eshell-buffered-print format "%5d %s\n" eshell-get-history eshell-flush] 17 (#$ . 9206)])
#@85 Put a new input line into the history ring.
(fn INPUT &optional RING AT-BEGINNING)
(defalias 'eshell-put-history #[769 "\204 \262\211\203 \301\"\207\302\"\207" [eshell-history-ring ring-insert-at-beginning ring-insert] 6 (#$ . 10688)])
#@69 Get an input line from the history ring.
(fn INDEX &optional RING)
(defalias 'eshell-get-history #[513 "\301\206 \"\207" [eshell-history-ring ring-ref] 5 (#$ . 10940)])
#@190 Add the string INPUT to the history ring.
Input is entered into the input history ring, if the value of
variable `eshell-input-filter' returns non-nil when called on the
input.
(fn INPUT)
(defalias 'eshell-add-input-to-history #[257 "!\203\" \203 \305\n!\203 \306\n!\204 \307\310!\230\204\" \311!\210 \312\211\207" [eshell-input-filter eshell-hist-ignoredups eshell-history-ring eshell-history-index eshell-save-history-index ring-p ring-empty-p eshell-get-history 0 eshell-put-history nil] 3 (#$ . 11121)])
#@312 Add the command entered at `eshell-command's prompt to the history ring.
The command is added to the input history ring, if the value of
variable `eshell-input-filter' returns non-nil when called on the
command.
This function is supposed to be called from the minibuffer, presumably
as a minibuffer-exit-hook.
(defalias 'eshell-add-command-to-history #[0 "\300\301 d{!\207" [eshell-add-input-to-history minibuffer-prompt-end] 3 (#$ . 11647)])
#@189 Add last Eshell command to the history ring.
The command is entered into the input history ring, if the value of
variable `eshell-input-filter' returns non-nil when called on the
command.
(defalias 'eshell-add-to-history #[0 "S V\205 S{\302!\262\207" [eshell-last-input-end eshell-last-input-start eshell-add-input-to-history] 3 (#$ . 12098)])
#@649 Sets the buffer's `eshell-history-ring' from a history file.
The name of the file is given by the variable
`eshell-history-file-name'. The history ring is of size
`eshell-history-size', regardless of file size. If
`eshell-history-file-name' is nil this function does nothing.
If the optional argument SILENT is non-nil, we say nothing about a
failure to read the history file.
This function is useful for major mode commands and mode hooks.
The structure of the history file should be one input command per
line, with the most recent command last. See also
`eshell-hist-ignoredups' and `eshell-write-history'.
(fn &optional FILENAME SILENT)
(defalias 'eshell-read-history #[512 "\206 \211\203 \211\305\232\203 \306\202\203 \307!\204$ \206\203 \310\311\"\202\203 \312 \313!\n\314\315!r\211q\210\316\312\317\320\321!\322\"\323$\216\324!\210db\210W\203z \325\326\306\327#\203z \330\331!\203i \332!\204i \333\312\"\230\204r \334\335\336\337#\"\210\210T\262\202E *\210\306\211\266\204\207" [eshell-history-file-name eshell-history-size eshell-hist-ignoredups eshell-history-ring eshell-history-index "" nil file-readable-p message "Cannot read history file %s" 0 make-ring generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-backward "^[ ]*\\([^#\n].*\\)[ ]*$" t match-string 1 ring-empty-p ring-ref ring-insert-at-beginning subst-char-in-string 127 10] 15 (#$ . 12455)])
#@384 Writes the buffer's `eshell-history-ring' to a history file.
The name of the file is given by the variable
`eshell-history-file-name'. The original contents of the file are
lost if `eshell-history-ring' is not empty. If
`eshell-history-file-name' is nil this function does nothing.
Useful within process sentinels.
See also `eshell-read-history'.
(fn &optional FILENAME APPEND)
(defalias 'eshell-write-history #[512 "\206 \211;\205
\302!\203! \303\232\204! \203! \304 !\203% \305\202\215 \306!\2042 \307\310\"\202\215 \311!\312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\315V\203j S\262`\323\324\"!\325\261\210\326`S\325\327$\266\202I \330 \314\315\331\317\320!\332\"\322$\216\333\334!\210\335ed\n\336%)\262*\262\266\202\207" [eshell-history-file-name eshell-history-ring file-truename "" ring-empty-p nil file-writable-p message "Cannot write history file %s" ring-length generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 substring-no-properties ring-ref 10 subst-char-in-region 127 default-file-modes "\301\300!\207" [set-default-file-modes] set-default-file-modes 384 write-region no-message] 14 (#$ . 13961)])
#@49 List in help buffer the buffer's input history.
(defalias 'eshell-list-history #[0 "\306\211\212\307\310\311 \312#\203 \313\314!\262G\262)\315!\203\" \316!\203( \317\320!\202\326 \306\321\322!S\323 \324Y\203_ \325!\203R \211GY\203W \326\324#\230\203W \211B\262\210S\262\2020 r\327!q\210p\330 \210\306\211\312\211\312 +\331 \210\332\333!\210+\211 ,\334\335\nG\"!\210q\210\336y\210\337\340\306\341#\203\241 \342\343!\210\202\222 \344!\210)\266\3451\264 \346\324\211\"0\202\270 \210\202\271 \210\317\347!\210\350 \211\351=\203\313 \352!\202\322 \211-B\211-\262\266\204\207" [eshell-history-ring default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks nil re-search-backward "!\\(.+\\)" line-beginning-position t match-string 1 ring-p ring-empty-p message "No history" " *Input History*" ring-length current-window-configuration 0 eshell-get-history substring get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook display-completion-list completion-hilit-commonality 3 search-backward "completion" move replace-match "history reference" internal-temp-output-buffer-show (error) sit-for "Hit space to flush" read-event 32 set-window-configuration inhibit-read-only standard-output unread-command-events] 13 (#$ . 15192) nil])
#@64 Return the word designator index referred to by REF.
(fn REF)
(defalias 'eshell-hist-word-reference #[257 "\300\301\"\203 \302!\207\211\303\230\203 \304\207\211\305\230\203 \306\207\211\307\230\205$ \310\311!\207" [string-match "^[0-9]+$" string-to-number "^" 1 "$" nil "%" error "`%%' history word designator not yet implemented"] 4 (#$ . 16534)])
#@85 Parse current command arguments in a history-code-friendly way.
(fn &optional B E)
(defalias 'eshell-hist-parse-arguments #[512 "\211\206 `\206 \212\300 \210`)\301C\301C\301C\302\211\3032% \302\304 \"\2620?\205\300 \212b\210`W\203_ \305`\306\"\203@ `C\244\210\305`\307\"\203Y `TU\203U `T\202V `C\244\210\302u\210\202- A\262A\262GGU\204s \310\311!\210GGX\204 \310\312!\210)\313\"\262\203\252 \314@ Z@\fZ#C\244\210A\262\211A\262\202\212 \266A\262GGU\204\274 \310\315!\210E\207" [eshell-bol t nil eshell-incomplete eshell-parse-arguments get-text-property arg-begin arg-end cl--assertion-failed (= (length posb) (length args)) (<= (length posb) (length pose)) buffer-substring-no-properties substring (= (length textargs) (length args))] 17 (#$ . 16895)])
#@73 Parse and expand any history references in current input.
(fn BEG END)
(defalias 'eshell-expand-history-references #[514 "\300\"\301\"\205c @\237A@\237\3028\237\303!\212\211\2031 b\210\304!\210\305 Z!\202` \205` \306@!\211@=\204P @b\210\304!\210\305@@Z!\210\210A\262A\262A\262\2021 )\266\204\207" [eshell-hist-parse-arguments buffer-substring-no-properties 2 eshell-history-substitution insert-and-inherit delete-char eshell-history-reference] 12 (#$ . 17703)])
#@67 Complete a history reference, by completing the event designator.
(defalias 'eshell-complete-history-reference #[0 "\303 \304\305\"\205k \306\307\"\310\311\312\313\314\n!SG\315Y\203J \316!\211GY\203B \306\315#\230\203B \304\317\"\203B \320\307\"B\262\210S\262\202 \310C\203d @\235\204] \211@C\244\210A\262\202L \211A\262\266\203\"\207" [pcomplete-stub pcomplete-last-completion-raw eshell-history-ring pcomplete-actual-arg string-match "\\`![^:^$*%]*\\'" substring 1 t throw pcomplete-completions nil ring-length 0 eshell-get-history "^\\([^:^$*% \n]+\\)" match-string] 11 (#$ . 18200)])
#@171 Expand quick hist substitutions formatted as ^foo^bar^.
Returns nil if string does not match quick substitution format,
and acts like !!:s/foo/bar/ otherwise.
(fn LINE)
(defalias 'eshell-history-substitution #[257 "\301\211>\262\205' \302\303\"\205' \304\305\"\306\307\310\304\311\"\304\312\"#!P\262\207" [eshell-modules-list eshell-pred string-match "^\\^\\([^^]+\\)\\^\\([^^]+\\)\\(?:\\^\\(.*\\)\\)?$" match-string 3 eshell-history-reference format "!!:s/%s/%s/" 1 2] 9 (#$ . 18821)])
#@188 Expand directory stack REFERENCE.
The syntax used here was taken from the Bash info manual.
Returns the resultant reference, or the same string REFERENCE if none
matched.
(fn REFERENCE)
(defalias 'eshell-history-reference #[257 "\302\303\"\204 \207\304\305!\211\204 \306\307\"\210\211@\310A\"\262\311!\262\302\312\"\2040 \211\202m \313\"\211\204= \306\314\"\210\302\315\"\204H \211\316\241\210\211@\262\310A\"\262\317\211 >\262\203c \302\320\"\204g \202k \321\"\262\207" [eshell-history-index eshell-modules-list string-match "^![^ \n=(]" nil eshell-hist-parse-event-designator error "Could not find history event `%s'" substring eshell-get-history "^[:^$*%]" eshell-hist-parse-word-designator "Unable to honor word designator `%s'" "^[:^$*%][[$^*%0-9-]" 0 eshell-pred "^:" eshell-hist-parse-modifier] 6 (#$ . 19326)])
#@74 Parse a history event designator beginning in REFERENCE.
(fn REFERENCE)
(defalias 'eshell-hist-parse-event-designator #[257 "\302\"\211\205\n \303\225\204 \304\305\"\210\306\307\"\211\310\230\203# \311 !\202\214 \211\312\230\203/ \304\313!\202\214 \302\314\"\203P \315!\211\303Y\203G \311 !Z\202K \316!S\262\202\214 \302\317\"\203\210 \306\307\"G\303V\203e \320\202f \321\306\322\"\323 \324\303\325\326\327!\330\"\331$\216\332\333!P\307\")\262\266\202\202\214 \304\334\"\211\205\223 \211B\266\202\207" [eshell-hist-event-designator eshell-history-ring string-match 0 error "Invalid history event designator `%s'" match-string 1 "!" ring-length "#" "!# not yet implemented" "^-?[0-9]+$" string-to-number abs "^\\(\\??\\)\\([^?]+\\)\\??$" "" "^" 2 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 eshell-previous-matching-input-string-position regexp-quote "Failed to parse event designator `%s'"] 13 (#$ . 20180)])
#@87 Parse a history word designator beginning for HIST in REFERENCE.
(fn HIST REFERENCE)
(defalias 'eshell-hist-parse-word-designator #[514 "\301\"\211\205\n \302\225\302H\303>\204 \304\305\"\210\306\307\"\306\310\"`\311c\210\312`\"@\262`|\210\313\230\203I \203C \304\305\"\210\202I \307\262\314\262\204` \203W \262\202\231 \302\262\315\262\202\231 \316\230\203o \211G\310Z\262\202\231 \313\230\203{ \315\262\202\231 G\307V\203\212 \302H\317=\204\223 \304\305\"\210\202\231 \320\307\"\262\247\204\243 \321!\262\247\204\255 \321!\262\322\323\324#\325#B\266\204\207" [eshell-hist-word-designator string-match 0 (58 94 36 42 37) error "Invalid history word designator `%s'" match-string 1 2 nil eshell-hist-parse-arguments "*" "-$" "$" "-" 45 substring eshell-hist-word-reference mapconcat identity eshell-sublist " "] 14 (#$ . 21163)])
#@80 Parse a history modifier beginning for HIST in REFERENCE.
(fn HIST REFERENCE)
(defalias 'eshell-hist-parse-modifier #[514 "`c\210\214\211`}\210eb\210\300 A\211\211\203% \211@\211C!@\262A\266\202\202 \210\262)`|\210\207" [eshell-parse-modifiers] 8 (#$ . 22046)])
#@199 After fetching a line from input history, this fetches the next.
In other words, this recalls the input line after the line you
recalled last. You can use this to repeat a sequence of input lines.
(defalias 'eshell-get-next-from-history #[0 "\203 T\302\303!\207\304\305!\207" [eshell-save-history-index eshell-history-index eshell-next-input 1 message "No previous history command"] 2 (#$ . 22325) nil])
#@12
(fn ARG)
(defalias 'eshell-search-arg #[257 "\203
` W\203
b\210\n\203 \304\n!\203 \305\306!\207\211\307U\203% \310\311\207\207" [eshell-hist-move-to-end eshell-last-output-end eshell-history-ring eshell-history-index ring-empty-p error "Empty input ring" 0 nil 1] 3 (#$ . 22740)])
#@84 Index to start a directional search, starting at `eshell-history-index'.
(fn ARG)
(defalias 'eshell-search-start #[257 "\203 \302\303V\203 \304\202 \305\\\306 !\"\207\211\303Y\203 \303\207\306 !S\207" [eshell-history-index eshell-history-ring mod 0 1 -1 ring-length] 5 (#$ . 23036)])
#@104 Return the string ARG places along the input ring.
Moves relative to `eshell-history-index'.
(fn ARG)
(defalias 'eshell-previous-input-string #[257 "\302\203 \303\\\304 !\"\202 !\207" [eshell-history-index eshell-history-ring eshell-get-history mod ring-length] 6 (#$ . 23335)])
#@50 Cycle backwards through input history.
(fn ARG)
(defalias 'eshell-previous-input #[257 "\300\301\"\207" [eshell-previous-matching-input "."] 4 (#$ . 23627) "*p"])
#@49 Cycle forwards through input history.
(fn ARG)
(defalias 'eshell-next-input #[257 "\300[!\207" [eshell-previous-input] 3 (#$ . 23798) "*p"])
#@127 Return the string matching REGEXP ARG places along the input ring.
Moves relative to `eshell-history-index'.
(fn REGEXP ARG)
(defalias 'eshell-previous-matching-input-string #[514 "\300\"\211\205 \301!\207" [eshell-previous-matching-input-string-position eshell-get-history] 5 (#$ . 23948)])
#@152 Return the index matching REGEXP ARG places along the input ring.
Moves relative to START, or `eshell-history-index'.
(fn REGEXP ARG &optional START)
(defalias 'eshell-previous-matching-input-string-position #[770 "\303!\203\f \304!\203 \305\306!\210\307!\310V\203 \311\202 \312\313\206& \314!Z\"\315 \316>\315\310U\204\201 \204\201 \262\313\\\"\262W\203l \204l \317\320!\"\204l \313\\\"\262U\262\202G \310V\203y S\202| T\262\2020 \317\320!\"\205\214 )\207" [eshell-history-ring system-type case-fold-search ring-p ring-empty-p error "No history" ring-length 0 1 -1 mod eshell-search-start nil (ms-dos windows-nt) string-match eshell-get-history] 12 (#$ . 24252)])
#@235 Search backwards through input history for match for REGEXP.
(Previous history elements are earlier commands.)
With prefix argument N, search for Nth previous match.
If N is negative, find the next or Nth next match.
(fn REGEXP ARG)
(defalias 'eshell-previous-matching-input #[514 "\303!\262`V\203 \304\305!\210\306\"\211\204 \304\307!\2028 \211\310\311 !\204/ \312\313\314\n!Z\"\210`|\210\315\316!!\207" [eshell-last-output-end eshell-history-index eshell-history-ring eshell-search-arg error "Point not located after prompt" eshell-previous-matching-input-string-position "Not found" minibuffer-window-active-p selected-window message "History item: %d" ring-length insert-and-inherit eshell-get-history] 7 (#$ . 24972) (eshell-regexp-arg "Previous input matching (regexp): ")])
#@244 Search forwards through input history for match for REGEXP.
(Later history elements are more recent commands.)
With prefix argument N, search for Nth following match.
If N is negative, find the previous or Nth previous match.
(fn REGEXP ARG)
(defalias 'eshell-next-matching-input #[514 "\300[\"\207" [eshell-previous-matching-input] 5 (#$ . 25772) (eshell-regexp-arg "Next input matching (regexp): ")])
#@248 Search backwards through input history for match for current input.
(Previous history elements are earlier commands.)
With prefix argument N, search for Nth previous match.
If N is negative, search forwards for the -Nth following match.
(fn ARG)
(defalias 'eshell-previous-matching-input-from-input #[257 "\303>\204 \212\304 \210`)`{\305\306\307\310 !P\"\207" [last-command eshell-matching-input-from-input-string eshell-history-index (eshell-previous-matching-input-from-input eshell-next-matching-input-from-input) eshell-bol nil eshell-previous-matching-input "^" regexp-quote] 5 (#$ . 26185) "p"])
#@253 Search forwards through input history for match for current input.
(Following history elements are more recent commands.)
With prefix argument N, search for Nth following match.
If N is negative, search backwards for the -Nth previous match.
(fn ARG)
(defalias 'eshell-next-matching-input-from-input #[257 "\300[!\207" [eshell-previous-matching-input-from-input] 3 (#$ . 26800) "p"])
#@71 If isearch match good, put point at the beginning and return non-nil.
(defalias 'eshell-test-imatch #[0 "\301`\302\"\203\f \303 \210\304\207`\305 \210n\204 `X\203 \304\202/ \203* \306\210\306u\202/ \303 \210\307u\207" [isearch-forward get-text-property history beginning-of-line t eshell-bol nil -1] 3 (#$ . 27192)])
#@66 Once a search string matches, insert it at the end and go there.
(defalias 'eshell-return-to-prompt #[0 "\304\305 \304\204# \203 \306\202 \307\n\304\310#\211\262\203# \305 \262\202 \2040 b\210`d|\202b `\262\311`\312 \"\313 ! b\210`d|\210\205` G\314V\205` c\210\315`S`\316$\210 \304\223\210 b\266\202\207" [isearch-other-end isearch-forward isearch-string eshell-last-output-end nil eshell-test-imatch re-search-forward re-search-backward t buffer-substring-no-properties line-end-position marker-position 0 put-text-property last-search-pos] 9 (#$ . 27520)])
#@67 Make sure the old history file is at the beginning of the buffer.
(defalias 'eshell-prepare-for-search #[0 "\301e\302\"?\205 \212eb\210\303`\304\"\305!\210\306e\307#\262)\207" [eshell-history-file-name get-text-property history copy-marker t insert-file-contents set-text-properties (history t invisible t)] 5 (#$ . 28102)])
#@85 Do incremental regexp search backward through past commands.
(fn &optional INVERT)
(defalias 'eshell-isearch-backward #[256 "\302\303 \210db\210 `\304\223\210`d|\210)\305\302\306#\207" [inhibit-read-only eshell-last-output-end t eshell-prepare-for-search nil isearch-mode eshell-return-to-prompt] 5 (#$ . 28437) nil])
#@85 Do incremental regexp search backward through past commands.
(fn &optional INVERT)
(defalias 'eshell-isearch-repeat-backward #[256 "\301dS\302\"\211\203 \211b\210\203 \303\210\202 \304u\210\305 \207" [isearch-forward get-text-property last-search-pos nil -1 isearch-search-and-update] 4 (#$ . 28764) nil])
#@62 Do incremental regexp search backward through past commands.
(defalias 'eshell-isearch-forward #[0 "\300\301!\207" [eshell-isearch-backward t] 2 (#$ . 29084) nil])
#@62 Do incremental regexp search backward through past commands.
(defalias 'eshell-isearch-repeat-forward #[0 "\300\301!\207" [eshell-isearch-repeat-backward t] 2 (#$ . 29254) nil])
(defalias 'eshell-isearch-cancel #[0 "b\210`d|\210\301\302!\207" [eshell-last-output-end call-interactively isearch-cancel] 2 nil nil])
(defalias 'eshell-isearch-abort #[0 "b\210`d|\210\301\302!\207" [eshell-last-output-end call-interactively isearch-abort] 2 nil nil])
(defalias 'eshell-isearch-delete-char #[0 "\212\300 )\207" [isearch-delete-char] 1 nil nil])
(defalias 'eshell-isearch-return #[0 "\300 \210\301 \207" [isearch-done eshell-send-input] 1 nil nil])
(provide 'em-hist)
Mini Shell