From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 7 Jun 2004 18:29:14 +0000 (+0000)
Subject: (dired-undo): Call `dired-build-subdir-alist'.
X-Git-Tag: ttn-vms-21-2-B4~5888
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=487327a9ef14093f5d793a14090c3edda146fe90;p=emacs.git

(dired-undo): Call `dired-build-subdir-alist'.
Limit scope of `buffer-read-only' binding.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd90663c608..fc3eae5e813 100644
--- 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 589e1fa0489..acf5174170f 100644
--- 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.