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

[Juanma Barranquero]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.199 emacs/lisp/font-lock.el:1.200
*** emacs/lisp/font-lock.el:1.199       Wed Jun 12 08:16:08 2002
--- emacs/lisp/font-lock.el     Sun Jul  7 21:30:44 2002
***************
*** 980,998 ****
  (defvar font-lock-extra-managed-props nil
    "Additional text properties managed by font-lock.
  This is used by `font-lock-default-unfontify-region' to decide
! what properties to clear before refontifying a region.
! Since it is more or less directly passed to `remove-text-properties',
! it should have the shape of a property list (i.e. every other element
! is ignored).")
  
  (defun font-lock-default-unfontify-region (beg end)
    (save-buffer-state nil
!     (remove-text-properties
       beg end (append
              font-lock-extra-managed-props
              (if font-lock-syntactic-keywords
!                 '(face nil syntax-table nil font-lock-multiline nil)
!               '(face nil font-lock-multiline nil))))))
  
  ;; Called when any modification is made to buffer text.
  (defun font-lock-after-change-function (beg end old-len)
--- 980,995 ----
  (defvar font-lock-extra-managed-props nil
    "Additional text properties managed by font-lock.
  This is used by `font-lock-default-unfontify-region' to decide
! 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)