[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/font-lock.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/font-lock.el |
Date: |
Sat, 13 Nov 2004 19:43:04 -0500 |
Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.229 emacs/lisp/font-lock.el:1.230
*** emacs/lisp/font-lock.el:1.229 Fri Nov 12 00:00:59 2004
--- emacs/lisp/font-lock.el Sun Nov 14 00:37:12 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.