Much whitespace and capitalization change.

[gnu-emacs] / lisp / font-lock.el

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index bfd5b7cce694f494673e22f8ae764f7ed57e9825..bdf31881cc47d392d9d1ff52795bd4713f992bbd 100644 (file)
--- 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.
 \f