mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(dired-build-subdir-alist): Fix previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 2006-10-02 03:08:47 +00:00
parent 1f8a132d06
commit 7de3f9a41e
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2006-10-01 Chris Moore <christopher.ian.moore@gmail.com> (tiny change)
* dired.el (dired-build-subdir-alist): Fix previous change.
2006-10-01 Johan Bockg,Ae(Brd <bojohan+mail@dd.chalmers.se>
* simple.el (undo-elt-crosses-region): Fix the inequalities.

16
lisp/dired.el
View File

@ -2225,14 +2225,14 @@ instead of `dired-actual-switches'."
(substring new-dir-name (match-end 0)))
(expand-file-name new-dir-name))))
(delete-region (point) (match-end 1))
(insert new-dir-name)))
(setq count (1+ count))
(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))))
(insert new-dir-name))
(setq count (1+ count))
(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 (and (> count 1) (interactive-p))
(message "Buffer includes %d directories" count)))
;; We don't need to sort it because it is in buffer order per