From xemacs-m  Thu Jul 10 00:00:21 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA25404
	for <xemacs-beta@xemacs.org>; Thu, 10 Jul 1997 00:00:19 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id VAA16234;
	Wed, 9 Jul 1997 21:59:56 -0700
Date: Wed, 9 Jul 1997 21:59:56 -0700
Message-Id: <199707100459.VAA16234@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: font-lock, hanging defun's
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


 I don't think the 'five times slower' is very real; with lazy-lock,
who'll really notice anyhow?

--- lisp/packages/font-lock.el.orig	Thu Jun 26 02:43:08 1997
+++ lisp/packages/font-lock.el	Wed Jul  9 21:55:42 1997
@@ -1587,7 +1587,7 @@
    ;; Anything not a variable or type declaration is fontified as a function.
    ;; It would be cleaner to allow preceding whitespace, but it would also be
    ;; about five times slower.
-   (list (concat "^(\\(def\\("
+   (list (concat "(\\(def\\("
 		  ;; Variable declarations.
 		  "\\(const\\(\\|ant\\)\\|ine-key\\(\\|-after\\)\\|var\\)\\|"
 		  ;; Structure declarations.

