# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1086632746 0
# Node ID 58340ec919e596f0cdc360675f8c95b4435f7c91
# Parent  bbba5d83d7d3682ec0019d4e39bbec9f6fd0c344
(dired-undo): Call `dired-build-subdir-alist'.
Limit scope of `buffer-read-only' binding.

diff -r bbba5d83d7d3 -r 58340ec919e5 lisp/dired.el
--- a/lisp/dired.el	Mon Jun 07 10:02:47 2004 +0000
+++ b/lisp/dired.el	Mon Jun 07 18:25:46 2004 +0000
@@ -1448,14 +1448,13 @@
 (defun dired-undo ()
   "Undo in a dired buffer.
 This doesn't recover lost files, it just undoes changes in the buffer itself.
-You can use it to recover marks, killed lines or subdirs.
-In the latter case, you have to do \\[dired-build-subdir-alist] to
-parse the buffer again."
+You can use it to recover marks, killed lines or subdirs."
   (interactive)
   (let (buffer-read-only)
-    (undo)
-    (message "Change in Dired buffer undone.
-Actual changes in files cannot be undone by Emacs.")))
+    (undo))
+  (dired-build-subdir-alist)
+  (message "Change in Dired buffer undone.
+Actual changes in files cannot be undone by Emacs."))
 
 (defun dired-next-line (arg)
   "Move down lines then position at filename.