changeset 45686:25d73d0e2b98

(font-lock-category-alist): Delete. (turn-on-font-lock-if-enabled): Don't use it. (font-lock-symbol-category-alist): Delete. (font-lock-default-function): Use new `char-property-alias-alist' to make `font-lock-face' an alias for `face' when font-lock mode is enabled.

--- a/lisp/font-core.el	Sat Jun 08 20:31:13 2002 +0000
+++ b/lisp/font-core.el	Sat Jun 08 20:39:29 2002 +0000
@@ -136,23 +136,6 @@
 
 (defvar font-lock-fontified nil)	; Whether we have fontified the buffer.
 
-(defvar font-lock-category-alist nil
-  "An alist of (CATEGORY-SYMBOL . FACE-PROP) controlled by Font Lock.
-This variable is intended to be used by special modes which construct
-buffer text for display to the user (i.e. buffer-menu, occur), but
-wish to have fontification turned on and off by Font Lock.  If this
-variable is non-nil, then calling `font-lock-mode' will simply toggle
-the symbol property `face' of CATEGORY-SYMBOL.")
-
-(defvar font-lock-symbol-category-alist nil
-  "An alist of (SYMBOL . CATEGORY-SYMBOL) to help maintain categories.
-This variable is not directly used by font-lock; instead it is
-intended to be used by modes which use `font-lock-category-alist'.
-Normally, you want category symbols to be uninterned, so that their
-properties can be local to a buffer.  This variable helps you maintain
-a mapping between normal category names (i.e. interned symbols) and
-their local uninterned versions.")
-
 (defvar font-lock-function 'font-lock-default-function
   "A function which is called when `font-lock-mode' is toggled.
 It will be passed one argument, which is the current value of
@@ -229,8 +212,16 @@
   ;; Turn on Font Lock mode.
   (when font-lock-mode
     (font-lock-set-defaults)
-    (dolist (elt font-lock-category-alist)
-      (put (car elt) 'face (cdr elt)))
+    (set (make-local-variable 'char-property-alias-alist)
+	 (copy-tree char-property-alias-alist))
+    ;; Add `font-lock-face' as an alias for the `face' property.
+    (let ((elt (assq 'face char-property-alias-alist)))
+      (if elt
+	  (unless (memq 'font-lock-face (cdr elt))
+	    (setcdr elt (nconc (cdr elt) (list 'font-lock-face))))
+	(push (list 'face 'font-lock-face) char-property-alias-alist)))
+    ;; Only do hard work if the mode has specified stuff in
+    ;; `font-lock-defaults'.
     (when font-lock-defaults
       (add-hook 'after-change-functions 'font-lock-after-change-function t t)
       (font-lock-turn-on-thing-lock)
@@ -245,8 +236,14 @@
 			(buffer-name)))))))
   ;; Turn off Font Lock mode.
   (unless font-lock-mode
-    (dolist (elt font-lock-category-alist)
-      (put (car elt) 'face nil))
+    ;; Remove `font-lock-face' as an alias for the `face' property.
+    (set (make-local-variable 'char-property-alias-alist)
+	 (copy-tree char-property-alias-alist))
+    (let ((elt (assq 'face char-property-alias-alist)))
+      (when elt
+	(setcdr elt (remq 'font-lock-face (cdr elt)))
+	(when (null (cdr elt))
+	  (setq char-property-alias-alist (delq elt char-property-alias-alist)))))
     (when font-lock-defaults
       (remove-hook 'after-change-functions 'font-lock-after-change-function t)
       (font-lock-unfontify-buffer)
@@ -347,7 +344,6 @@
 
 (defun turn-on-font-lock-if-enabled ()
   (when (and (or font-lock-defaults
-		 font-lock-category-alist
 		 (assq major-mode font-lock-defaults-alist))
 	     (or (eq font-lock-global-modes t)
 		 (if (eq (car-safe font-lock-global-modes) 'not)