From xemacs-m  Wed Mar 19 14:12:43 1997
Received: from CNRI.Reston.VA.US (CNRI.Reston.VA.US [132.151.1.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA28048
	for <xemacs-beta@xemacs.org>; Wed, 19 Mar 1997 14:12:43 -0600 (CST)
Received: from newcnri.cnri.reston.va.us by CNRI.Reston.VA.US id aa19841;
          19 Mar 97 15:10 EST
Received: from anthem.CNRI.Reston.Va.US by newcnri.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id PAA00579; Wed, 19 Mar 1997 15:10:36 -0500
Received: by anthem.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id PAA14918; Wed, 19 Mar 1997 15:10:35 -0500
Date: Wed, 19 Mar 1997 15:10:35 -0500
Message-Id: <199703192010.PAA14918@anthem.CNRI.Reston.Va.US>
From: "Barry A. Warsaw" <bwarsaw@CNRI.Reston.VA.US>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="sOiXKeHMs1sVf8Rh2Yyb7jGc8Gwg0P9Qv5bIzEhk"
Content-Transfer-Encoding: 7bit
To: Adrian Aichner <aichner@ecf.teradyne.com>,
        Stephan Herrmann <sh@prosun.first.gmd.de>, xemacs-beta@xemacs.org
Subject: Re: Java mode: Error in `pre-idle-hook`
References: <rtwwr3ewis.fsf@first.gmd.de>
	<rxsiv2n7nz2.fsf@midnight.ecf.teradyne.com>
	<199703191831.NAA14705@anthem.CNRI.Reston.Va.US>
X-Mailer: VM 6.20 under 19.15 XEmacs Lucid (beta101)
Reply-To: bwarsaw@python.org
X-Attribution: BAW
X-Oblique-Strategy: Mute and continue
X-Url: http://www.python.org/~bwarsaw


--sOiXKeHMs1sVf8Rh2Yyb7jGc8Gwg0P9Qv5bIzEhk
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


This should fix the original java font-lock bug.  It should be applied
in addition to my pre-idle-hook patch.  I can't claim this is the
perfect fix -- I didn't write the java font-lock definitions, and
spent 0 time trying to figure out what this *should* do :-)

-Barry


--sOiXKeHMs1sVf8Rh2Yyb7jGc8Gwg0P9Qv5bIzEhk
Content-Type: text/plain
Content-Disposition: inline;
	filename="patch-4"
Content-Transfer-Encoding: 7bit

*** font-lock.el	1997/03/19 18:25:39	1.2
--- font-lock.el	1997/03/19 20:03:52
***************
*** 2264,2270 ****
  	       (list (concat
  		      "\\=\\.\\(" java-font-lock-identifier-regexp "\\)")
! 		     nil nil '(1 (if (= (char-after (match-end 0)) ?.)
! 				     'font-lock-reference-face
! 				   'font-lock-type-face))))
  
  	 ;; Constructors:
--- 2264,2272 ----
  	       (list (concat
  		      "\\=\\.\\(" java-font-lock-identifier-regexp "\\)")
! 		     nil nil '(1 (let ((c (char-after (match-end 0))))
! 				   (if (and (characterp c)
! 					    (= c ?.))
! 				       'font-lock-reference-face
! 				     'font-lock-type-face)))))
  
  	 ;; Constructors:

--sOiXKeHMs1sVf8Rh2Yyb7jGc8Gwg0P9Qv5bIzEhk--

