From xemacs-m  Wed Mar 19 12:39:21 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 MAA27332
	for <xemacs-beta@xemacs.org>; Wed, 19 Mar 1997 12:39:21 -0600 (CST)
Received: from newcnri.cnri.reston.va.us by CNRI.Reston.VA.US id aa17212;
          19 Mar 97 13:31 EST
Received: from anthem.CNRI.Reston.Va.US by newcnri.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id NAA28263; Wed, 19 Mar 1997 13:31:11 -0500
Received: by anthem.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id NAA14705; Wed, 19 Mar 1997 13:31:10 -0500
Date: Wed, 19 Mar 1997 13:31:10 -0500
Message-Id: <199703191831.NAA14705@anthem.CNRI.Reston.Va.US>
From: "Barry A. Warsaw" <bwarsaw@CNRI.Reston.VA.US>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="zFr+VsSeg+SROZe2jQhnZsBvuHT5OfSfzgeqU49p"
Content-Transfer-Encoding: 7bit
To: Adrian Aichner <aichner@ecf.teradyne.com>
Cc: 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>
X-Mailer: VM 6.20 under 19.15 XEmacs Lucid (beta101)
Reply-To: bwarsaw@python.org
X-Attribution: BAW
X-Oblique-Strategy: Fix something not broken
X-Url: http://www.python.org/~bwarsaw


--zFr+VsSeg+SROZe2jQhnZsBvuHT5OfSfzgeqU49p
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


This bug is still there in b101.  Sorry, I don't have time to look
into that now, but here's a patch to font-lock.el so that at least
your pre-idle-hook doesn't get completely whacked.

-Barry


--zFr+VsSeg+SROZe2jQhnZsBvuHT5OfSfzgeqU49p
Content-Type: text/plain
Content-Disposition: inline;
	filename="patch-3"
Content-Transfer-Encoding: 7bit

*** font-lock.el	1997/03/19 18:22:35	1.1
--- font-lock.el	1997/03/19 18:24:02
***************
*** 771,776 ****
  
  (defun font-lock-pre-idle-hook ()
!   (if font-lock-old-extent
!       (font-lock-fontify-glumped-region)))
  
  (defvar font-lock-always-fontify-immediately nil
--- 771,778 ----
  
  (defun font-lock-pre-idle-hook ()
!   (condition-case nil
!       (if font-lock-old-extent
! 	  (font-lock-fontify-glumped-region))
!     (error (warn "Error caught in `font-lock-pre-idle-hook'"))))
  
  (defvar font-lock-always-fontify-immediately nil

--zFr+VsSeg+SROZe2jQhnZsBvuHT5OfSfzgeqU49p--

