[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/font-lock.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/font-lock.el [emacs-unicode-2] |
Date: |
Wed, 08 Dec 2004 01:48:43 -0500 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/font-lock.el [emacs-unicode-2],
Miles Bader <=