emacs/lisp/font-lock.el

90 ;; (or calling given search functions) within the given region.  This is the
147 ;; regexps fontified case-sensitively, and comments and strings should not be
167 ;; say Bar mode should have the following regexps fontified case-insensitively,
361 where MATCHER can be either the regexp to search for, or the function name to
362 call to make the search (called with one argument, the limit of the search;
364 it succeeds; like `re-search-forward' would).
388 in which case all the listed text-properties will be set rather than
389 just FACE.  In such a case, you will most likely want to put those
419 where MATCHER is a regexp to search for or the function name to call to make
420 the search, as for MATCH-HIGHLIGHT above, but with one exception; see below.
439 The above-mentioned exception is as follows.  The limit of the MATCHER search
442 PRE-MATCH-FORM is evaluated, that position is used as the limit of the search.
444 line, i.e., cause the MATCHER search to span lines.
492 (defvar font-lock-keywords-case-fold-search nil
493   "*Non-nil means the patterns in `font-lock-keywords' are case-insensitive.
495 (make-variable-buffer-local 'font-lock-keywords-case-fold-search)
499 If nil, this is ignored, in which case the syntactic fontification may
757 ;;      In this case the keyword could be local (i.e. added earlier by
760 ;;      (a) In the local case we remove the keywords from the variable
811 	     ;; Remember the keyword in case it is not local.
915 	 ;; Reset local vars to the non-jit-lock case.
1030 	(condition-case nil
1057     ;; a handy heuristic: in case you don't have a function that does
1060     ;; cases), in which case the font-lock-multiline property can help make
1185 	    ;; line right after `end'.  Typical case: the first char of
1232                 ;; line right after `end'.  Typical case: the first char of
1265 	(condition-case error-data
1419 		 (re-search-forward matcher limit t)
1447   (let ((case-fold-search font-lock-keywords-case-fold-search)
1455 		 (re-search-forward matcher end t)
1587 		      (re-search-forward matcher limit t)
1604   (let ((case-fold-search font-lock-keywords-case-fold-search)
1620 		      (re-search-forward matcher end t)
1775       ;; Case fold during regexp fontification?
1777 	(set (make-local-variable 'font-lock-keywords-case-fold-search) t))
2034 ;;  ;; Check in case we get called interactively.
2043 ;;  ;; Check in case we get called interactively.
2117       (condition-case nil
2174 	  (re-search-forward
2176 	   (or (save-excursion (re-search-forward ")" limit t))
2244 		 "condition-case" "track-mouse"
2247 		 "with-case-table" "with-category-table"
2259 	       '("when" "unless" "case" "ecase" "typecase" "etypecase"
2260 		 "ccase" "ctypecase" "handler-case" "handler-bind"
2261 		 "restart-bind" "restart-case" "in-package"
2299             (while (re-search-forward "\\(\\\\\\\\\\)\\(?:\\(\\\\\\\\\\)\\|\\((\\(?:\\?:\\)?\\|[|)]\\)\\)" bound t)