From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Sat, 27 May 2023 00:26:09 +0000 (+0200)
Subject: A better fix for "Fix cancellation of Wdired"
X-Git-Tag: emacs-29.0.92~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3be33aff963;p=emacs.git

A better fix for "Fix cancellation of Wdired"

* lisp/wdired.el (wdired-abort-changes): Call
`dired-build-subdir-alist' instead of `dired-revert'.
(Bug#63676)
---

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 9952da71078..5c745cc9aab 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -470,9 +470,8 @@ non-nil means return old filename."
     (insert wdired--old-content)
     (goto-char wdired--old-point))
   (wdired-change-to-dired-mode)
-  ;; Make sure the display is in synch, and all the variables are set
-  ;; correctly.
-  (dired-revert)
+  ;; Update markers in `dired-subdir-alist'
+  (dired-build-subdir-alist)
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
   (message "Changes aborted"))