From: Stefan Monnier Date: Sat, 27 Mar 2021 18:31:40 +0000 (-0400) Subject: * lisp/wdired.el (wdired--self-insert): Fix thinko X-Git-Tag: emacs-28.0.90~3120 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=547960488dbcba72864cf86ccf9a6efb7d4cb11b;p=emacs.git * lisp/wdired.el (wdired--self-insert): Fix thinko --- 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