From cfa2a944d4cf62f16c177398226b17aad88bb5c6 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Sat, 25 Nov 2017 12:11:21 -0700 Subject: [PATCH] Change font-lock-extend-region-multiline handling in mhtml-mode Bug#29159 * lisp/textmodes/mhtml-mode.el (mhtml-mode): Remove font-lock-extend-region-multiline from font-lock-extend-region-functions. (mhtml--extend-font-lock-region): Call font-lock-extend-region-multiline. --- lisp/textmodes/mhtml-mode.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/mhtml-mode.el b/lisp/textmodes/mhtml-mode.el index 8df251276b5..09da155f487 100644 --- a/lisp/textmodes/mhtml-mode.el +++ b/lisp/textmodes/mhtml-mode.el @@ -198,6 +198,12 @@ smallest." (get-text-property orig-end 'mhtml-submode)) (cl-decf font-lock-end))) + ;; Also handle the multiline property -- but handle it here, and + ;; not via font-lock-extend-region-functions, to avoid the + ;; situation where the two extension functions disagree. + ;; See bug#29159. + (font-lock-extend-region-multiline) + (or (/= font-lock-beg orig-beg) (/= font-lock-end orig-end)))) @@ -365,8 +371,7 @@ the rules from `css-mode'." (setq-local font-lock-fontify-region-function #'mhtml--submode-fontify-region) (setq-local font-lock-extend-region-functions - '(mhtml--extend-font-lock-region - font-lock-extend-region-multiline)) + '(mhtml--extend-font-lock-region)) ;; Attach this to both pre- and post- hooks just in case it ever ;; changes a key binding that might be accessed from the menu bar. -- 2.39.5