# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1213125042 0
# Node ID 4a429fae9256afc5c8d000f217fb1243f6e6851a
# Parent  be5846252dfdc932932f676cb9771332abfdd536
(dired-insert-directory): Don't assume Unix-style dir names.

diff -r be5846252dfd -r 4a429fae9256 lisp/ChangeLog
--- 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):
diff -r be5846252dfd -r 4a429fae9256 lisp/dired.el
--- 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.