379 |
(if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode)))) |
(if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode)))) |
380 |
(if (and fast-lock-mode (not font-lock-mode)) |
(if (and fast-lock-mode (not font-lock-mode)) |
381 |
;; Turned on `fast-lock-mode' rather than `font-lock-mode'. |
;; Turned on `fast-lock-mode' rather than `font-lock-mode'. |
382 |
(let ((font-lock-support-mode 'fast-lock-mode)) |
(progn |
383 |
(font-lock-mode t)) |
(message "Use font-lock-support-mode rather than calling fast-lock-mode") |
384 |
|
(sit-for 2)) |
385 |
;; Let's get down to business. |
;; Let's get down to business. |
386 |
(set (make-local-variable 'fast-lock-cache-timestamp) nil) |
(set (make-local-variable 'fast-lock-cache-timestamp) nil) |
387 |
(set (make-local-variable 'fast-lock-cache-filename) nil) |
(set (make-local-variable 'fast-lock-cache-filename) nil) |