1295 |
;; Find each interesting place between here and `end'. |
;; Find each interesting place between here and `end'. |
1296 |
(while |
(while |
1297 |
(progn |
(progn |
|
(setq state (parse-partial-sexp (point) end nil nil state |
|
|
'syntax-table)) |
|
1298 |
(when (or (nth 3 state) (nth 4 state)) |
(when (or (nth 3 state) (nth 4 state)) |
1299 |
(setq face (funcall font-lock-syntactic-face-function state)) |
(setq face (funcall font-lock-syntactic-face-function state)) |
1300 |
(setq beg (max (nth 8 state) start)) |
(setq beg (max (nth 8 state) start)) |
1301 |
(setq state (parse-partial-sexp (point) end nil nil state |
(setq state (parse-partial-sexp (point) end nil nil state |
1302 |
'syntax-table)) |
'syntax-table)) |
1303 |
(when face (put-text-property beg (point) 'face face))) |
(when face (put-text-property beg (point) 'face face))) |
1304 |
(< (point) end))))) |
(< (point) end)) |
1305 |
|
(setq state (parse-partial-sexp (point) end nil nil state |
1306 |
|
'syntax-table))))) |
1307 |
|
|
1308 |
;;; End of Syntactic fontification functions. |
;;; End of Syntactic fontification functions. |
1309 |
|
|