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)))) |