procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eshell/cat): Do a quick test if something is a regular file, before

Browse source 
checking if it is a directory or symlink. This avoids a call to
eshell-file-attributes, which can be expensive in some situations.
This commit is contained in:
John Wiegley 2001-10-17 02:00:20 +00:00
parent ef94bd99e4
commit 9f89e09863
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/eshell/em-unix.el
View file

@ -572,9 +572,12 @@ symlink, then revert to the system's definition of cat."
(if (or eshell-in-pipeline-p
(catch 'special
(eshell-for arg args
(unless (let ((attrs (eshell-file-attributes arg)))
(and attrs (memq (aref (nth 8 attrs) 0)
'(?d ?l ?-))))
(unless (or (and (stringp arg)
(> (length arg) 0)
(eq (aref arg 0) ?-))
(let ((attrs (eshell-file-attributes arg)))
(and attrs (memq (aref (nth 8 attrs) 0)
'(?d ?l ?-)))))
(throw 'special t)))))
(let ((ext-cat (eshell-search-path "cat")))
(if ext-cat