[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/obsolete/fast-lock.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/obsolete/fast-lock.el |
Date: |
Fri, 02 Sep 2005 14:39:44 -0400 |
Index: emacs/lisp/obsolete/fast-lock.el
diff -c emacs/lisp/obsolete/fast-lock.el:1.5
emacs/lisp/obsolete/fast-lock.el:1.6
*** emacs/lisp/obsolete/fast-lock.el:1.5 Thu Sep 1 13:59:17 2005
--- emacs/lisp/obsolete/fast-lock.el Fri Sep 2 18:39:42 2005
***************
*** 379,386 ****
(if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode))))
(if (and fast-lock-mode (not font-lock-mode))
;; Turned on `fast-lock-mode' rather than `font-lock-mode'.
! (let ((font-lock-support-mode 'fast-lock-mode))
! (font-lock-mode t))
;; Let's get down to business.
(set (make-local-variable 'fast-lock-cache-timestamp) nil)
(set (make-local-variable 'fast-lock-cache-filename) nil)
--- 379,387 ----
(if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode))))
(if (and fast-lock-mode (not font-lock-mode))
;; Turned on `fast-lock-mode' rather than `font-lock-mode'.
! (progn
! (message "Use font-lock-support-mode rather than calling
fast-lock-mode")
! (sit-for 2))
;; Let's get down to business.
(set (make-local-variable 'fast-lock-cache-timestamp) nil)
(set (make-local-variable 'fast-lock-cache-filename) nil)