From 547960488dbcba72864cf86ccf9a6efb7d4cb11b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 27 Mar 2021 14:31:40 -0400 Subject: [PATCH] * lisp/wdired.el (wdired--self-insert): Fix thinko --- lisp/wdired.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/wdired.el b/lisp/wdired.el index 567ebb122ab..ff42d784e5f 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -288,10 +288,9 @@ or \\[wdired-abort-changes] to abort changes"))) (if (wdired--line-preprocessed-p) (call-interactively 'self-insert-command) (wdired--before-change-fn (point) (point)) - (let ((map (get-text-property (point) 'keymap))) - (when map - (let ((cmd (lookup-key map (this-command-keys)))) - (call-interactively (or cmd 'self-insert-command))))))) + (let* ((map (get-text-property (point) 'keymap))) + (call-interactively (or (if map (lookup-key map (this-command-keys))) + #'self-insert-command))))) (defun wdired--before-change-fn (beg end) (save-excursion -- 2.39.2