From 6ce66ffe7435eff71993cee739ee9da3dd702f4d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 14 Nov 2004 00:37:12 +0000 Subject: [PATCH] (font-lock-fontify-syntactically-region): Fix last fix so it doesn't forget to highlight the beginning of the region either. --- lisp/font-lock.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index bfd5b7cce6..bdf31881cc 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1295,15 +1295,15 @@ START should be at the beginning of a line." ;; Find each interesting place between here and `end'. (while (progn - (setq state (parse-partial-sexp (point) end nil nil state - 'syntax-table)) (when (or (nth 3 state) (nth 4 state)) (setq face (funcall font-lock-syntactic-face-function state)) (setq beg (max (nth 8 state) start)) (setq state (parse-partial-sexp (point) end nil nil state 'syntax-table)) (when face (put-text-property beg (point) 'face face))) - (< (point) end))))) + (< (point) end)) + (setq state (parse-partial-sexp (point) end nil nil state + 'syntax-table))))) ;;; End of Syntactic fontification functions. -- 2.20.1