branch: master
commit de643c95339fb08b560b367db501dee8ef30be3f
Author: Adam Niederer <[email protected]>
Commit: Adam Niederer <[email protected]>
Mode transition hooks
Allows the user to set hooks to run when submodes are entered and left. Also
allows the user to specify hooks for specific mode-to-mode transitions.
An example below:
(setq mmm-js-mode-exit-hook (lambda () (message "Run when leaving js
mode")))
(setq mmm-js-mode-enter-hook (lambda () (message "Run when entering js
mode")))
(setq mmm-vue-mode-js-mode-hook (lambda () (message "Run when moving >From
vue to js")))
(setq mmm-js-mode-vue-mode-hook (lambda () (message "Run when moving >From
js to vue")))
---
mmm-region.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/mmm-region.el b/mmm-region.el
index 547b351..6567b31 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -545,10 +545,14 @@ different keymaps, syntax tables, local variables, etc.
for submodes."
(when (mmm-update-current-submode)
(mmm-save-changed-local-variables mmm-previous-submode
mmm-previous-overlay)
- (let ((mode (or mmm-current-submode mmm-primary-mode)))
- (mmm-update-mode-info mode)
- (mmm-set-local-variables mode mmm-current-overlay)
- (mmm-enable-font-lock mode))
+ (let ((new-mode (or mmm-current-submode mmm-primary-mode))
+ (old-mode (or mmm-previous-submode mmm-primary-mode)))
+ (mmm-run-constructed-hook old-mode new-mode)
+ (mmm-run-constructed-hook old-mode "exit")
+ (mmm-run-constructed-hook new-mode "enter")
+ (mmm-update-mode-info new-mode)
+ (mmm-set-local-variables new-mode mmm-current-overlay)
+ (mmm-enable-font-lock new-mode))
(mmm-set-mode-line)
(dolist (func (if mmm-current-overlay
(overlay-get mmm-current-overlay 'entry-hook)
