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



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\331%\210\312\332\314\315\333DD\334\320\335%\210\336\332\304\337#\210\312\340\314\315\341DD\342\320\321%\210\312\343\314\315\344DD\345\320\346%\210\312\347\314\315\350DD\351\320\346%\210\312\352\314\315\353DD\354\355\356\320\357&\210\312\360\314\315\361DD\362\320\321%\210\312\363\314\315\364DD\365\320\357%\210\312\366\314\315\367DD\370\320\371%\207" [require seq custom-declare-group eshell-util nil "This is general utility code, meant for use by Eshell itself." :tag "General utilities" :group eshell custom-declare-variable eshell-stringify-t funcall function #[0 "\300\207" [t] 1 #1=""] "If non-nil, the string representation of t is \"t\".\nIf nil, t will be represented only in the exit code of the function,\nand not printed as a string.  This causes Lisp functions to behave\nsimilarly to external commands, as far as successful result output." :type boolean eshell-group-file #[0 "\300\207" ["/etc/group"] 1 #1#] "If non-nil, the name of the group file on your system." (choice (const :tag "No group file" nil) file) eshell-passwd-file #[0 "\300\207" ["/etc/passwd"] 1 #1#] "If non-nil, the name of the passwd file on your system." (choice (const :tag "No passwd file" nil) file) eshell-hosts-file #[0 "\300\207" ["/etc/hosts"] 1 #1#] "The name of the /etc/hosts file.\nUse `pcomplete-hosts-file' instead; this variable is obsolete and\nhas no effect." (choice (const :tag "No hosts file" nil) file) make-obsolete-variable "28.1" eshell-handle-errors #[0 "\300\207" [t] 1 #1#] "If non-nil, Eshell will handle errors itself.\nSetting this to nil is offered as an aid to debugging only." eshell-private-file-modes #[0 "\300\207" [384] 1 #1#] "The file-modes value to use for creating \"private\" files." integer eshell-private-directory-modes #[0 "\300\207" [448] 1 #1#] "The file-modes value to use for creating \"private\" directories." eshell-tar-regexp #[0 "\300\207" ["\\.t\\(ar\\(\\.\\(gz\\|bz2\\|xz\\|Z\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'"] 1 #1#] "Regular expression used to match tar file names." :version "24.1" regexp eshell-convert-numeric-arguments #[0 "\300\207" [t] 1 #1#] "If non-nil, converting arguments of numeric form to Lisp numbers.\nNumeric form is tested using the regular expression\n`eshell-number-regexp'.\n\nNOTE: If you find that numeric conversions are interfering with the\nspecification of filenames (for example, in calling `find-file', or\nsome other Lisp function that deals with files, not numbers), add the\nfollowing in your init file:\n\n  (put \\='find-file \\='eshell-no-numeric-conversions t)\n\nAny function with the property `eshell-no-numeric-conversions' set to\na non-nil value, will be passed strings, not numbers, even when an\nargument matches `eshell-number-regexp'." eshell-number-regexp #[0 "\300\207" ["-?\\([0-9]*\\.\\)?[0-9]+\\(e[-0-9.]+\\)?"] 1 #1#] "Regular expression used to match numeric arguments.\nIf `eshell-convert-numeric-arguments' is non-nil, and an argument\nmatches this regexp, it will be converted to a Lisp number, using the\nfunction `string-to-number'." eshell-ange-ls-uids #[0 "\300\207" [nil] 1 #1#] "List of user/host/id strings, used to determine remote ownership." (repeat (cons :tag "Host for User/UID map" (string :tag "Hostname") (repeat (cons :tag "User/UID List" (string :tag "Username") (repeat :tag "UIDs" string)))))] 8)
#@38 A cache to hold the names of groups.
(defvar eshell-group-names nil (#$ . 3569))
#@46 A timestamp of when the group file was read.
(defvar eshell-group-timestamp nil (#$ . 3656))
#@37 A cache to hold the names of users.
(defvar eshell-user-names nil (#$ . 3755))
#@45 A timestamp of when the user file was read.
(defvar eshell-user-timestamp nil (#$ . 3840))
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\210\300\310\311\303#\210\304\211\203W\211@\310
N\203P\311
N\204P\305\311\310N#\210
A\266\202\2026\210\306\310\311\307#\207" [defvaralias eshell-host-names pcomplete--host-name-cache nil (saved-value saved-variable-comment) put make-obsolete-variable "28.1" eshell-host-timestamp pcomplete--host-name-cache-timestamp] 7)
#@56 Return non-nil if we are running under MS-DOS/Windows.
(defalias 'eshell-under-windows-p #[0 "\301>\207" [system-type (ms-dos windows-nt)] 2 (#$ . 4397)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-under-windows-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@145 If `eshell-handle-errors' is non-nil, this is `condition-case'.
Otherwise, evaluates FORM with no error handling.

(fn TAG FORM &rest HANDLERS)
(defalias 'eshell-condition-case '(macro . #[642 "\203\f\301BBB\207
\207" [eshell-handle-errors condition-case-unless-debug] 7 (#$ . 4708)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-condition-case lisp-indent-function 2 put edebug-form-spec (sexp form &rest form)] 5)
#@345 From point, find the CLOSE delimiter corresponding to OPEN.
The matching is bounded by BOUND.
If REVERSE-P is non-nil, process the region backwards.
If BACKSLASH-P is non-nil, and OPEN and CLOSE are the same character,
then quoting is done by a backslash, rather than a doubled delimiter.

(fn OPEN CLOSE &optional BOUND REVERSE-P BACKSLASH-P)
(defalias 'eshell-find-delimiter #[1282 "\212\300\206d\203`Sf=\202\301f=\203'\203$\302\202%\300u\210
\303V\2031
\2035\304\2026\305`\"\2031
\203F`Sf\202H\301f\301\204}=\203Y\203}
\306=\203}`Tf\211\262\203}\211	=\204v\211=\203}\300u\266\202#
\203\257=\203\215\203\257
	=\204\233
=\203\257`S\206\241`Sf\306=\203\257\302u\266\202#
=\203\362
	=\203!
\204\351\203\321`S\206\314`Sf\202\324`Tf	=\203\351\203\342\302\202\343\300u\266\202#
S\262\266\202#

	U\203\f
\203
\302\202
\300\\\262\266\202#

U\203!
\203
\300\202
\302\\\262\266\203+
\302\202,
\300u\210\202'
\303U\205C
\203A
`\266\202\202E
`S\266\202)\207" [1 nil -1 0 > < 92] 11 (#$ . 5165)])
#@69 Convert STRING into a more native looking Lisp object.

(fn STRING)
(defalias 'eshell-convert #[257 "\211;\204\207\211G\211\302U\203
\207

SH\303=\203 
\302SO\262\304\305\"\203,\306\305\"\207\203>\307\310	\311Q\"\203>\312!\207
\207" [eshell-convert-numeric-arguments eshell-number-regexp 0 10 string-search "\n" split-string string-match "\\`\\s-*" "\\s-*\\'" string-to-number] 6 (#$ . 6256)])
#@113 Content of $PATH.
It might be different from (getenv "PATH"), when
`default-directory' points to a remote host.
(defvar eshell-path-env (getenv "PATH") (#$ . 6672))
(make-variable-buffer-local 'eshell-path-env)
#@66 Return $PATH as a list.
Add the current directory on MS-Windows.
(defalias 'eshell-get-path #[0 "\303\304>\203\305	\nQ\202\n!\207" [system-type path-separator eshell-path-env eshell-parse-colon-path (ms-dos windows-nt) "."] 4 (#$ . 6889)])
#@116 Split string with `parse-colon-path'.
Prepend remote identification of `default-directory', if any.

(fn PATH-ENV)
(defalias 'eshell-parse-colon-path #[257 "\301!\211\203\302\303\304\"\305!\"\207\305!\207" [default-directory file-remote-p mapcar make-closure #[257 "\300
P\207" [V0] 3 "\n\n(fn X)"] parse-colon-path] 6 (#$ . 7141)])
#@49 Split a path into multiple subparts.

(fn PATH)
(defalias 'eshell-split-path #[257 "\211G\301\211\302\303>\203$\304V\203$\301H\305=\203$\306H\305=\203$\304\262W\203YH\305=\203R\307\310#\204R
U\203E\311\202JTO
B\262
T\262T\262\202$
W\203gO
B\262
\303>\203\202\312\313\314!@\"\203\202\314
!\314!@\311P\240\210\211\237\207" [system-type 0 nil (ms-dos windows-nt) 2 47 1 get-text-property escaped "/" string-match "\\`[A-Za-z]:\\'" last] 9 (#$ . 7486)])
#@83 Make value a string.  If separated by newlines change them to spaces.

(fn VALUE)
(defalias 'eshell-to-flat-string #[257 "\300
!\301\302\"\203\303\304\305\211$\262
\301\306\"\203$\303\307\305\211$\262
\202\207" [eshell-stringify string-match "\n+\\'" replace-match "" t "\n+" " "] 7 (#$ . 7982)])
#@60 Iterate through a list.

(fn FOR-VAR FOR-LIST &rest FORMS)
(defalias 'eshell-for '(macro . #[642 "\300\301DC\302\301\300\303BCBB\304BBBE\207" [let list-iter while ((car list-iter)) ((setq list-iter (cdr list-iter)))] 10 (#$ . 8294)]))
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\310#\207" [make-obsolete eshell-for dolist "24.1" defalias eshell-flatten-list flatten-tree nil "27.1"] 4)
#@50 Convert OBJECT into a string value.

(fn OBJECT)
(defalias 'eshell-stringify #[257 "\211;\203\207\211<\203\211\203\301
!\211\302GSO\207\211\247\203\"\303
!\207\211\304=\205*??\2051\301
!\207" [eshell-stringify-t pp-to-string 0 number-to-string t] 5 (#$ . 8714)])
#@62 Convert each element of ARGS into a string value.

(fn ARGS)
(defalias 'eshell-stringify-list #[257 "\300\301\"\207" [mapcar eshell-stringify] 4 (#$ . 8994)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-stringify-list speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@78 Flatten and stringify all of the ARGS into a single string.

(fn &rest ARGS)
(defalias 'eshell-flatten-and-stringify #[128 "\300\301\302!\303#\207" [mapconcat eshell-stringify flatten-tree " "] 5 (#$ . 9307)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-flatten-and-stringify speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@97 Return a list of files in the given DIRECTORY matching REGEXP.

(fn REGEXP &optional DIRECTORY)
(defalias 'eshell-directory-files #[513 "\301
\206#\207" [default-directory directory-files] 6 (#$ . 9678)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-directory-files speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@65 Return list of regexp and prefix arg using PROMPT.

(fn PROMPT)
(defalias 'eshell-regexp-arg #[257 "\303
\304\211\211\301%\211\305\230\203	\211A@\240\202\211\306\n!)D\207" [last-command minibuffer-history-search-history current-prefix-arg read-from-minibuffer nil "" prefix-numeric-value] 7 (#$ . 10042)])
#@92 Return a printable FILESIZE.

(fn FILESIZE &optional HUMAN-READABLE BLOCK-SIZE USE-COLORS)
(defalias 'eshell-printable-size #[1025 "\300\206\301!\203\225\211W\203&\302
!\301U\203\303\207\203!\304\207\305\306\"\207\211\245\262
\211W\203A\211\307X\203<\305\310\"\207\305\311\"\207\211\245\262
\211W\203k\211\307X\203Y\305\312\"\202]\305\313\"\203j\314\301G\315\316%\210\207\211\245\262
\211W\205\242\211\307X\203\203\305\317\"\202\207\305\320\"\203\224\314\301G\315\321%\210\207\203\236\211\245\262
\305\306\"\207" [float 0 round "0" "1.0k" format "%.0f" 9.94 "%.1fk" "%.0fk" "%.1fM" "%.0fM" put-text-property face bold "%.1fG" "%.0fG" bold-italic] 12 (#$ . 10360)])
#@259 Pare down the ENTRIES list using the EXCLUDE regexp, and PREDICATES.
The original list is not affected.  If the result is only one element
long, it will be returned itself, rather than returning a one-element
list.

(fn ENTRIES EXCLUDE &optional PREDICATES)
(defalias 'eshell-winnow-list #[770 "\300C\301\211\211<\204C\262\300\262
\211\203^\211@\203(\302\"\204W\262?\262\203N@
!\203A\300\262\202G\301\262\301\262A\262\2020\203W
C\244\210
A\266\202\202\210\211\203gA@\207A\207" [t nil string-match] 12 (#$ . 11076)])
#@35 Allow Emacs to redisplay buffers.
(defalias 'eshell-redisplay #[0 "\3001\n\301\302\211\"0\207\210\303\207" [(error) sit-for 0 nil] 3 (#$ . 11639)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-redisplay speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@69 Return an alist correlating gids to group names in FILE.

(fn FILE)
(defalias 'eshell-read-passwd-file #[257 "\300\301!\203V\302\303\304\"r\211q\210\305\306\"\216\307!\210eb\210m\204T\310`\300\210`{\311\"\211\203M\211@\203M\312
8\203M\313\3128!\236\204M\313\3128!
@BB\262\210\300y\210\202*\210\207" [nil file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents split-string ":" 2 string-to-number] 7 (#$ . 11936)])
#@86 Read the contents of /etc/passwd for user names.

(fn FILE RESULT-VAR TIMESTAMP-VAR)
(defalias 'eshell-read-passwd #[771 "
J\203\211J\203\300
J\301!\302
8\262
\"\203$
\303!L\210\211\304 L\210
J\207" [time-less-p file-attributes 5 eshell-read-passwd-file current-time] 8 (#$ . 12466)])
#@50 Read the contents of /etc/group for group names.
(defalias 'eshell-read-group-names #[0 "\205	\301\302\303#\207" [eshell-group-file eshell-read-passwd eshell-group-names eshell-group-timestamp] 4 (#$ . 12764)])
#@46 Return the user id for user NAME.

(fn NAME)
(defalias 'eshell-group-id #[257 "\300
\301 \"@\207" [rassoc eshell-read-group-names] 4 (#$ . 12984)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-group-id speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Return the group name for the given GID.

(fn GID)
(defalias 'eshell-group-name #[257 "\300
\301 \"A\207" [assoc eshell-read-group-names] 4 (#$ . 13279)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-group-name speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-user-names #[0 "\205	\301\302\303#\207" [eshell-passwd-file eshell-read-passwd eshell-user-names eshell-user-timestamp] 4 (#$ . 13583)])
#@46 Return the user id for user NAME.

(fn NAME)
(defalias 'eshell-user-id #[257 "\300
\301 \"@\207" [rassoc eshell-read-user-names] 4 (#$ . 13801)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\307\312\311\"\210\307\313\311\"\210\314\315\310\316#\210\317\315\310\320#\210\314\321\312\316#\210\317\321\312\320#\210\314\322\313\316#\210\317\322\313\320#\207" [function-put eshell-user-id speed -1 put byte-optimizer byte-compile-inline-expand autoload pcomplete-read-hosts-file "pcomplete" pcomplete-read-hosts pcomplete-read-host-names defalias eshell-read-hosts-file nil make-obsolete "28.1" eshell-read-hosts eshell-read-host-names] 5)
#@52 Return an unrelated copy of `process-environment'.
(defalias 'eshell-copy-environment #[0 "\301\302\"\207" [process-environment mapcar concat] 3 (#$ . 14465)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-copy-environment speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@57 Return all of the subgroups of GROUPSYM.

(fn GROUPSYM)
(defalias 'eshell-subgroups #[257 "\211\300N\301C
\203 
@A@\300=\203\211@@C\244\210
A\262\202\211A\207" [custom-group t] 5 (#$ . 14781)])
#@82 Evaluate, with file-modes set to MODES, the given FORMS.

(fn MODES &rest FORMS)
(defalias 'eshell-with-file-modes '(macro . #[385 "\300BB\207" [with-file-modes] 5 (#$ . 14988)]))
(make-obsolete 'eshell-with-file-modes 'with-file-modes "25.1")
#@63 Evaluate FORMS with private file modes set.

(fn &rest FORMS)
(defalias 'eshell-with-private-file-modes '(macro . #[128 "\301BB\207" [eshell-private-file-modes with-file-modes] 4 (#$ . 15240)]))
#@95 Make DIR with file-modes set to `eshell-private-directory-modes'.

(fn DIR &optional PARENTS)
(defalias 'eshell-make-private-directory #[513 "\301 \302\303\"\216\304!\210\305\")\207" [eshell-private-directory-modes default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes make-directory] 6 (#$ . 15443)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-make-private-directory speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@73 Return the beginning of STRING, up to SUBLEN bytes.

(fn STRING SUBLEN)
(defalias 'eshell-substring #[514 "
\205
G
V\203
\300O\207
\207" [0] 5 (#$ . 15962)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put eshell-substring speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@116 Make sure to use the handler for `directory-files-and-attributes'.

(fn DIR &optional FULL MATCH NOSORT ID-FORMAT)
(defalias 'eshell-directory-files-and-attributes #[1281 "\300!\301
\302\"\303\230\203\304
$\305\306\307\"\"\207\310
%\207" [expand-file-name file-remote-p method "ftp" directory-files mapcar make-closure #[257 "\211\301\302\300\"!B\207" [V0 eshell-file-attributes expand-file-name] 6 "\n\n(fn FILE)"] directory-files-and-attributes] 12 (#$ . 16274)])
(defalias 'eshell-current-ange-uids #[0 "\302\303\"\205\"\304\305\"\304\306\"\307	\"\211\205 \211A\262
\307\"A\266\203\207" [default-directory eshell-ange-ls-uids string-match "/\\([^@]+\\)@\\([^:]+\\):" match-string 2 1 assoc] 6])
(autoload 'parse-time-string "parse-time")
#@12 

(fn DIR)
(defalias 'eshell-parse-ange-ls #[257 "\305\306!\210\305\307!\210@\3108\3118\3128F\313\314\211
\315\316\317\"r\211q\210\320\321\"\216\322\323\314#c\210eb\210\324\325!\203>\326y\210l\203E\326y\210\324\327!\203\357\330\326!\331\330\311!!\330\310!\330\312!\331\330\332!!\333 \320\334\"\216\314\210`\335 \210\336\f\317#\205w`
{\262
)\262
\337\330\340!!\211@\203\224\332
\233\211\332\341 8\240\266\202\247\211\342\240\210\211A\211\342\240\266\211AA\211\342\240\266\343
!\262
\314\344\345\"\203\300\330\311\"\262
\330\326\"\262\342H\346=\203\316\317\202\317
\314\314\314\211\257B\nB\262\n\266\314y\210\202E*\210+\207" [tramp-file-name-structure ange-ftp-ftp-name-res ange-ftp-ftp-name-arg ange-ftp-name-format directory-listing-before-filename-regexp require ange-ftp tramp 3 2 4 "" nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] ange-ftp-ls "-la" looking-at "^total [0-9]+$" 1 "\\([dlscb-][rwxst-]+\\)\\s-*\\([0-9]+\\)\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\([0-9]+\\)\\s-+\\(.*\\)" match-string string-to-number 5 match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] beginning-of-line re-search-forward parse-time-string 6 decode-time 0 encode-time string-match "\\(.+\\) -> \\(.+\\)" 100] 26 (#$ . 17049)])
#@268 Return the attributes of FILE, playing tricks if it's over ange-ftp.
The optional argument ID-FORMAT specifies the preferred uid and
gid format.  Valid values are `string' and `integer', defaulting to
`integer'.  See `file-attributes'.

(fn FILE &optional ID-FORMAT)
(defalias 'eshell-file-attributes #[513 "\300!\301\302\303\"\304\230\203<\305!\306!
\307\230\203\310\262\311
!\262\203:\312A\"\211\2036\211A\262\210\202:\301\262\210\207\313\"\207" [expand-file-name nil file-remote-p method "ftp" file-name-nondirectory file-name-directory "" "." eshell-parse-ange-ls assoc file-attributes] 9 (#$ . 18405)])
#@78 If the `processp' function does not exist, PROC is not a process.

(fn PROC)
(defalias 'eshell-processp #[257 "\300\301!\205	\301
!\207" [fboundp processp] 3 (#$ . 19039)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312#\210\313\310\311\314#\210\307\315\311\312#\210\313\315\311\314#\210\307\316\317\312#\210\313\316\317\314#\210\307\320\321\312#\210\313\320\321\314#\207" [function-put eshell-processp speed -1 put byte-optimizer byte-compile-inline-expand defalias eshell-uniquify-list seq-uniq nil make-obsolete "28.1" eshell-uniqify-list eshell-copy-tree copy-tree eshell-user-name user-login-name] 5)
#@109 Return from LIST the N to M elements.
If N or M is nil, it means the end of the list.

(fn L &optional N M)
(defalias 'eshell-sublist #[769 "\300T#\207" [seq-subseq] 7 (#$ . 19673)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete eshell-sublist seq-subseq "28.1" provide esh-util] 4)