diff options
| author | Case Duckworth | 2022-01-17 17:13:03 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-17 17:13:03 -0600 |
| commit | 298fd65a4c8485ee59cb26bcb88c0af23be95191 (patch) | |
| tree | 5b03a73932de92bf3df90cf079e8ff02cffc77b1 /lisp/+mwim.el | |
| parent | Add describe-symbol to vertico-multi-.. (diff) | |
| download | emacs-298fd65a4c8485ee59cb26bcb88c0af23be95191.tar.gz emacs-298fd65a4c8485ee59cb26bcb88c0af23be95191.zip | |
Fix function calls
Diffstat (limited to 'lisp/+mwim.el')
| -rw-r--r-- | lisp/+mwim.el | 6 |
1 files changed, 3 insertions, 3 deletions
| diff --git a/lisp/+mwim.el b/lisp/+mwim.el index 1c8ef5c..97a2b04 100644 --- a/lisp/+mwim.el +++ b/lisp/+mwim.el | |||
| @@ -22,7 +22,7 @@ Will just do \\[beginning-of-line] in one of | |||
| 22 | (if (apply #'derived-mode-p +mwim-passthrough-modes) | 22 | (if (apply #'derived-mode-p +mwim-passthrough-modes) |
| 23 | (let ((this-mode-map (symbol-value (intern (format "%s-map" major-mode)))) | 23 | (let ((this-mode-map (symbol-value (intern (format "%s-map" major-mode)))) |
| 24 | (key "C-a")) | 24 | (key "C-a")) |
| 25 | (funcall (or (keymap-lookup this-mode-map key t t) | 25 | (call-interactively (or (keymap-lookup this-mode-map key t t) |
| 26 | (keymap-lookup (current-global-map) key t t)))) | 26 | (keymap-lookup (current-global-map) key t t)))) |
| 27 | (call-interactively #'mwim-beginning))) | 27 | (call-interactively #'mwim-beginning))) |
| 28 | 28 | ||
| @@ -34,8 +34,8 @@ Will just do \\[end-of-line] in one of | |||
| 34 | (if (apply #'derived-mode-p +mwim-passthrough-modes) | 34 | (if (apply #'derived-mode-p +mwim-passthrough-modes) |
| 35 | (let ((this-mode-map (symbol-value (intern (format "%s-map" major-mode)))) | 35 | (let ((this-mode-map (symbol-value (intern (format "%s-map" major-mode)))) |
| 36 | (key "C-e")) | 36 | (key "C-e")) |
| 37 | (funcall (or (keymap-lookup this-mode-map key t t) | 37 | (call-interactively (or (keymap-lookup this-mode-map key t t) |
| 38 | (keymap-lookup (current-global-map) key t t)))) | 38 | (keymap-lookup (current-global-map) key t t)))) |
| 39 | (call-interactively #'mwim-end))) | 39 | (call-interactively #'mwim-end))) |
| 40 | 40 | ||
| 41 | (provide '+mwim) | 41 | (provide '+mwim) |