]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/wdired.el: Fix typo in last change.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Mar 2021 04:08:24 +0000 (00:08 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Mar 2021 04:08:24 +0000 (00:08 -0400)
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.

lisp/wdired.el

index e040b5260059a7d9002cbfc95f51445dd5c48f15..43026d4bb7a460999333120a66820e74961105d7 100644 (file)
@@ -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."