Mercurial > emacs
comparison lisp/dired.el @ 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 | 05e7c4a4e123 |
| children | b4e36ff621b3 |
comparison
equal
deleted
inserted
replaced
| 95782:be5846252dfd | 95783:4a429fae9256 |
|---|---|
| 1042 (let ((indent-tabs-mode nil)) | 1042 (let ((indent-tabs-mode nil)) |
| 1043 (indent-rigidly opoint (point) 2))) | 1043 (indent-rigidly opoint (point) 2))) |
| 1044 ;; Insert text at the beginning to standardize things. | 1044 ;; Insert text at the beginning to standardize things. |
| 1045 (save-excursion | 1045 (save-excursion |
| 1046 (goto-char opoint) | 1046 (goto-char opoint) |
| 1047 (if (and (or hdr wildcard) (not (looking-at "^ /.*:$"))) | 1047 (if (and (or hdr wildcard) |
| 1048 (not (and (looking-at "^ \\(.*\\):$") | |
| 1049 (file-name-absolute-p (match-string 1))))) | |
| 1048 ;; Note that dired-build-subdir-alist will replace the name | 1050 ;; Note that dired-build-subdir-alist will replace the name |
| 1049 ;; by its expansion, so it does not matter whether what we insert | 1051 ;; by its expansion, so it does not matter whether what we insert |
| 1050 ;; here is fully expanded, but it should be absolute. | 1052 ;; here is fully expanded, but it should be absolute. |
| 1051 (insert " " (directory-file-name (file-name-directory dir)) ":\n")) | 1053 (insert " " (directory-file-name (file-name-directory dir)) ":\n")) |
| 1052 (when wildcard | 1054 (when wildcard |