358 |
(eval . FORM) |
(eval . FORM) |
359 |
|
|
360 |
where MATCHER can be either the regexp to search for, or the function name to |
where MATCHER can be either the regexp to search for, or the function name to |
361 |
call to make the search (called with one argument, the limit of the search) and |
call to make the search (called with one argument, the limit of the search; |
362 |
return non-nil if it succeeds (and set `match-data' appropriately). |
it should return non-nil, move point, and set `match-data' appropriately iff |
363 |
|
it succeeds; like `re-search-forward' would). |
364 |
MATCHER regexps can be generated via the function `regexp-opt'. |
MATCHER regexps can be generated via the function `regexp-opt'. |
365 |
|
|
366 |
FORM is an expression, whose value should be a keyword element, evaluated when |
FORM is an expression, whose value should be a keyword element, evaluated when |
1516 |
(make-local-variable 'font-lock-fontified) |
(make-local-variable 'font-lock-fontified) |
1517 |
(make-local-variable 'font-lock-multiline) |
(make-local-variable 'font-lock-multiline) |
1518 |
(let* ((defaults (or font-lock-defaults |
(let* ((defaults (or font-lock-defaults |
1519 |
(cdr (assq major-mode font-lock-defaults-alist)))) |
(cdr (assq major-mode |
1520 |
|
(with-no-warnings |
1521 |
|
font-lock-defaults-alist))))) |
1522 |
(keywords |
(keywords |
1523 |
(font-lock-choose-keywords (nth 0 defaults) |
(font-lock-choose-keywords (nth 0 defaults) |
1524 |
(font-lock-value-in-major-mode font-lock-maximum-decoration))) |
(font-lock-value-in-major-mode font-lock-maximum-decoration))) |