[elpa] master 6115059 288/433: Refontify buffer when creating new region

[Dmitry Gutov]

branch: master
commit 611505909722425fe0259cae393be55028d499e9
Author: Dmitry Gutov <dgu...@yandex.ru>
Commit: Steve Purcell <st...@sanityinc.com>

    Refontify buffer when creating new region
---
 mmm-class.el  | 5 +++--
 mmm-region.el | 4 +++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/mmm-class.el b/mmm-class.el
index 9e51e79..0ba4637 100644
--- a/mmm-class.el
+++ b/mmm-class.el
@@ -112,7 +112,8 @@ error once all classes have been applied."
 The classes come from mode/ext, `mmm-classes', `mmm-global-classes',
 and interactive history."
   (mmm-clear-overlays start stop 'strict)
-  (mmm-apply-classes (mmm-get-all-classes t) :start start :stop stop)
+  (let ((font-lock-mode))
+    (mmm-apply-classes (mmm-get-all-classes t) :start start :stop stop))
   (mmm-update-submode-region)
   (mmm-refontify-maybe start stop))
 
@@ -322,4 +323,4 @@ containing a function to be used as the delimiter form."
 
 (provide 'mmm-class)
 
-;;; mmm-class.el ends here
\ No newline at end of file
+;;; mmm-class.el ends here
diff --git a/mmm-region.el b/mmm-region.el
index 211fec8..330c9fc 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -565,7 +565,9 @@ is non-nil, don't quit if the info is already there."
       (if region-entry
           (setcdr region-entry region-vars)
         (push (cons mode region-vars)
-              mmm-region-saved-locals-defaults)))))
+              mmm-region-saved-locals-defaults))
+      ;; The temp buffer stuff above wipes fontification.
+      (mmm-refontify-maybe))))
 
 ;;}}}
 ;;{{{ Updating Hooks