Mercurial > emacs
diff lisp/ls-lisp.el @ 81578:22fda78091af
(insert-directory): Don't treat FILE as a wildcard if FILE exists as
a directory.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 23 Jun 2007 09:45:41 +0000 |
parents | 3e2de8648d07 |
children | 0ef88721691e e870f4d7bcdb |
line wrap: on
line diff
--- a/lisp/ls-lisp.el Sat Jun 23 04:49:44 2007 +0000 +++ b/lisp/ls-lisp.el Sat Jun 23 09:45:41 2007 +0000 @@ -229,7 +229,10 @@ ;; `ls' don't mind, we certainly do, because it makes us think ;; there is no wildcard, only a directory name. (if (and ls-lisp-support-shell-wildcards - (string-match "[[?*]" file)) + (string-match "[[?*]" file) + ;; Prefer an existing directory to wildcards, like + ;; dired-noselect does. + (not (file-directory-p file))) (progn (or (not (eq (aref file (1- (length file))) ?/)) (setq file (substring file 0 (1- (length file)))))