Commit a65473ab authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix last change.

parent 2199cb47
2007-06-23 Eli Zaretskii <eliz@gnu.org> 2007-06-23 Eli Zaretskii <eliz@gnu.org>
* ls-lisp.el (insert-directory): Don't treat FILE as a wildcard if * 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> 2007-06-22 Jay Belanger <jay.p.belanger@gmail.com>
......
...@@ -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." ...@@ -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. ;; there is no wildcard, only a directory name.
(if (and ls-lisp-support-shell-wildcards (if (and ls-lisp-support-shell-wildcards
(string-match "[[?*]" file) (string-match "[[?*]" file)
;; Prefer an existing directory to wildcards, like ;; Prefer an existing file to wildcards, like
;; dired-noselect does. ;; dired-noselect does.
(not (file-directory-p file))) (not (file-exists-p file)))
(progn (progn
(or (not (eq (aref file (1- (length file))) ?/)) (or (not (eq (aref file (1- (length file))) ?/))
(setq file (substring file 0 (1- (length file))))) (setq file (substring file 0 (1- (length file)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment