# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 965904221 0
# Node ID df4c120d3d813ce45aa1d9ba5fb52aa60135e09d
# Parent  1f8280a188f2de18b5bc2e5649695ded22452b20
(recover-file): Call insert-directory instead of
invoking `ls' directly.

diff -r 1f8280a188f2 -r df4c120d3d81 lisp/files.el
--- a/lisp/files.el	Thu Aug 10 10:35:40 2000 +0000
+++ b/lisp/files.el	Thu Aug 10 10:43:41 2000 +0000
@@ -3030,12 +3030,15 @@
 	     (not (file-exists-p file-name)))
 	   (error "Auto-save file %s not current" file-name))
 	  ((save-window-excursion
-	     (if (not (memq system-type '(vax-vms windows-nt)))
-		 (with-output-to-temp-buffer "*Directory*"
-		   (buffer-disable-undo standard-output)
-		   (call-process "ls" nil standard-output nil
-				 (if (file-symlink-p file) "-lL" "-l")
-				 file file-name)))
+	     (with-output-to-temp-buffer "*Directory*"
+	       (buffer-disable-undo standard-output)
+	       (save-excursion
+		 (let ((switches dired-listing-switches))
+		   (if (file-symlink-p file)
+		       (setq switches (concat switches "L")))
+		   (set-buffer standard-output)
+		   (insert-directory file switches)
+		   (insert-directory file-name switches))))
 	     (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)