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

[Miles Bader]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.211.2.10 emacs/lisp/font-lock.el:1.211.2.11
*** emacs/lisp/font-lock.el:1.211.2.10  Fri Nov 19 06:55:07 2004
--- emacs/lisp/font-lock.el     Wed Dec  8 05:02:14 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)
***************
*** 1456,1462 ****
                       (concat "^\\(?:" defun-prompt-regexp "\\)?\\s(")
                     "^\\s(")
                  (0
!                  (if (memq (get-text-property (1- (point)) 'face)
                             '(font-lock-string-face font-lock-doc-face
                               font-lock-comment-face))
                       font-lock-warning-face)
--- 1456,1462 ----
                       (concat "^\\(?:" defun-prompt-regexp "\\)?\\s(")
                     "^\\s(")
                  (0
!                  (if (memq (get-text-property (match-beginning 0) 'face)
                             '(font-lock-string-face font-lock-doc-face
                               font-lock-comment-face))
                       font-lock-warning-face)