diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-03-23 07:41:49 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-03-23 07:41:49 +0000 |
| commit | 632c2579f7522e8e760ef1342a01fa52d018f8ef (patch) | |
| tree | 61373c2800317911a21894f8926be7188b005e2f | |
| parent | 86dbbfc21182d7567aba74184505fea3b61e2796 (diff) | |
| download | emacs-632c2579f7522e8e760ef1342a01fa52d018f8ef.tar.gz | |
* files.el (insert-directory): Do chase symlinks before passing
the directory name to ls.
| -rw-r--r-- | lisp/files.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index f27ceff0506..dc2d39319ec 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1689,10 +1689,13 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." "-c" (concat insert-directory-program " -d " switches " " (file-name-nondirectory file)))) -;;; ;; Chase links till we reach a non-link. -;;; (let (symlink) -;;; (while (setq symlink (file-symlink-p file)) -;;; (setq file symlink))) + ;; Chase links till we reach a non-link. + ;; This used to be commented out, but Barry Margolin says: + ;; SunOS 4.1.3 (and SV and POSIX?) lists the link + ;; if we give a link to a directory - yuck! + (let (symlink) + (while (setq symlink (file-symlink-p file)) + (setq file symlink))) (call-process insert-directory-program nil t nil switches file)))))) (defun save-buffers-kill-emacs (&optional arg) |