From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 18 May 1994 23:38:24 +0000 (+0000)
Subject: (font-lock-after-change-function): Fix typo in prev chg.
X-Git-Tag: emacs-19.34~8307
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ab70935c111461d7a726598b3b3fba1e8427058;p=emacs.git

(font-lock-after-change-function): Fix typo in prev chg.
(font-lock-mode): Use after-change-functions not after-change-function.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 4c0d4c0c379..da7373db79f 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -265,7 +265,7 @@ slow things down!")
       ;; Must scan from line start in case of
       ;; inserting space into `intfoo () {}'.
       (if font-lock-no-comments
-	  (remove-text-properties beg (1+ end) '(face nil))
+	  (remove-text-properties beg (min (1+ end) (point-max)) '(face nil))
 	(font-lock-fontify-region beg (min (1+ end) (point-max))))
       ;; Now scan for keywords.
       (font-lock-hack-keywords beg end))))
@@ -365,11 +365,14 @@ can use \\[font-lock-fontify-buffer]."
 		(> (prefix-numeric-value arg) 0))))
     (if (equal (buffer-name) " *Compiler Input*") ; hack for bytecomp...
 	(setq on-p nil))
-    (or (memq after-change-function
-	      '(nil font-lock-after-change-function))
-	(error "after-change-function is %s" after-change-function))
-    (set (make-local-variable 'after-change-function)
-	 (if on-p 'font-lock-after-change-function nil))
+    (make-local-variable 'after-change-functions)
+    (if on-p
+	(or (memq 'font-lock-after-change-function after-change-functions)
+	    (setq after-change-functions (cons 'font-lock-after-change-function
+					       after-change-functions)))
+      (setq after-change-functions
+	    (delq 'font-lock-after-change-function
+		  (copy-sequence after-change-functions))))
     (set (make-local-variable 'font-lock-mode) on-p)
     (make-local-variable 'font-lock-no-comments)
     (cond (on-p