/[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.268 by lute, Mon Jul 4 23:08:54 2005 UTC revision 1.269 by monnier, Wed Jul 13 04:39:14 2005 UTC
# Line 1473  LOUDLY, if non-nil, allows progress-mete Line 1473  LOUDLY, if non-nil, allows progress-mete
1473        (while (and (< (point) end)        (while (and (< (point) end)
1474                    (if (stringp matcher)                    (if (stringp matcher)
1475                        (re-search-forward matcher end t)                        (re-search-forward matcher end t)
1476                      (funcall matcher end)))                      (funcall matcher end))
1477                      ;; Beware empty string matches since they will
1478                      ;; loop indefinitely.
1479                      (or (> (point) (match-beginning 0))
1480                          (progn (forward-char 1) t)))
1481          (when (and font-lock-multiline          (when (and font-lock-multiline
1482                     (>= (point)                     (>= (point)
1483                         (save-excursion (goto-char (match-beginning 0))                         (save-excursion (goto-char (match-beginning 0))

Legend:
Removed from v.1.268  
changed lines
  Added in v.1.269

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