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

[Stefan Monnier]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.231 emacs/lisp/font-lock.el:1.232
*** emacs/lisp/font-lock.el:1.231       Sat Nov 27 00:17:22 2004
--- emacs/lisp/font-lock.el     Tue Dec  7 04:58:36 2004
***************
*** 958,964 ****
    (funcall font-lock-fontify-region-function beg end loudly))
  
  (defun font-lock-unfontify-region (beg end)
!   (funcall font-lock-unfontify-region-function beg end))
  
  (defun font-lock-default-fontify-buffer ()
    (let ((verbose (if (numberp font-lock-verbose)
--- 958,965 ----
    (funcall font-lock-fontify-region-function beg end loudly))
  
  (defun font-lock-unfontify-region (beg end)
!   (save-buffer-state nil
!     (funcall font-lock-unfontify-region-function beg end)))
  
  (defun font-lock-default-fontify-buffer ()
    (let ((verbose (if (numberp font-lock-verbose)
***************
*** 1046,1058 ****
  what properties to clear before refontifying a region.")
  
  (defun font-lock-default-unfontify-region (beg end)
!   (save-buffer-state nil
!     (remove-list-of-text-properties
!      beg end (append
!             font-lock-extra-managed-props
!             (if font-lock-syntactic-keywords
!                 '(syntax-table face font-lock-multiline)
!               '(face font-lock-multiline))))))
  
  ;; Called when any modification is made to buffer text.
  (defun font-lock-after-change-function (beg end old-len)
--- 1047,1058 ----
  what properties to clear before refontifying a region.")
  
  (defun font-lock-default-unfontify-region (beg end)
!   (remove-list-of-text-properties
!    beg end (append
!           font-lock-extra-managed-props
!           (if font-lock-syntactic-keywords
!               '(syntax-table face font-lock-multiline)
!             '(face font-lock-multiline)))))
  
  ;; Called when any modification is made to buffer text.
  (defun font-lock-after-change-function (beg end old-len)