Mercurial > emacs

diff lisp/files.el @ 736:18b892513cb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Thu, 02 Jul 1992 22:11:40 +0000
parents ea0823fe7df5
children 0bb85f26b79c
line wrap: on
line diff
--- a/lisp/files.el	Thu Jul 02 02:36:29 1992 +0000
+++ b/lisp/files.el	Thu Jul 02 22:11:40 1992 +0000
@@ -1227,7 +1227,8 @@
 		 (with-output-to-temp-buffer "*Directory*"
 		   (buffer-disable-undo standard-output)
 		   (call-process "ls" nil standard-output nil
-				 "-l" file file-name)))
+				 (if (file-symlink-p file) "-lL" "-l")
+				 file file-name)))
 	     (yes-or-no-p (format "Recover auto save file %s? " file-name)))
 	   (switch-to-buffer (find-file-noselect file t))
 	   (let ((buffer-read-only nil))