Gecko [ 122.154.134.11 ]

Name	Size	Permission
em-alias.elc	6.43 KB	-rw-r--r--
em-banner.elc	1.8 KB	-rw-r--r--
em-basic.elc	4.29 KB	-rw-r--r--
em-cmpl.elc	12.01 KB	-rw-r--r--
em-dirs.elc	16.05 KB	-rw-r--r--
em-glob.elc	8.89 KB	-rw-r--r--
em-hist.elc	28.77 KB	-rw-r--r--
em-ls.elc	26.32 KB	-rw-r--r--
em-pred.elc	15.71 KB	-rw-r--r--
em-prompt.elc	5.54 KB	-rw-r--r--
em-rebind.elc	7.59 KB	-rw-r--r--
em-script.elc	4.05 KB	-rw-r--r--
em-smart.elc	9.01 KB	-rw-r--r--
em-term.elc	3.7 KB	-rw-r--r--
em-unix.elc	34.76 KB	-rw-r--r--
em-xtra.elc	4.3 KB	-rw-r--r--
esh-arg.elc	10.52 KB	-rw-r--r--
esh-cmd.elc	38.67 KB	-rw-r--r--
esh-ext.elc	10.16 KB	-rw-r--r--
esh-groups.el	7.49 KB	-rw-r--r--
esh-io.elc	13.65 KB	-rw-r--r--
esh-mode.elc	29.36 KB	-rw-r--r--
esh-module.elc	2.76 KB	-rw-r--r--
esh-opt.elc	5.91 KB	-rw-r--r--
esh-proc.elc	16.39 KB	-rw-r--r--
esh-test.elc	6.82 KB	-rw-r--r--
esh-util.elc	21.43 KB	-rw-r--r--
esh-var.elc	15.01 KB	-rw-r--r--
eshell.elc	8.16 KB	-rw-r--r--

Code Editor : esh-util.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:11 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/eshell/esh-util.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`esh-util.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'eshell-util nil "This is general utility code, meant for use by Eshell itself." :tag "General utilities" :group 'eshell)
#@257 *If non-nil, the string representation of t is 't'.
If nil, t will be represented only in the exit code of the function,
and not printed as a string.  This causes Lisp functions to behave
similarly to external commands, as far as successful result output.
(custom-declare-variable 'eshell-stringify-t 't '(#$ . -759) :type 'boolean :group 'eshell-util)
#@57 *If non-nil, the name of the group file on your system.
(custom-declare-variable 'eshell-group-file '"/etc/group" '(#$ . -1118) :type '(choice (const :tag "No group file" nil) file) :group 'eshell-util)
#@58 *If non-nil, the name of the passwd file on your system.
(custom-declare-variable 'eshell-passwd-file '"/etc/passwd" '(#$ . -1327) :type '(choice (const :tag "No passwd file" nil) file) :group 'eshell-util)
#@35 *The name of the /etc/hosts file.
(custom-declare-variable 'eshell-hosts-file '"/etc/hosts" '(#$ . -1540) :type '(choice (const :tag "No hosts file" nil) file) :group 'eshell-util)
#@108 *If non-nil, Eshell will handle errors itself.
Setting this to nil is offered as an aid to debugging only.
(custom-declare-variable 'eshell-handle-errors 't '(#$ . -1728) :type 'boolean :group 'eshell-util)
#@60 *The file-modes value to use for creating "private" files.
(custom-declare-variable 'eshell-private-file-modes '384 '(#$ . -1941) :type 'integer :group 'eshell-util)
#@66 *The file-modes value to use for creating "private" directories.
(custom-declare-variable 'eshell-private-directory-modes '448 '(#$ . -2113) :type 'integer :group 'eshell-util)
#@51 *Regular expression used to match tar file names.
(custom-declare-variable 'eshell-tar-regexp '"\\.t\$ar\\(\\.\\(gz\\|bz2\\|Z\$\\)?\\|gz\\|a[zZ]\\|z2\\)\\'" '(#$ . -2296) :type 'regexp :group 'eshell-util)
#@613 *If non-nil, converting arguments of numeric form to Lisp numbers.
Numeric form is tested using the regular expression
`eshell-number-regexp'.

NOTE: If you find that numeric conversions are intefering with the
specification of filenames (for example, in calling `find-file', or
some other Lisp function that deals with files, not numbers), add the
following in your .emacs file:

(put 'find-file 'eshell-no-numeric-conversions t)

Any function with the property `eshell-no-numeric-conversions' set to
a non-nil value, will be passed strings, not numbers, even when an
argument matches `eshell-number-regexp'.
(custom-declare-variable 'eshell-convert-numeric-arguments 't '(#$ . -2511) :type 'boolean :group 'eshell-util)
#@219 *Regular expression used to match numeric arguments.
If `eshell-convert-numeric-arguments' is non-nil, and an argument
matches this regexp, it will be converted to a Lisp number, using the
function `string-to-number'.
(custom-declare-variable 'eshell-number-regexp '"-?\$[0-9]*\\.\$?[0-9]+\$e[-0-9.]+\$?" '(#$ . -3242) :type 'regexp :group 'eshell-util)
#@68 *List of user/host/id strings, used to determine remote ownership.
(custom-declare-variable 'eshell-ange-ls-uids 'nil '(#$ . -3606) :type '(repeat (cons :tag "Host for User/UID map" (string :tag "Hostname") (repeat (cons :tag "User/UID List" (string :tag "Username") (repeat :tag "UIDs" string))))) :group 'eshell-util)
#@38 A cache to hold the names of groups.
(defvar eshell-group-names nil (#$ . 3932))
#@46 A timestamp of when the group file was read.
(defvar eshell-group-timestamp nil (#$ . 4019))
#@37 A cache to hold the names of users.
(defvar eshell-user-names nil (#$ . 4118))
#@45 A timestamp of when the user file was read.
(defvar eshell-user-timestamp nil (#$ . 4203))
#@49 A cache the names of frequently accessed hosts.
(defvar eshell-host-names nil (#$ . 4300))
#@46 A timestamp of when the hosts file was read.
(defvar eshell-host-timestamp nil (#$ . 4397))
#@56 Return non-nil if we are running under MS-DOS/Windows.
(defalias 'eshell-under-windows-p #[nil "\301>\207" [system-type (ms-dos windows-nt)] 2 (#$ . 4495)])
(put 'eshell-under-windows-p 'byte-optimizer 'byte-compile-inline-expand)
#@73 Like `condition-case', but only if `eshell-pass-through-errors' is nil.
(defalias 'eshell-condition-case '(macro . #[(tag form &rest handlers) "\203\f�\304	\nBBB\207\n\207" [eshell-handle-errors tag form handlers condition-case] 4 (#$ . 4733)]))
(put 'eshell-condition-case 'lisp-indent-function 2)
(defalias 'eshell-deftest '(macro . #[(module name label &rest forms) "\305\306!\205�\306 ?\205.�\307\310\311!P!\312\313\314	\315\n\316\317D\317	D\n\317\320\fBD\257\257)DD\207" [name fsym label module forms fboundp cl-compiling-file intern "eshell-test--" symbol-name eval-when-compile ignore defun nil eshell-run-test quote progn] 13]))
(put 'eshell-deftest 'lisp-indent-function 2)
#@290 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.
(defalias 'eshell-find-delimiter #[(open close &optional bound reverse-p backslash-p) "\212\306\206�d\n\203�`Sf=\202�\307f\f=\203'�\n\203$�\310\202%�\306u\210	\311V\203\n\2035�\312\2026�\313`\"\203\n\203F�`Sf\202H�\307f\307
\n\204|�\f=\203[�\203|�
\314=\203|�`Tf\211\203|�
\f=\204v�
=\203|�\306u\210\202\n\n\203\250�\f=\203\213�\203\250�
\f=\204\231�
=\203\250�`SSf\314=\203\250�\310u\210\202\n\f=\203\341�
\f=\203\n\204\333�\n\203\305�`SSf\202\310�`Tf\f=\203\333�\n\203\325�\310\202\326�\306u\210\202\n	S\202\n
\fU\203\367�	\n\203\361�\310\202\362�\306\\\202\n
U\203\n	\n\203\306\202\310\\*\n\203\310\202\306u\210\202'�	\311U\205)\n\203'`\202)`S+\207" [bound depth reverse-p close open nc 1 nil -1 0 > < 92 c backslash-p] 3 (#$ . 5431)])
#@56 Convert STRING into a more native looking Lisp object.
(defalias 'eshell-convert #[(string) ";\204�\207G\211\304U\203�\202F�	SH\305=\203#�\304	SO\306\307\"\2031�\310\307\"\202F�\n\203E�\306\311\312Q\"\203E�\313!\202F�)\207" [string len eshell-convert-numeric-arguments eshell-number-regexp 0 10 string-match "\n" split-string "\\`\\s-*" "\\s-*\\'" string-to-number] 5 (#$ . 6519)])
#@87 Return from LIST the N to M elements.
If N or M is nil, it means the end of the list.
(defalias 'eshell-sublist #[(l &optional n m) "\305!\306\203�	\233:\203�	\233\306\241\210\f\203\"�\f	\233\202*�	GS\307	!	*\207" [l a result m n copy-sequence nil last] 2 (#$ . 6923)])
#@38 Split a path into multiple subparts.
(defalias 'eshell-split-path #[(path) "G\306\211\307
\310>\203'�\f\311V\203'�\306H\312=\203'�\313H\312=\203'�\311\fW\203Y�H\312=\203R�\314\315#\204R�\nU\203G�\316\202L�\nTO	BTT\211\202(�\nW\203f�\nO	B
\310>\203\201�\317\320\321	!@\"\203\201�\321	!\321	!@\316P\240\210	\237,\207" [path parts li i len system-type 0 nil (ms-dos windows-nt) 2 47 1 get-text-property escaped "/" string-match "\\`[A-Za-z]:\\'" last] 5 (#$ . 7210)])
#@71 Make value a string.  If separated by newlines change them to spaces.
(defalias 'eshell-to-flat-string #[(value) "\302!\303\304	\"\203�\305\306\307\211	$\303\310	\"\203#�\305\311\307\211	$\202�	)\207" [value text eshell-stringify string-match "\n+\\'" replace-match "" t "\n+" " "] 5 (#$ . 7706)])
#@24 Iterate through a list
(defalias 'eshell-for '(macro . #[(for-var for-list &rest forms) "\303\304DC\305\304\303	\306BC\nBB\307BBBE\207" [for-list for-var forms let list-iter while ((car list-iter)) ((setq list-iter (cdr list-iter)))] 7 (#$ . 8016)]))
(put 'eshell-for 'lisp-indent-function 2)
#@63 Flatten any lists within ARGS, so that there are no sublists.
(defalias 'eshell-flatten-list #[(args) "\304C	\211\203-�\n@\211<\203 �A<\203 �\305!\244\210\202%�C\244\210)\nA\211\204	�)A)\207" [new-list args list-iter a t eshell-flatten-list] 4 (#$ . 8316)])
#@68 Remove occurring multiples in L.  You probably want to sort first.
(defalias 'eshell-uniqify-list #[(l) "\211\203*�	A\203#�	@	\211A@)\230\203#�	\211\211AA)\241\210\202�	A\211\204�)\207" [l m x] 3 (#$ . 8590)])
#@37 Convert OBJECT into a string value.
(defalias 'eshell-stringify #[(object) ";\203�\207<\203�\303=\204�\304!\211\305	GSO)\207\247\203'�\306!\207\307=\205/�\n??\2056�\304!\207" [object string eshell-stringify-t nil pp-to-string 0 number-to-string t] 4 (#$ . 8814)])
#@51 Convert each element of ARGS into a string value.
(defalias 'eshell-stringify-list #[(args) "\301\302\"\207" [args mapcar eshell-stringify] 3 (#$ . 9097)])
(put 'eshell-stringify-list 'byte-optimizer 'byte-compile-inline-expand)
#@61 Flatten and stringify all of the ARGS into a single string.
(defalias 'eshell-flatten-and-stringify #[(&rest args) "\301\302\303!\304#\207" [args mapconcat eshell-stringify eshell-flatten-list " "] 4 (#$ . 9333)])
(put 'eshell-flatten-and-stringify 'byte-optimizer 'byte-compile-inline-expand)
#@43 Say whether time T1 is less than time T2.
(defalias 'eshell-time-less-p #[(t1 t2) "@	@W\206�@	@U\205�A@	A@W\207" [t1 t2] 2 (#$ . 9634)])
(put 'eshell-time-less-p 'byte-optimizer 'byte-compile-inline-expand)
#@42 Convert TIME to a floating point number.
(defalias 'eshell-time-to-seconds #[(time) "\302@\303_\211A@)AA@\206�\304\305\245#\207" [time x + 65536.0 0 1000000.0] 6 (#$ . 9852)])
(put 'eshell-time-to-seconds 'byte-optimizer 'byte-compile-inline-expand)
#@64 Return a list of files in the given DIRECTORY matching REGEXP.
(defalias 'eshell-directory-files #[(regexp &optional directory) "\303\206�	\n#\207" [directory default-directory regexp directory-files] 4 (#$ . 10113)])
(put 'eshell-directory-files 'byte-optimizer 'byte-compile-inline-expand)
#@52 Return list of regexp and prefix arg using PROMPT.
(defalias 'eshell-regexp-arg #[(prompt) "\305	\306\211\211\303%\211\307\230\203�\211A@\240\202�\n\310\f!*D\207" [last-command prompt regexp minibuffer-history-search-history current-prefix-arg read-from-minibuffer nil "" prefix-numeric-value] 7 (#$ . 10414)])
#@30 Return a printable FILESIZE.
(defalias 'eshell-printable-size #[(filesize &optional human-readable block-size use-colors) "\306\206�\307!\n\203\247�	\nW\203-�\310	!\307U\203�\311\202\263�\203&�\312\202\263�\313\314	\"\202\263�	\n\245\211\nW\203K�	\315X\203D�\313\316	\"\202\263�\313\317	\"\202\263�	\n\245\211\nW\203y�	\320X\203b�\313\321	\"\202f�\313\322	\"
\203t�\323\307\fG\324\325\f%\210\f)\202\263�	\n\245\211\nW\205\263�	\326X\203\220�\313\327	\"\202\224�\313\330	\"
\203\242�\323\307\fG\324\331\f%\210\f)\202\263�\203\257�	\245\313\314	\")\207" [filesize size human-readable block-size str use-colors float 0 round "0" "1.0k" format "%.0f" 9.94 "%.1fk" "%.0fk" 9.94 "%.1fM" "%.0fM" put-text-property face bold 9.94 "%.1fG" "%.0fG" bold-italic] 7 (#$ . 10737)])
#@216 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.
(defalias 'eshell-winnow-list #[(entries exclude &optional predicates) "\306C\307\211\211\f<\204�\fC\306\f\211\203_�
@	\n\203+�\310\n	\"\204W�\211?	\203M�	@	!\203B�\306\202F�\307\211	A\211\2045�\n\203W�	C\244\210)
A\211\204�)\203n�\211\fA@)\202p�A,\207" [listified p valid flist entries list-iter t nil string-match entry exclude predicates x] 5 (#$ . 11525)])
#@35 Allow Emacs to redisplay buffers.
(defalias 'eshell-redisplay #[nil "\300\301\302\217\207" [nil (byte-code "\300\301\211\"\207" [sit-for 0] 3) ((error))] 3 (#$ . 12136)])
(put 'eshell-redisplay 'byte-optimizer 'byte-compile-inline-expand)
#@58 Return an alist correlating gids to group names in FILE.
(defalias 'eshell-read-passwd-file #[(file) "\304\305	!\203S�\306\307!r\nq\210\310\216\311	!\210eb\210m\204R�\312`\304\210`{\313\"\211\203K�@\203K�\3148\203K�\315\3148!\236\204K�\315\3148!@BB)\304y\210\202�+)\207" [names file #1=#:temp-buffer fields nil file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents split-string ":" 2 string-to-number] 4 (#$ . 12381)])
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-passwd #[(file result-var timestamp-var) "J\203.�	J\203.�	J\305\306\n!8\211@@W\206*�\f@@U\205*�\fA@A@W*\2039�\307\n!L\210	\310 L\210J\207" [result-var timestamp-var file t2 t1 5 file-attributes eshell-read-passwd-file current-time] 5 (#$ . 12913)])
#@50 Read the contents of /etc/group for group names.
(defalias 'eshell-read-group-names #[nil "\205	�\301\302\303#\207" [eshell-group-file eshell-read-passwd eshell-group-names eshell-group-timestamp] 4 (#$ . 13248)])
#@35 Return the user id for user NAME.
(defalias 'eshell-group-id #[(name) "\301\302 \"@\207" [name rassoc eshell-read-group-names] 3 (#$ . 13470)])
(put 'eshell-group-id 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return the group name for the given GID.
(defalias 'eshell-group-name #[(gid) "\301\302 \"A\207" [gid assoc eshell-read-group-names] 3 (#$ . 13688)])
(put 'eshell-group-name 'byte-optimizer 'byte-compile-inline-expand)
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-user-names #[nil "\205	�\301\302\303#\207" [eshell-passwd-file eshell-read-passwd eshell-user-names eshell-user-timestamp] 4 (#$ . 13914)])
#@35 Return the user id for user NAME.
(defalias 'eshell-user-id #[(name) "\301\302 \"@\207" [name rassoc eshell-read-user-names] 3 (#$ . 14134)])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put eshell-user-id byte-optimizer byte-compile-inline-expand defalias eshell-user-name user-login-name] 4)
#@45 Read in the hosts from the /etc/hosts file.
(defalias 'eshell-read-hosts-file #[(filename) "\303\304\305!r	q\210\306\216\307\n!\210eb\210\310\311\303\312#\203E�\313\314!\203(�\315\300\313\314!\"\210\313\316!\2035�\315\300\313\316!\"\210\313\317!\203�\315\300\313\317!\"\210\202�+\320\321\")\207" [hosts #1=#:temp-buffer eshell-hosts-file nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^\$\\S-+\$\\s-+\$\\S-+\$\$\\s-*\\(\\S-+\$\\)?" t match-string 1 add-to-list 2 4 sort string-lessp] 4 (#$ . 14444)])
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-hosts #[(file result-var timestamp-var) "J\203.�	J\203.�	J\305\306\n!8\211@@W\206*�\f@@U\205*�\fA@A@W*\2039�\307\n!L\210	\310 L\210J\207" [result-var timestamp-var file t2 t1 5 file-attributes eshell-read-hosts-file current-time] 5 (#$ . 15069)])
#@49 Read the contents of /etc/hosts for host names.
(defalias 'eshell-read-host-names #[nil "\205	�\301\302\303#\207" [eshell-hosts-file eshell-read-hosts eshell-host-names eshell-host-timestamp] 4 (#$ . 15402)])
(byte-code "\300\301!\204�\302\301\303\"\210\304\301\305\306#\210\300\307!\204\"�\302\307\310\"\210\304\307\305\306#\210\300\311!\204-�\302\311\312\"\210\300\207" [fboundp line-end-position defalias #[(&optional N) "\212\210`)\207" [N] 1] put byte-optimizer byte-compile-inline-expand line-beginning-position #[(&optional N) "\212\301!\210`)\207" [N beginning-of-line] 2] subst-char-in-string #[(fromchar tochar string &optional inplace) "G	\203\n�\202
�\306!\307V\203(�S\nH\f=\203�\n
I\210\202�\n*\207" [string inplace newstr i fromchar tochar copy-sequence 0] 3 "Replace FROMCHAR with TOCHAR in STRING each time it occurs.\nUnless optional argument INPLACE is non-nil, return a new string."]] 4)
#@52 Return an unrelated copy of `process-environment'.
(defalias 'eshell-copy-environment #[nil "\301\302\"\207" [process-environment mapcar concat] 3 (#$ . 16333)])
(put 'eshell-copy-environment 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return all of the subgroups of GROUPSYM.
(defalias 'eshell-subgroups #[(groupsym) "\304N\305C\211\203(�\n@\211A@)\304=\203!�	\n\211@@)C\244\210\nA\211\204�	A*\207" [groupsym subg subgroups x custom-group t] 3 (#$ . 16577)])
#@58 Evaluate, with file-modes set to MODES, the given FORMS.
(defalias 'eshell-with-file-modes '(macro . #[(modes &rest forms) "\302\303\304D\305\306	B\307BBF\207" [modes forms let ((modes (default-file-modes))) set-default-file-modes unwind-protect progn ((set-default-file-modes modes))] 6 (#$ . 16814)]))
#@45 Evaluate FORMS with private file modes set.
(defalias 'eshell-with-private-file-modes '(macro . #[(&rest forms) "\302	BB\207" [eshell-private-file-modes forms eshell-with-file-modes] 3 (#$ . 17125)]))
#@67 Make DIR with file-modes set to `eshell-private-directory-modes'.
(defalias 'eshell-make-private-directory #[(dir &optional parents) "\304 \305	!\210\306\216\307\n\"*\207" [modes eshell-private-directory-modes dir parents default-file-modes set-default-file-modes ((set-default-file-modes modes)) make-directory] 3 (#$ . 17333)])
(put 'eshell-make-private-directory 'byte-optimizer 'byte-compile-inline-expand)
#@53 Return the beginning of STRING, up to SUBLEN bytes.
(defalias 'eshell-substring #[(string sublen) "\205�G	V\203�\302	O\207\207" [string sublen 0] 3 (#$ . 17752)])
(byte-code "\300\301\302\303#\210\304\305!\204�\306\305\307\"\210\300\207" [put eshell-substring byte-optimizer byte-compile-inline-expand fboundp directory-files-and-attributes defalias #[(directory &optional full match nosort id-format) "\305!\306\307\310\311\n\f$\"*\207" [directory ange-cache full match nosort expand-file-name nil mapcar #[(file) "\302\303	\"!B\207" [file directory eshell-file-attributes expand-file-name] 5] directory-files] 7 "Return a list of names of files and their attributes in DIRECTORY.\nThere are three optional arguments:\nIf FULL is non-nil, return absolute file names.  Otherwise return names\n that are relative to the specified directory.\nIf MATCH is non-nil, mention only file names that match the regexp MATCH.\nIf NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n NOSORT is useful if you plan to sort the result yourself."]] 4)
#@67 Make sure to use the handler for `directory-file-and-attributes'.
(defalias 'eshell-directory-files-and-attributes #[(dir &optional full match nosort id-format) "\306!\307\310\"\211\204�\311\n\f
%\202,�	\310\n\f%\307\312\"
\313\314\"**\207" [dir dfh full match nosort id-format expand-file-name find-file-name-handler directory-files directory-files-and-attributes file-attributes mapcar #[(file) "	\203�\303\304\n\"!\202�\305\304\n\"!B\207" [file fah dir eshell-file-attributes expand-file-name file-attributes] 5] fah files] 7 (#$ . 18828)])
(defalias 'eshell-current-ange-uids #[nil "\305\306\"\205#�\307\310\"\307\311\"\312	\"\211\205\"�\fA\312\n\f\"A+\207" [default-directory host user eshell-ange-ls-uids host-users string-match "/\$[^@]+\$@\$[^:]+\$:" match-string 2 1 assoc] 4])
(byte-code "\300\301!\204�\302\303!\203�\304\301\303\"\210\300\207" [fboundp parse-time-string locate-library "parse-time" autoload] 3)
(defalias 'eshell-parse-ange-ls #[(dir) "\306\307\310!r	q\210\311\216\312\n\313\306#c\210eb\210\314\315!\203�\316y\210l\203&�\316y\210\314\317!\203\351�\320\316!\321\320\322!!\320\323!\320\324!&\321\320\325!!'\306\210`(\326 \210\327)(\330#\205]�`({)*\331\332!\203\234�\332\320\333!!\211+@\203\201�\325+\233\325\334\335 !8\240\210\202\223�+\336\240\210+A\336\240\210+AA\336\240\210\337\340+\")\202\243�\341\342*\n\"!,\306-\343\344*\"\203\276�\320\322*\"-\320\316*\"**\336H\345=\203\314�\330\202\316�-\f
&\306,\306'\306\211\257BB.\306y\210\202&�+)\207" [entry #1=#:temp-buffer dir perms links user nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# 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 2 3 4 5 beginning-of-line re-search-forward t fboundp parse-time-string 6 decode-time current-time 0 apply encode-time ange-ftp-file-modtime expand-file-name string-match "\$.+\$ -> \$.+\$" 100 group size eol directory-listing-before-filename-regexp name moment mtime symlink] 13])
#@70 Return the attributes of FILE, playing tricks if it's over ange-ftp.
(defalias 'eshell-file-attributes #[(file) "\306!\307\310\"\311	\204�\310!\202n�\307\312!\313\"\314=\203f�\315!\312!\316\305!\2038�\317\f\317
\"A\"A\n\204e�\320!\316\305!\203L�\nB
B\n\203e�\317\f\nA\"\211\203b�A\202d�\311)*\n\206n�	\310\"+\207" [file handler entry dir base ange-cache expand-file-name find-file-name-handler file-attributes nil file-name-directory directory-files ange-ftp-hook-function file-name-nondirectory boundp assoc eshell-parse-ange-ls fentry] 6 (#$ . 21010)])
(defalias 'eshell-copy-tree 'copy-tree)
#@67 If the `processp' function does not exist, PROC is not a process.
(defalias 'eshell-processp #[(proc) "\301\302!\205	�\302!\207" [proc fboundp processp] 2 (#$ . 21636)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell-processp byte-optimizer byte-compile-inline-expand provide esh-util] 4)

${this.title}

Code Editor : esh-util.elc