summaryrefslogtreecommitdiff
path: root/lisp/eshell/em-pred.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2000-10-13 09:02:39 +0000
committerJohn Wiegley <johnw@newartisans.com>2000-10-13 09:02:39 +0000
commit8c6b1d83116d00e27f22e501e5ac4fea9a7ba182 (patch)
tree7f624b71b8c6ec4c388bc34b92a8ebe8d2fb20e5 /lisp/eshell/em-pred.el
parente2c06b17a94a7b06cd27b643f8d5118243f06969 (diff)
downloademacs-8c6b1d83116d00e27f22e501e5ac4fea9a7ba182.tar.gz
Added better remote directory support to Eshell, as well as a few bug
fixes. See the ChangeLog.
Diffstat (limited to 'lisp/eshell/em-pred.el')
-rw-r--r--lisp/eshell/em-pred.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el
index c3e3de5adbd..9708e2d793a 100644
--- a/lisp/eshell/em-pred.el
+++ b/lisp/eshell/em-pred.el
@@ -464,7 +464,7 @@ that 'ls -l' will show in the first column of its display. "
(forward-char)
(setq type ?%)))
`(lambda (file)
- (let ((attrs (file-attributes (directory-file-name file))))
+ (let ((attrs (eshell-file-attributes (directory-file-name file))))
(if attrs
(memq (aref (nth 8 attrs) 0)
,(if (eq type ?%)
@@ -489,7 +489,7 @@ that 'ls -l' will show in the first column of its display. "
(setq amount (string-to-number (match-string 0)))
(goto-char (match-end 0))
`(lambda (file)
- (let ((attrs (file-attributes file)))
+ (let ((attrs (eshell-file-attributes file)))
(if attrs
(,(if (eq qual ?-)
'<
@@ -518,7 +518,7 @@ that 'ls -l' will show in the first column of its display. "
(setq amount (* (string-to-number (match-string 0)) quantum))
(goto-char (match-end 0))
`(lambda (file)
- (let ((attrs (file-attributes file)))
+ (let ((attrs (eshell-file-attributes file)))
(if attrs
(,(if (eq qual ?-)
'<