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

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 567ebb122abbcce0d70cde20cbd7ad4cfbff7473..ff42d784e5f491e96a0a0e743770e3f160b23a5c 100644 (file)
--- 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