From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 23 Mar 2021 04:08:24 +0000 (-0400)
Subject: * lisp/wdired.el: Fix typo in last change.
X-Git-Tag: emacs-28.0.90~3175
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efd80237ca6085f28497bded259a92a48bb6005e;p=emacs.git

* 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.
---

diff --git a/lisp/wdired.el b/lisp/wdired.el
index e040b526005..43026d4bb7a 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -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."