[Emacs-diffs] Changes to emacs/lisp/font-core.el

[Richard M. Stallman]

Index: emacs/lisp/font-core.el
diff -c emacs/lisp/font-core.el:1.10 emacs/lisp/font-core.el:1.11
*** emacs/lisp/font-core.el:1.10        Wed Aug 14 20:36:26 2002
--- emacs/lisp/font-core.el     Thu Aug 15 16:09:34 2002
***************
*** 206,212 ****
    ;; batch job) or if the buffer is invisible (the name starts with a space).
    (when (or noninteractive (eq (aref (buffer-name) 0) ?\ ))
      (setq font-lock-mode nil))
!   (funcall font-lock-function font-lock-mode))
  
  (defun font-lock-default-function (font-lock-mode)
    ;; Turn on Font Lock mode.
--- 206,216 ----
    ;; batch job) or if the buffer is invisible (the name starts with a space).
    (when (or noninteractive (eq (aref (buffer-name) 0) ?\ ))
      (setq font-lock-mode nil))
!   (funcall font-lock-function font-lock-mode)
!   ;; Arrange to unfontify this buffer if we change major mode later.
!   (if font-lock-mode
!       (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer)
!     (remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer)))
  
  (defun font-lock-default-function (font-lock-mode)
    ;; Turn on Font Lock mode.