about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/+mwim.el6
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)