Mercurial > hg > xemacs-beta
comparison lisp/font-lock.el @ 278:90d73dddcdc4 r21-0b37
Import from CVS: tag r21-0b37
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:31:29 +0200 |
| parents | f220cc83d72e |
| children | 4b85ae5eabfb |
comparison
equal
deleted
inserted
replaced
| 277:cfdf3ff11843 | 278:90d73dddcdc4 |
|---|---|
| 525 "List of Font Lock mode related modes that should not be turned on. | 525 "List of Font Lock mode related modes that should not be turned on. |
| 526 Currently, valid mode names as `fast-lock-mode' and `lazy-lock-mode'. | 526 Currently, valid mode names as `fast-lock-mode' and `lazy-lock-mode'. |
| 527 This is normally set via `font-lock-defaults'.") | 527 This is normally set via `font-lock-defaults'.") |
| 528 | 528 |
| 529 ;;;###autoload | 529 ;;;###autoload |
| 530 (defvar font-lock-mode nil) ; for modeline | 530 (defcustom font-lock-mode nil ;; customized for the option menu. dverna |
| 531 "Non nil means `font-lock-mode' is on" | |
| 532 :group 'font-lock | |
| 533 :type 'boolean | |
| 534 :initialize 'custom-initialize-default | |
| 535 :require 'font-lock | |
| 536 :set '(lambda (var val) | |
| 537 (font-lock-mode (or val 0))) | |
| 538 ) | |
| 539 | |
| 531 (defvar font-lock-fontified nil) ; whether we have hacked this buffer | 540 (defvar font-lock-fontified nil) ; whether we have hacked this buffer |
| 532 (put 'font-lock-fontified 'permanent-local t) | 541 (put 'font-lock-fontified 'permanent-local t) |
| 533 | 542 |
| 534 ;;;###autoload | 543 ;;;###autoload |
| 535 (defvar font-lock-mode-hook nil | 544 (defvar font-lock-mode-hook nil |