diff options
Diffstat (limited to 'lisp/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 7 |
1 files 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 |