~theo/emacs

efd80237ca6085f28497bded259a92a48bb6005e — Stefan Monnier 6 months ago 22910e7
* lisp/wdired.el: Fix typo in last change.

Reported by Michael Heerdegen <michael_heerdegen@web.de>.

(wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
The `(local FOO)` form takes an expression, so the var needs to be quoted.
1 files changed, 2 insertions(+), 2 deletions(-)

M lisp/wdired.el
M lisp/wdired.el => lisp/wdired.el +2 -2
@@ 246,7 246,7 @@ See `wdired-mode'."
  (add-hook 'after-change-functions #'wdired--restore-properties nil t)
  (setq major-mode 'wdired-mode)
  (setq mode-name "Editable Dired")
  (add-function :override (local revert-buffer-function) #'wdired-revert)
  (add-function :override (local 'revert-buffer-function) #'wdired-revert)
  ;; I temp disable undo for performance: since I'm going to clear the
  ;; undo list, it can save more than a 9% of time with big
  ;; directories because setting properties modify the undo-list.


@@ 381,7 381,7 @@ non-nil means return old filename."
  (dired-advertise)
  (remove-hook 'kill-buffer-hook #'wdired-check-kill-buffer t)
  (remove-hook 'after-change-functions #'wdired--restore-properties t)
  (remove-function (local revert-buffer-function) #'wdired-revert))
  (remove-function (local 'revert-buffer-function) #'wdired-revert))

(defun wdired-abort-changes ()
  "Abort changes and return to dired mode."