Mercurial > emacs
comparison lisp/font-lock.el @ 45762:49930c2c45ca
(font-lock-set-defaults-1): Set variable alist here.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Wed, 12 Jun 2002 04:54:41 +0000 |
| parents | 3d25fe242d2a |
| children | 71755f1fa5a4 |
comparison
equal
deleted
inserted
replaced
| 45761:65b3d2289a42 | 45762:49930c2c45ca |
|---|---|
| 1463 (modify-syntax-entry char syntax font-lock-syntax-table))))) | 1463 (modify-syntax-entry char syntax font-lock-syntax-table))))) |
| 1464 ;; Syntax function for syntactic fontification? | 1464 ;; Syntax function for syntactic fontification? |
| 1465 (when (nth 4 defaults) | 1465 (when (nth 4 defaults) |
| 1466 (set (make-local-variable 'font-lock-beginning-of-syntax-function) | 1466 (set (make-local-variable 'font-lock-beginning-of-syntax-function) |
| 1467 (nth 4 defaults))) | 1467 (nth 4 defaults))) |
| 1468 ;; The variable alist is set in font-core.el. | 1468 ;; Variable alist? |
| 1469 | 1469 (dolist (x (nthcdr 5 defaults)) |
| 1470 (set (make-local-variable (car x)) (cdr x))) | |
| 1470 ;; Setup `font-lock-keywords' last because its value might depend | 1471 ;; Setup `font-lock-keywords' last because its value might depend |
| 1471 ;; on other settings (e.g. font-lock-compile-keywords uses | 1472 ;; on other settings (e.g. font-lock-compile-keywords uses |
| 1472 ;; font-lock-beginning-of-syntax-function). | 1473 ;; font-lock-beginning-of-syntax-function). |
| 1473 (set (make-local-variable 'font-lock-keywords) | 1474 (set (make-local-variable 'font-lock-keywords) |
| 1474 (font-lock-compile-keywords (font-lock-eval-keywords keywords) t)) | 1475 (font-lock-compile-keywords (font-lock-eval-keywords keywords) t)) |