[Emacs-diffs] Changes to emacs/lisp/font-lock.el [lexbind]

[Miles Bader]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.197.2.14 emacs/lisp/font-lock.el:1.197.2.15
*** emacs/lisp/font-lock.el:1.197.2.14  Fri Nov 12 04:21:13 2004
--- emacs/lisp/font-lock.el     Wed Dec  8 23:31:42 2004
***************
*** 1295,1309 ****
      ;; 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)))))
  
  ;;; End of Syntactic fontification functions.
  
--- 1295,1309 ----
      ;; Find each interesting place between here and `end'.
      (while
        (progn
          (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))
!       (setq state (parse-partial-sexp (point) end nil nil state
!                                     'syntax-table)))))
  
  ;;; End of Syntactic fontification functions.