[Emacs-diffs] Changes to emacs/lisp/obsolete/fast-lock.el

[Stefan Monnier]

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)