# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 732872509 0
# Node ID e5a37be50b367a07bd663a21483413a28a4efff2
# Parent  ec4ffd67483dc235ea609af8fdea2a1f85b39369
	* files.el (insert-directory): Do chase symlinks before passing
	the directory name to ls.

diff -r ec4ffd67483d -r e5a37be50b36 lisp/files.el
--- a/lisp/files.el	Tue Mar 23 07:26:34 1993 +0000
+++ b/lisp/files.el	Tue Mar 23 07:41:49 1993 +0000
@@ -1689,10 +1689,13 @@
 			    "-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)