Mercurial > emacs
diff lisp/font-lock.el @ 58203:cd5849662239
(font-lock-fontify-syntactically-region): Fix last fix
so it doesn't forget to highlight the beginning of the region either.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sun, 14 Nov 2004 00:37:12 +0000 |
parents | 5451548f1bd9 |
children | eea39a81fd89 2a3f27a45698 b637c617432f |
line wrap: on
line diff
--- a/lisp/font-lock.el Sat Nov 13 23:29:11 2004 +0000 +++ b/lisp/font-lock.el Sun Nov 14 00:37:12 2004 +0000 @@ -1295,15 +1295,15 @@ ;; 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.