Mercurial > emacs
comparison lisp/obsolete/fast-lock.el @ 65317:547765a33579
(fast-lock-mode): Don't try to turn on
font-lock-mode if it's off. Print a warning instead.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 02 Sep 2005 18:39:42 +0000 |
| parents | f91648b9f8b1 |
| children | 35bdd2abe2d3 |
comparison
equal
deleted
inserted
replaced
| 65316:d2d6a76016a7 | 65317:547765a33579 |
|---|---|
| 377 (and buffer-file-truename | 377 (and buffer-file-truename |
| 378 (not (memq 'fast-lock-mode font-lock-inhibit-thing-lock)) | 378 (not (memq 'fast-lock-mode font-lock-inhibit-thing-lock)) |
| 379 (if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode)))) | 379 (if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode)))) |
| 380 (if (and fast-lock-mode (not font-lock-mode)) | 380 (if (and fast-lock-mode (not font-lock-mode)) |
| 381 ;; Turned on `fast-lock-mode' rather than `font-lock-mode'. | 381 ;; Turned on `fast-lock-mode' rather than `font-lock-mode'. |
| 382 (let ((font-lock-support-mode 'fast-lock-mode)) | 382 (progn |
| 383 (font-lock-mode t)) | 383 (message "Use font-lock-support-mode rather than calling fast-lock-mode") |
| 384 (sit-for 2)) | |
| 384 ;; Let's get down to business. | 385 ;; Let's get down to business. |
| 385 (set (make-local-variable 'fast-lock-cache-timestamp) nil) | 386 (set (make-local-variable 'fast-lock-cache-timestamp) nil) |
| 386 (set (make-local-variable 'fast-lock-cache-filename) nil) | 387 (set (make-local-variable 'fast-lock-cache-filename) nil) |
| 387 (when (and fast-lock-mode (not font-lock-fontified)) | 388 (when (and fast-lock-mode (not font-lock-fontified)) |
| 388 (fast-lock-read-cache)))) | 389 (fast-lock-read-cache)))) |