From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 14 Nov 2004 00:37:12 +0000 (+0000)
Subject: (font-lock-fontify-syntactically-region): Fix last fix
X-Git-Tag: ttn-vms-21-2-B4~3949
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ce66ffe7435eff71993cee739ee9da3dd702f4d;p=emacs.git

(font-lock-fontify-syntactically-region): Fix last fix
so it doesn't forget to highlight the beginning of the region either.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index bfd5b7cce69..bdf31881cc4 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.