mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(dired-mode): Don't change the value of case-fold-search.

Browse source 
(dired-build-subdir-alist): Call `expand-file-name' to clean up
the subdirectory title (removing extra "./").
This commit is contained in:
Brian Fox 1993-09-21 07:12:36 +00:00
parent 4b00edc888
commit 3222085ea2
1 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/dired.el
View file

@ -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