acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Fix function calls

This commit is contained in:
Case Duckworth 2022-01-17 17:13:03 -06:00
parent 21d53603b1
commit 298fd65a4c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/+mwim.el
View File

@ -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)
(keymap-lookup (current-global-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-end)))
(provide '+mwim)