diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-14 00:37:12 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-14 00:37:12 +0000 |
| commit | 6ce66ffe7435eff71993cee739ee9da3dd702f4d (patch) | |
| tree | e4b405c865b3d6cfe7b368ee1ad3f71d678a6d50 /lisp | |
| parent | b393528900a561200b14bd3c75d63f3bca1992ef (diff) | |
| download | emacs-6ce66ffe7435eff71993cee739ee9da3dd702f4d.tar.gz | |
(font-lock-fontify-syntactically-region): Fix last fix
so it doesn't forget to highlight the beginning of the region either.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/font-lock.el | 6 |
1 files changed, 3 insertions, 3 deletions
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. |