Fix cancellation of Wdired
* lisp/wdired.el (wdired-abort-changes): Call 'dired-revert'. Patch by Stephen Berman <stephen.berman@gmx.net>. (Bug#63676)
This commit is contained in:
parent
916c2a19bd
commit
b6b384023a
1 changed files with 3 additions and 0 deletions
|
@ -470,6 +470,9 @@ non-nil means return old filename."
|
||||||
(insert wdired--old-content)
|
(insert wdired--old-content)
|
||||||
(goto-char wdired--old-point))
|
(goto-char wdired--old-point))
|
||||||
(wdired-change-to-dired-mode)
|
(wdired-change-to-dired-mode)
|
||||||
|
;; Make sure the display is in synch, and all the variables are set
|
||||||
|
;; correctly.
|
||||||
|
(dired-revert)
|
||||||
(set-buffer-modified-p nil)
|
(set-buffer-modified-p nil)
|
||||||
(setq buffer-undo-list nil)
|
(setq buffer-undo-list nil)
|
||||||
(message "Changes aborted"))
|
(message "Changes aborted"))
|
||||||
|
|
Loading…
Add table
Reference in a new issue