/[emacs]/emacs/lisp/eshell/em-unix.el
ViewVC logotype

Diff of /emacs/lisp/eshell/em-unix.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18.2.4 by miles, Mon Oct 25 04:22:30 2004 UTC revision 1.18.2.5 by miles, Fri Oct 29 02:05:13 2004 UTC
# Line 799  external command." Line 799  external command."
799          (size 0.0))          (size 0.0))
800      (while entries      (while entries
801        (unless (string-match "\\`\\.\\.?\\'" (caar entries))        (unless (string-match "\\`\\.\\.?\\'" (caar entries))
802          (let* ((entry (concat path (char-to-string directory-sep-char)          (let* ((entry (concat path "/"
803                                (caar entries)))                                (caar entries)))
804                 (symlink (and (stringp (cadr (car entries)))                 (symlink (and (stringp (cadr (car entries)))
805                               (cadr (car entries)))))                               (cadr (car entries)))))

Legend:
Removed from v.1.18.2.4  
changed lines
  Added in v.1.18.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26