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
  (if (apply #'derived-mode-p +mwim-passthrough-modes)
      (let ((this-mode-map (symbol-value (intern (format "%s-map" major-mode))))
            (key "C-a"))
-        (funcall (or (keymap-lookup this-mode-map key t t)
+        (call-interactively (or (keymap-lookup this-mode-map key t t)
                     (keymap-lookup (current-global-map) key t t))))
    (call-interactively #'mwim-beginning)))
@@ -34,8 +34,8 @@ Will just do \\[end-of-line] in one of
  (if (apply #'derived-mode-p +mwim-passthrough-modes)
      (let ((this-mode-map (symbol-value (intern (format "%s-map" major-mode))))
            (key "C-e"))
-        (funcall (or (keymap-lookup this-mode-map key t t)
+        (call-interactively (or (keymap-lookup this-mode-map key t t)
-                     (keymap-lookup (current-global-map) key t t))))
+                                (keymap-lookup (current-global-map) key t t))))
    (call-interactively #'mwim-end)))
 (provide '+mwim)

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)