Mercurial > emacs
changeset 95783:4a429fae9256
(dired-insert-directory): Don't assume Unix-style dir names.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 10 Jun 2008 19:10:42 +0000 |
| parents | be5846252dfd |
| children | ebad352d55ce |
| files | lisp/ChangeLog lisp/dired.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 10 18:49:18 2008 +0000 +++ b/lisp/ChangeLog Tue Jun 10 19:10:42 2008 +0000 @@ -1,5 +1,7 @@ 2008-06-10 Stefan Monnier <monnier@iro.umontreal.ca> + * dired.el (dired-insert-directory): Don't assume Unix-style dir names. + * subr.el (momentary-string-display): Use an overlay. * progmodes/compile.el (compilation-mode):
--- a/lisp/dired.el Tue Jun 10 18:49:18 2008 +0000 +++ b/lisp/dired.el Tue Jun 10 19:10:42 2008 +0000 @@ -1044,7 +1044,9 @@ ;; Insert text at the beginning to standardize things. (save-excursion (goto-char opoint) - (if (and (or hdr wildcard) (not (looking-at "^ /.*:$"))) + (if (and (or hdr wildcard) + (not (and (looking-at "^ \\(.*\\):$") + (file-name-absolute-p (match-string 1))))) ;; Note that dired-build-subdir-alist will replace the name ;; by its expansion, so it does not matter whether what we insert ;; here is fully expanded, but it should be absolute.