Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60a84987a6d0478a6be3f130ee339d5e9d323194..9af85501f46f79428c628686075f08a17c06257d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2007-06-23  Eli Zaretskii  <eliz@gnu.org>
 
        * ls-lisp.el (insert-directory): Don't treat FILE as a wildcard if
-       FILE exists as a directory.
+       FILE exists as a file.
 
 2007-06-22  Jay Belanger  <jay.p.belanger@gmail.com>
 

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 5d6d68e32711274c57718636dcd9b5ac21c301cd..461e1ea44cc12c6f69669babf8b782c1c1c65fb8 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -230,9 +230,9 @@ that work are: A a c i r S s t u U X g G B C R and F partly."
        ;; there is no wildcard, only a directory name.
        (if (and ls-lisp-support-shell-wildcards
                 (string-match "[[?*]" file)
-                ;; Prefer an existing directory to wildcards, like
+                ;; Prefer an existing file to wildcards, like
                 ;; dired-noselect does.
-                (not (file-directory-p file)))
+                (not (file-exists-p file)))
            (progn
              (or (not (eq (aref file (1- (length file))) ?/))
                  (setq file (substring file 0 (1- (length file)))))