From: Brian Fox Date: Tue, 21 Sep 1993 07:12:36 +0000 (+0000) Subject: (dired-mode): Don't change the value of case-fold-search. X-Git-Tag: emacs-19.34~11091 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3222085ea28076287dd7ea8d661ec4aafb9b007a;p=emacs.git (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 "./"). --- diff --git a/lisp/dired.el b/lisp/dired.el index df9c87a88af..8b592c3d915 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -928,7 +928,7 @@ Keybindings: (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 @@ Returns the new value of the alist." (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