On Wed, 2002-05-08 at 03:36, Colin Walters wrote:

> I will try to implement this.

How about the following?

lisp/ChangeLog:
2002-05-08  Colin Walters  <walters@gnu.org>

	* font-lock.el (font-lock, font-lock-defaults-alist)
	(font-lock-highlighting-faces, font-lock-extra-types)
	(fast-lock, lazy-lock, jit-lock, font-lock-maximum-size)
	(font-lock-maximum-decoration, font-lock-verbose)
	(font-lock-defaults, font-lock-fontify-buffer-function)
	(font-lock-unfontify-buffer-function)
	(font-lock-fontify-region-function)
	(font-lock-unfontify-region-function)
	(font-lock-inhibit-thing-lock, font-lock-multiline)
	(font-lock-fontified, save-buffer-state)
	(font-lock-face-attributes, font-lock-mode)
	(turn-on-font-lock, global-font-lock-mode)
	(font-lock-global-modes, font-lock-support-mode)
	(fast-lock-mode, lazy-lock-mode, jit-lock-mode)
	(font-lock-turn-on-thing-lock, font-lock-turn-off-thing-lock)
	(font-lock-after-fontify-buffer, font-lock-after-unfontify-buffer)
	(font-lock-fontify-buffer, font-lock-unfontify-buffer)
	(font-lock-fontify-region, font-lock-unfontify-region)
	(font-lock-default-fontify-buffer)
	(font-lock-default-unfontify-buffer)
	(font-lock-default-unfontify-region)
	(font-lock-after-change-function):
	Moved to font-core.el.
	(font-lock-set-defaults): Renamed to `font-lock-set-defaults-1';
	partially moved to font-core.el.

	* replace.el (occur-mode-hooks): New variable.
	(occur-mode): Set `font-lock-core-only'.  Don't set
	`font-lock-fontify-region-function'.  Run `occur-mode-hooks' too.
	(occur-1): Pass faces to `occur-engine'.
	(occur-fontify-on-property): Deleted.
	(occur-fontify-region-function): Deleted.

	* font-core.el: New file, with functions broken out from
	font-lock.el.
	(font-lock-core-only): New variable.
	(font-lock-mode): If `font-lock-core-only' is non-nil, don't
	enable a font-lock support mode.
	(font-lock-set-defaults): Partially moved here from font-lock.el.
	We try to only load all of font-lock.el if the mode doesn't set
	`font-lock-core-only'.

src/ChangeLog:
2002-05-08  Colin Walters  <walters@gnu.org>

	* xfaces.c (Vinhibit_text_property_faces): New variable.
	(face_at_buffer_position): Respect it.
	(syms_of_xfaces) <Vinhibit_text_property_faces>: DEFVAR_LISP.