master 5479604: * lisp/wdired.el (wdired--self-insert): Fix thinko

[Stefan Monnier]

branch: master
commit 547960488dbcba72864cf86ccf9a6efb7d4cb11b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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 567ebb1..ff42d78 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