| Current Path : /usr/share/emacs/24.3/lisp/eshell/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/eshell/em-hist.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-hist.el
;;; in Emacs version 24.3.1
;;; 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\305\306\307\310\311\312\313\314&\210\315\316\307\317\320\321\322\323\313\306& \210\315\324\325\326\322\323\313\306&\210\315\327\330\331\322\332\313\306&\210\315\333\334\335\322\336\313\306&\210\315\337\307\340\322\341\313\306&\210\315\342\343\344\322\345\313\306&\210\315\346\347\350\322\351\313\306&\210\352\346\353\343#\210\315\354\343\355\322\341\313\306&\210\315\356\343\357\322\341\313\306&\210\315\360\361\362\322\363\313\306&\210\315\364\365\366\322\363\313\306&\210\315\367\370\371\322\363\313\306&\210\315\372\373\374\322\375\313\306&\207" [require ring esh-opt 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 "A list of functions to call when loading `eshell-hist'." :version "24.1" :type hook eshell-hist-unload-hook (list #'(lambda nil (remove-hook 'kill-emacs-hook 'eshell-save-some-history))) "A hook that gets run when `eshell-hist' is unloaded." eshell-history-file-name (expand-file-name "history" eshell-directory-name) "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 128 "Size of the input history ring. If nil, use envvar HISTSIZE." (choice (const :tag "Use HISTSIZE" nil) integer) eshell-hist-ignoredups "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 t "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 #'(lambda (str) (not (string-match "\\`\\s-*\\'" str))) "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." function put risky-local-variable eshell-hist-match-partial "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 "If non-nil, move to the end of the buffer before cycling history." eshell-hist-event-designator "^!\\(!\\|-?[0-9]+\\|\\??[^:^$%*?]+\\??\\|#\\)" "The regexp used to identifier history event designators." regexp eshell-hist-word-designator "^:?\\([0-9]+\\|[$^%*]\\)?\\(\\*\\|-[0-9]*\\|[$^%*]\\)?" "The regexp used to identify history word designators." eshell-hist-modifier "^\\(:\\([hretpqx&g]\\|s/\\([^/]*\\)/\\([^/]*\\)/\\)\\)*" "The regexp used to identity history modifiers." eshell-hist-rebind-keys-alist '(([(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)) "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)
(defvar eshell-isearch-map nil)
(byte-code "\204B \303 !\304\305\306#\210\304\307\306#\210\304\310\311#\210\304\312\313#\210\304\314\315#\210\304\316\317#\210\304\320\317#\210\321\302!\210\304\322\302#\210\304\n\323\324#\210\303\207" [eshell-isearch-map isearch-mode-map eshell-isearch-cancel-map copy-keymap define-key [(control 109)] eshell-isearch-return [return] [(control 114)] eshell-isearch-repeat-backward [(control 115)] eshell-isearch-repeat-forward [(control 103)] eshell-isearch-abort [backspace] eshell-isearch-delete-char [delete] define-prefix-command [(control 99)] [(control 99)] eshell-isearch-cancel] 4)
#@63 Initialize the history management code for one Eshell buffer.
(defalias 'eshell-hist-initialize #[nil "\306\307\310\311\312$\210\313\211 >)\203 \306\314\315\311\312$\210\316\211 >)\203O \n\204O \317\303!\210\320\f
\"\317\321!\210\312\317\322!\210\312\306\323\324\311\312$\210\306\325\326\311\312$\210)\202\307 \327@\330\331#\210\327@\332\333#\210\327@\334\335#\210\327@\336\337#\210\327@\340\341#\210\327@\342\343#\210\327A\344\331#\210\327A\345\333#\210B\203\253 \327@\346\331#\210\327@\347\333#\210\327A\350\335#\210\327A\351\337#\210\202\307 \327@\352\335#\210\327@\353\337#\210\327A\354\331#\210\327A\355\333#\210\317\356!\210.\204\365 \357\360!\211 C;\203\361 \361C!\211C\250\203\361 C\362V\203\361 C\202\362 \363.)\317\364!\2104\204\357\365!4\317\366!\210\317\367!\210\370\371 !\203 \317\372!\210\311:\2024\317\373!\210\311;4\203-\374\311\312\"\210\306\375\376\311\312$\210;\204?\377.!;\306\375\376\311\312$\210\306\201D \201E \"\210\317\201F !\210\306\201F \201G \311\312$\210\327A\201H \201I #\210\327A\201J \201K #\207" [module eshell-modules-list eshell-non-interactive-p eshell-rebind-keys-alist rebind-alist eshell-hist-rebind-keys-alist add-hook eshell-expand-input-functions eshell-expand-history-references nil t eshell-cmpl pcomplete-try-first-hook eshell-complete-history-reference eshell-rebind make-local-variable append search-invisible search-exit-option isearch-mode-hook #[nil "`Y\205 \211\207" [eshell-last-output-end eshell-isearch-map overriding-terminal-local-map] 2] isearch-mode-end-hook #[nil "\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 eshell-mode-map eshell-command-map eshell-hist-match-partial hsize kill-emacs-hook eshell-save-some-history eshell-input-filter-functions eshell-add-to-history [(control 108)] eshell-list-history [(control 120)] eshell-get-next-from-history] 6 (#$ . 5403)])
#@47 Save the history for any open Eshell buffers.
(defalias 'eshell-save-some-history #[nil "\305 \306\211\205? @\307!\2037 rq\210\n\2036 \2036 \f\2036 \f\310=\2043 \311\312\313\314!\"!\2036 \315 \210) A\211\204 \306*\207" [buf --dolist-tail-- eshell-mode eshell-history-file-name eshell-save-history-on-exit buffer-list nil buffer-live-p t y-or-n-p format "Save input history for Eshell buffer `%s'? " buffer-name eshell-write-history] 6 (#$ . 7990)])
#@49 List in help buffer the buffer's input history.
(defalias 'eshell/history #[(&rest args) "\306 \210\307!\310\311\")\312\211\211\211\211\211\211 \313\314\315\316#.\207" [args temp-args ext-command last-value usage-msg append-history eshell-init-print-buffer eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "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.") #[nil "\306!\203\f \307!\203 \310\311!\210\312\211\211\f\203. \313\314\f@\"\203. \315\f@!\316!^\fA \203D
\204@ \204@ \203D \310\317!\210\f\203T \f@;\203T \f@\fA
\203_ \320 !\210\202\256 \203k \321 !\210\202\256 \203x \321 \322\"\210\202\256 \312 \206\202 \316!S \316! Z \323Y\203\255 \324\325\326 \327 !#!\210 S T \202\215 ++\330 \210\312\207" [eshell-history-ring file command length args read-history 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 write-history append-history history index ref] 6] write-history read-history] 7 (#$ . 8455)])
#@45 Put a new input line into the history ring.
(defalias 'eshell-put-history #[(input &optional ring at-beginning) "\204 \n\203 \304 \"\207\305 \"\207" [ring eshell-history-ring at-beginning input ring-insert-at-beginning ring-insert] 3 (#$ . 10117)])
#@42 Get an input line from the history ring.
(defalias 'eshell-get-history #[(index &optional ring) "\303\206 \n\"\207" [ring eshell-history-ring index ring-ref] 3 (#$ . 10379)])
#@178 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.
(defalias 'eshell-add-input-to-history #[(input) " !\203\" \n\203 \306 !\203 \307 !\204 \310\311! \230\204\" \312 !\210\f\313\211\207" [eshell-input-filter input 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] 2 (#$ . 10564)])
#@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 #[nil "\300\301 d{!\207" [eshell-add-input-to-history minibuffer-prompt-end] 3 (#$ . 11088)])
#@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 #[nil "S V\205 S{\303\n!)\207" [eshell-last-input-end eshell-last-input-start input eshell-add-input-to-history] 2 (#$ . 11541)])
#@617 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'.
(defalias 'eshell-read-history #[(&optional filename silent) "\206 \211\203 \n\306\232\203 \307\202\217 \310\n!\204% \206\217 \311\312\n\"\202\217 \313
\314 ! \315\316! r q\210\317\216\320\n!\210db\210\f W\203\205 \321\322\307\323#\203\205 \324\325! ! \203r \326 !\204r \327 \313\"!\230\204} \330 \331\332\333!#\"\210)\fT\211\202H + \"\307\211#,)\207" [filename eshell-history-file-name file silent count eshell-history-size "" nil file-readable-p message "Cannot read history file %s" 0 make-ring generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer 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 size ring eshell-hist-ignoredups ignore-dups #1# history eshell-history-ring eshell-history-index] 7 (#$ . 11904)])
#@352 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'.
(defalias 'eshell-write-history #[(&optional filename append) "\206 \211\203 \n\306\232\204 \203 \307 !\203 \310\202r \311\n!\204+ \312\313\n\"\202r \314\f! \315\316! rq\210\317\216
\320V\203^
S` \321\f
\"\322\261\210\323 `S\322\324$\210)\202= \325 \326\327!\210\330\216\331ed\n \332%.)\207" [filename eshell-history-file-name file eshell-history-ring ring index "" ring-empty-p nil file-writable-p message "Cannot write history file %s" ring-length generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 0 ring-ref 10 subst-char-in-region 127 default-file-modes set-default-file-modes 384 ((set-default-file-modes modes)) write-region no-message #1# start modes append] 7 (#$ . 13454)])
#@49 List in help buffer the buffer's input history.
(defalias 'eshell-list-history #[nil "\306\211\212\307\310\311 \312#\203 \313\314!\211G)\315\n!\203\" \316\n!\203( \317\320!\202\324 \306\321\322\n!S\323 )\f\324Y\203e \325\f! * \203V *GY\203] *\324O \230\203] *)B))\fS\211\2026 + ,r\326
!q\210p\327 \210,+\306\211-.\312\211/\312 0 1\330 \210\331\332!\210+\211 2 3\333) \"\210
q\210\334y\210\335\336\306\337#\203\256 \340\341!\210\202\237 \3422!\210+\306\343\344\217\210\317\345!\210\346 \211 4\347=\203\315 \350 !\202\323 4C\2115-*\207" [prelen prefix eshell-history-ring conf index history-buffer 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 get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook display-completion-list 3 search-backward "completion" move replace-match "history reference" internal-temp-output-buffer-show (byte-code "\300\301\211\"\207" [sit-for 0] 3) ((error)) "Hit space to flush" read-event 32 set-window-configuration history hist default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ch unread-command-events] 5 (#$ . 14590) nil])
#@54 Return the word designator index referred to by REF.
(defalias 'eshell-hist-word-reference #[(ref) "\301\302\"\203 \303!\207\304\230\203 \305\207\306\230\203 \307\207\310\230\205$ \311\312!\207" [ref string-match "^[0-9]+$" string-to-number "^" 1 "$" nil "%" error "`%%' history word designator not yet implemented"] 3 (#$ . 15962)])
#@65 Parse current command arguments in a history-code-friendly way.
(defalias 'eshell-hist-parse-arguments #[(&optional silent b e) "\206 ` \206 \212\306 \210`)\307C\307C\307C\310\211 \311\312\215?\205\307 \212b\210`W\203` \313`\314\"\203A `C\244\210\313`\315\"\203Z
`TU\203V `T\202W `C\244\210\310u\210\202- A
AG\nGU\204w \316\317\320C\"\210G
GX\204\206 \316\317\321C\"\210)\322\"
\203\260 \f @Z@ZOC\244\210 AA\202\223 *\fA\211G\nGU\204\302 \316\317\323C\"\210\f
E.\207" [e b args hist textargs pose eshell-bol t nil eshell-incomplete (byte-code "\303\304 \"\207" [begin end args nil eshell-parse-arguments] 4) get-text-property arg-begin arg-end signal cl-assertion-failed (= (length posb) (length args)) (<= (length posb) (length pose)) buffer-substring-no-properties (= (length textargs) (length args)) posb begin end] 8 (#$ . 16310)])
#@59 Parse and expand any history references in current input.
(defalias 'eshell-expand-history-references #[(beg end) "\306\307 #\211\205I \n@\237\nA@\237\310\n8\237 \212
\205H \311
@!\211 \f
@=\204; \f@b\210\312\f!\210\313 @\f@Z!\210)
A\fA A\202 ,)\207" [beg end result pose posb textargs eshell-hist-parse-arguments t 2 eshell-history-reference insert-and-inherit delete-char str] 5 (#$ . 17207)])
#@67 Complete a history reference, by completing the event designator.
(defalias 'eshell-complete-history-reference #[nil "\306 \307\310\"\205| \311\312O\313\314\315\312\316 !S G
\317Y\203T \320
!\211 G\fY\203L \317\fO \230\203L \307\321\"\203L \322\311\"B)
S\211\202 \313C \203w @\235\204n @C\244\210A\211\204] A,\")\207" [arg pcomplete-stub pcomplete-last-completion-raw eshell-history-ring stublen index pcomplete-actual-arg string-match "\\`![^:^$*%]*\\'" 1 nil t throw pcomplete-completions ring-length 0 eshell-get-history "^\\([^:^$*% \n]+\\)" match-string history hist fhist] 6 (#$ . 17618)])
#@172 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.
(defalias 'eshell-history-reference #[(reference) "\306\211 >)\203 \307\310\n\"\203 \311\312\313\314\n\"\313\315\n\"#\307\316\n\"\204% \n\207\317\320\n!\211 \2044 \321\322\n\"\210\f@\n\fA\317O\323 !\307\324\n\"\204L \f\202\207 \325\f\n\"\211 \204Z \321\326\n\"\210\307\327\n\"\204e
\330\241\210
@\n
A\317O\306\211 >)\203~ \307\331\n\"\204\202 \f\202\206 \332\f\n\"))\207" [module eshell-modules-list reference eshell-history-index event word eshell-pred string-match "\\^\\([^^]+\\)\\^\\([^^]+\\)\\^?\\s-*$" format "!!:s/%s/%s/" match-string 1 2 "^![^ \n=(]" nil eshell-hist-parse-event-designator error "Could not find history event `%s'" eshell-get-history "^[:^$*%]" eshell-hist-parse-word-designator "Unable to honor word designator `%s'" "^[:^$*%][[$^*%0-9-]" 0 "^:" eshell-hist-parse-modifier] 7 (#$ . 18261)])
#@58 Parse a history event designator beginning in REFERENCE.
(defalias 'eshell-hist-parse-event-designator #[(reference) "\306 \"\211\205 \307\225\n\204 \310\311 \"\210\312\313 \"\211 \314\230\203& \315
!\202\214 \f\316\230\2032 \310\317!\202\214 \306\320\f\"\203V \321\f!\211 \307Y\203M \315
! Z\202R \322 !S)\202\214 \306\323\f\"\203\210 \312\313\f\"G\307V\203k \324\202l \325\312\326\f\" \327 \330\216\331 \332 !P\313\",\202\214 \310\333\f\"\211 \205\226 B,\207" [eshell-hist-event-designator reference index end event 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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) eshell-previous-matching-input-string-position regexp-quote "Failed to parse event designator `%s'" num str pref save-match-data-internal pos] 5 (#$ . 19268)])
#@66 Parse a history word designator beginning for HIST in REFERENCE.
(defalias 'eshell-hist-parse-word-designator #[(hist reference) "\306 \"\211\205 \307\225 \307H\310>\204 \311\312 \"\210\313\314 \"\313\315 \"`\316 c\210\317\316
`#@
`|\210\320\230\203R \203L \311\312 \"\210\202R \314\321\204l \203c \202\251 \307\322\202\251 \323\230\203| \fG\315Z\202\251 \320\230\203\211 \322\202\251 G\314V\203\232 \307H\324=\204\242 \311\312 \"\210\202\251 \314\316O\247\204\265 \325!\247\204\301 \325!\326\327\330\f#\331# .B\207" [eshell-hist-word-designator reference index end textargs here string-match 0 (58 94 36 42 37) error "Invalid history word designator `%s'" match-string 1 2 nil eshell-hist-parse-arguments "*" "-$" "$" "-" 45 eshell-hist-word-reference mapconcat identity eshell-sublist "" mth nth hist] 7 (#$ . 20282)])
#@59 Parse a history modifier beginning for HIST in REFERENCE.
(defalias 'eshell-hist-parse-modifier #[(hist reference) "` c\210\214`}\210eb\210\306 A\211\307\211 \203' \f@\211
!\fA\211\204 *
*`|\210)\207" [here reference modifiers mod --dolist-tail-- hist eshell-parse-modifiers nil] 4 (#$ . 21175)])
#@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 #[nil "\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 (#$ . 21488) nil])
(defalias 'eshell-search-arg #[(arg) "\203
` W\203
b\210\n\203 \305\n!\203 \306\307!\207\310 !\203% \311\312\207 \207" [eshell-hist-move-to-end eshell-last-output-end eshell-history-ring arg eshell-history-index ring-empty-p error "Empty input ring" zerop nil 1] 2])
#@74 Index to start a directional search, starting at `eshell-history-index'.
(defalias 'eshell-search-start #[(arg) "\203 \303 \304V\203 \305\202 \306\\\307\n!\"\207 \304Y\203 \304\207\307\n!S\207" [eshell-history-index arg eshell-history-ring mod 0 1 -1 ring-length] 4 (#$ . 22179)])
#@94 Return the string ARG places along the input ring.
Moves relative to `eshell-history-index'.
(defalias 'eshell-previous-input-string #[(arg) "\303\203 \304 \\\305\n!\"\202 !\207" [eshell-history-index arg eshell-history-ring eshell-get-history mod ring-length] 5 (#$ . 22472)])
#@40 Cycle backwards through input history.
(defalias 'eshell-previous-input #[(arg) "\301\302\"\207" [arg eshell-previous-matching-input "."] 3 (#$ . 22761) "*p"])
#@39 Cycle forwards through input history.
(defalias 'eshell-next-input #[(arg) "\301[!\207" [arg eshell-previous-input] 2 (#$ . 22928) "*p"])
#@110 Return the string matching REGEXP ARG places along the input ring.
Moves relative to `eshell-history-index'.
(defalias 'eshell-previous-matching-input-string #[(regexp arg) "\303 \"\211\205\f \304\n!)\207" [regexp arg pos eshell-previous-matching-input-string-position eshell-get-history] 4 (#$ . 23074)])
#@119 Return the index matching REGEXP ARG places along the input ring.
Moves relative to START, or `eshell-history-index'.
(defalias 'eshell-previous-matching-input-string-position #[(regexp arg &optional start) "\306!\203\f \307!\203 \310\311!\210\312!\n\313V\203 \314\202 \315\316\f\206( \317\n! Z \" \320 \321> \320 \n\313U\204\205 \204\205
\316
\\ \"
W\203s \204s \322\323
!\"\204s \316
\\ \"\211U\202N \n\313V\203~ \nS\202\200 \nT\211\202: \322\323
!\"\205\220
.\207" [eshell-history-ring len arg motion start n 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 tried-each-ring-item system-type case-fold-search prev regexp] 5 (#$ . 23389)])
#@218 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.
(defalias 'eshell-previous-matching-input #[(regexp arg) "\306! `V\203 \307\310!\210\311\n\"\211\204 \307\312!\2028 \313\314 !\204/ \315\316\317
! Z\"\210 `|\210\320\321 !!)\207" [arg eshell-last-output-end regexp pos 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] 5 (#$ . 24162) (eshell-regexp-arg "Previous input matching (regexp): ")])
#@227 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.
(defalias 'eshell-next-matching-input #[(regexp arg) "\302 [\"\207" [regexp arg eshell-previous-matching-input] 3 (#$ . 24964) (eshell-regexp-arg "Next input matching (regexp): ")])
#@238 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.
(defalias 'eshell-previous-matching-input-from-input #[(arg) "\304>\204 \212\305 \210`)`{\306\307\310\311 !P \"\207" [last-command eshell-matching-input-from-input-string eshell-history-index arg (eshell-previous-matching-input-from-input eshell-next-matching-input-from-input) eshell-bol nil eshell-previous-matching-input "^" regexp-quote] 4 (#$ . 25380) "p"])
#@243 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.
(defalias 'eshell-next-matching-input-from-input #[(arg) "\301[!\207" [arg eshell-previous-matching-input-from-input] 2 (#$ . 25991) "p"])
#@71 If isearch match good, put point at the beginning and return non-nil.
(defalias 'eshell-test-imatch #[nil "\302`\303\"\203\f \304 \210\305\207`\306 \210n\204 `X\203 \305\2020 \203+ \307\210\307u\2020 \304 \210\310u)\207" [before isearch-forward get-text-property history beginning-of-line t eshell-bol nil -1] 3 (#$ . 26379)])
#@66 Once a search string matches, insert it at the end and go there.
(defalias 'eshell-return-to-prompt #[nil "\306\307 \306\211\204$ \203 \310\202 \311\f\306\312#\211\203$ \307 \211\203 \n\2041
b\210`d|\202h `\313`\314 \"\315
!
b\210`d|\210\205g G\316V\205g c\210\317`S`\320 $\210
\306\223\210
b**\207" [isearch-other-end before found 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 orig text] 6 (#$ . 26718)])
#@67 Make sure the old history file is at the beginning of the buffer.
(defalias 'eshell-prepare-for-search #[nil "\302e\303\"?\205 \212eb\210\304`\305\"\306 !\210\307e\310#*\207" [end eshell-history-file-name get-text-property history copy-marker t insert-file-contents set-text-properties (history t invisible t)] 4 (#$ . 27324)])
#@62 Do incremental regexp search backward through past commands.
(defalias 'eshell-isearch-backward #[(&optional invert) "\304\305\306 \210db\210\n`\305\223\210`d|\210*\307 \304\310#\207" [end inhibit-read-only eshell-last-output-end invert t nil eshell-prepare-for-search isearch-mode eshell-return-to-prompt] 4 (#$ . 27661) nil])
#@62 Do incremental regexp search backward through past commands.
(defalias 'eshell-isearch-repeat-backward #[(&optional invert) "\303dS\304\"\211\203 b\210 \203 \305\210\202 \306u\210 \307 )\207" [old-pos invert isearch-forward get-text-property last-search-pos nil -1 isearch-search-and-update] 4 (#$ . 27997) nil])
#@62 Do incremental regexp search backward through past commands.
(defalias 'eshell-isearch-forward #[nil "\300\301!\207" [eshell-isearch-backward t] 2 (#$ . 28323) nil])
#@62 Do incremental regexp search backward through past commands.
(defalias 'eshell-isearch-repeat-forward #[nil "\300\301!\207" [eshell-isearch-repeat-backward t] 2 (#$ . 28495) nil])
(defalias 'eshell-isearch-cancel #[nil "b\210`d|\210\301\302!\207" [eshell-last-output-end call-interactively isearch-cancel] 2 nil nil])
(defalias 'eshell-isearch-abort #[nil "b\210`d|\210\301\302!\207" [eshell-last-output-end call-interactively isearch-abort] 2 nil nil])
(defalias 'eshell-isearch-delete-char #[nil "\212\300 )\207" [isearch-delete-char] 1 nil nil])
(defalias 'eshell-isearch-return #[nil "\300 \210\301 \207" [isearch-done eshell-send-input] 1 nil nil])
(provide 'em-hist)