(dired-undo): Call `dired-build-subdir-alist'.

Limit scope of `buffer-read-only' binding.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd90663c60846645e7e575bc2f85c4e6a3ac970e..fc3eae5e813e16d5d2406a00a0bf685ba049a826 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-07  Luc Teirlinck  <teirllm@auburn.edu>
+
+       * dired.el (dired-undo): Call `dired-build-subdir-alist'.
+       Limit scope of `buffer-read-only' binding.
+
 2004-06-06  Emilio C. Lopes  <eclig@gmx.net>
 
        * eshell/esh-cmd.el (eshell/which): Respect commands quoted with

diff --git a/lisp/dired.el b/lisp/dired.el
index 589e1fa048976f109d0ec1803c39efe1a271d13e..acf5174170fdbef9a79ac5980484b6cb7a59ec81 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1448,14 +1448,13 @@ Keybindings:
 (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.