diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-27 14:31:40 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-27 14:31:40 -0400 |
| commit | 547960488dbcba72864cf86ccf9a6efb7d4cb11b (patch) | |
| tree | 5113993e75170143f06208f960f4c1df3132ccf0 /lisp/wdired.el | |
| parent | 526220c53dd22bcfbd1daad321143c3d13e92a7b (diff) | |
| download | emacs-547960488dbcba72864cf86ccf9a6efb7d4cb11b.tar.gz emacs-547960488dbcba72864cf86ccf9a6efb7d4cb11b.tar.bz2 emacs-547960488dbcba72864cf86ccf9a6efb7d4cb11b.zip | |
* lisp/wdired.el (wdired--self-insert): Fix thinko
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 |