/[emacs]/emacs/lisp/font-lock.el
ViewVC logotype

Diff of /emacs/lisp/font-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.197.2.14 by miles, Fri Nov 12 04:21:13 2004 UTC revision 1.197.2.15 by miles, Wed Dec 8 23:31:42 2004 UTC
# Line 1295  START should be at the beginning of a li Line 1295  START should be at the beginning of a li
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    

Legend:
Removed from v.1.197.2.14  
changed lines
  Added in v.1.197.2.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26