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

[Andreas Schwab]

Index: emacs/lisp/font-core.el
diff -c emacs/lisp/font-core.el:1.14 emacs/lisp/font-core.el:1.15
*** emacs/lisp/font-core.el:1.14        Fri Aug 30 07:00:46 2002
--- emacs/lisp/font-core.el     Sat Aug 31 13:22:29 2002
***************
*** 218,228 ****
  ;; Get rid of fontification for the old major mode.
  ;; We do this when changing major modes.
  (defun font-lock-change-mode ()
!   (let ((inhibit-read-only t))
      (save-restriction
        (widen)
        (remove-list-of-text-properties
!        (point-min) (point-max) '(font-lock-face))))
    (when font-lock-defaults
      (font-lock-unfontify-buffer)))
  
--- 218,237 ----
  ;; Get rid of fontification for the old major mode.
  ;; We do this when changing major modes.
  (defun font-lock-change-mode ()
!   (let ((inhibit-read-only t)
!       (inhibit-point-motion-hooks t)
!       (inhibit-modification-hooks t)
!       (deactivate-mark nil)
!       (buffer-file-name nil)
!       (buffer-file-truename nil)
!       (buffer-undo-list t)
!       (modified (buffer-modified-p)))
      (save-restriction
        (widen)
        (remove-list-of-text-properties
!        (point-min) (point-max) '(font-lock-face)))
!     (unless modified
!       (restore-buffer-modified-p nil)))
    (when font-lock-defaults
      (font-lock-unfontify-buffer)))