changeset 4760:f3808bb8a993

(dired-mode): Don't change the value of case-fold-search. (dired-build-subdir-alist): Call `expand-file-name' to clean up the subdirectory title (removing extra "./").

--- a/lisp/dired.el	Tue Sep 21 07:10:31 1993 +0000
+++ b/lisp/dired.el	Tue Sep 21 07:12:36 1993 +0000
@@ -928,7 +928,7 @@
   (dired-advertise)			; default-directory is already set
   (setq major-mode 'dired-mode
 	mode-name "Dired"
-	case-fold-search nil
+;;	case-fold-search nil
 	buffer-read-only t
 	selective-display t		; for subdirectory hiding
 	mode-line-buffer-identification '("Dired: %17b"))
@@ -1325,18 +1325,25 @@
   (interactive)
   (dired-clear-alist)
   (save-excursion
-    (let ((count 0))
+    (let ((count 0)
+	  (buffer-read-only nil)
+	  new-dir-name)
       (goto-char (point-min))
       (setq dired-subdir-alist nil)
       (while (re-search-forward dired-subdir-regexp nil t)
+	(save-excursion
+	  (goto-char (match-beginning 1))
+	  (setq new-dir-name
+		(expand-file-name (buffer-substring (point) (match-end 1))))
+	  (delete-region (point) (match-end 1))
+	  (insert new-dir-name))
 	(setq count (1+ count))
-	(dired-alist-add-1 (buffer-substring (match-beginning 1)
-					     (match-end 1))
-			 ;; Put subdir boundary between lines:
-			 (save-excursion
-			   (goto-char (match-beginning 0))
-			   (beginning-of-line)
-			   (point-marker))))
+	(dired-alist-add-1 new-dir-name
+			   ;; Place a sub directory boundary between lines.
+			   (save-excursion
+			     (goto-char (match-beginning 0))
+			     (beginning-of-line)
+			     (point-marker))))
       (if (> count 1)
 	  (message "Buffer includes %d directories" count))
       ;; We don't need to sort it because it is in buffer order per