# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822857264 0
# Node ID 83e1b1f5ce8f40d0132da0bebd9d564049f22b29
# Parent  20c5a9797aa848687860b22786f3dae37cbf49f4
(list-directory): Set default-directory better if the
argument is a directory's file name.

diff -r 20c5a9797aa8 -r 83e1b1f5ce8f lisp/files.el
--- a/lisp/files.el	Sun Jan 28 07:10:18 1996 +0000
+++ b/lisp/files.el	Sun Jan 28 19:27:44 1996 +0000
@@ -2536,7 +2536,10 @@
       (terpri)
       (save-excursion
 	(set-buffer "*Directory*")
-	(setq default-directory (file-name-directory dirname))
+	(setq default-directory
+	      (if (file-directory-p dirname)
+		  (file-name-as-directory dirname)
+		(file-name-directory dirname)))
 	(let ((wildcard (not (file-directory-p dirname))))
 	  (insert-directory dirname switches wildcard (not wildcard)))))))