branch: master
commit b3c3510cf23d2a23fbaffea36c05f5da42151bf8
Author: Dmitry Gutov <[email protected]>
Commit: Steve Purcell <[email protected]>
Fix fontification of the first subregion line
---
mmm-region.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/mmm-region.el b/mmm-region.el
index 330c9fc..b3b0c5d 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -790,7 +790,8 @@ of the REGIONS covers START to STOP."
"Fontify REGIONS, each like \(BEG END), in mode MODE."
(save-excursion
(let (;(major-mode mode)
- (func (get mode 'mmm-fontify-region-function)))
+ (func (get mode 'mmm-fontify-region-function))
+ font-lock-extend-region-functions)
(mapc #'(lambda (reg)
(goto-char (car reg))
;; Here we do the same sort of thing that
