From xemacs-m  Wed Feb 26 07:04:55 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id HAA14656
	for <xemacs-beta@xemacs.org>; Wed, 26 Feb 1997 07:04:54 -0600 (CST)
Received: from kiki.icd.teradyne.com (kiki.icd.teradyne.com [131.101.1.30]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id IAA20947 for <xemacs-beta@xemacs.org>; Wed, 26 Feb 1997 08:08:10 -0500 (EST)
Received: from spacely.icd.teradyne.com (spacely.icd.teradyne.com [131.101.10.9]) by kiki.icd.teradyne.com (8.7.1/8.7.1) with SMTP id IAA20758 for <xemacs-beta@xemacs.org>; Wed, 26 Feb 1997 08:01:56 -0500 (EST)
Received: from spacely by spacely.icd.teradyne.com (SMI-8.6/SMI-SVR4)
	id IAA13727; Wed, 26 Feb 1997 08:04:54 -0500
Message-Id: <199702261304.IAA13727@spacely.icd.teradyne.com>
X-Mailer: exmh version 2.0gamma 1/27/96
To: xemacs-beta@xemacs.org
Subject: Re: [19.15b95]: input-pending-p is nil even after keypress 
In-reply-to: Simon.Marshall's message of Wed, 26 Feb 1997 11:16:35 +0000.
	     <9702261116.AA25392@mail.esrin.esa.it> 
reply-to: acs@acm.org
X-Attribution: Vin
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Wed, 26 Feb 1997 08:04:53 -0500
From: Vinnie Shelton  <shelton@icd.teradyne.com>


Simon, on Sparc 5/Solaris 2.5/cc/20.1-b2/nomule, I get your error
message:

(3) (error/warning) Error in `post-command-hook' (setting hook to nil): (error Yes! input-pending-p!)

vin

>>>>> On Wed, 26 Feb 97, Simon Marshall <Simon.Marshall@esrin.esa.it> said:


Simon> No need to apologise!  Now I'm curious.  Start up so you have lazy-lock.el
Simon> around, and in *scratch* evaluate:

Simon> (defun lazy-lock-post-command-fontify-windows ()
Simon>   ;; Do groovy things if (a) not in a macro, (b) no input pending, (c) got a
Simon>   ;; real command, (d) not in the minibuffer, and (e) no input after waiting
Simon>   ;; for `lazy-lock-continuity-time'.
Simon>   (if (input-pending-p)
Simon>       (error "Yes! input-pending-p!"))
Simon>   (if (or executing-kbd-macro
Simon> 	  (input-pending-p)
Simon> 	  (memq this-command lazy-lock-ignore-commands)
Simon> 	  (window-minibuffer-p (selected-window)))
Simon>       (setq lazy-lock-cache-continue nil)
Simon>     (setq lazy-lock-cache-continue t)
Simon>     (if (sit-for lazy-lock-continuity-time lazy-lock-hide-invisible)
Simon> 	;; Do the visible parts of the buffer(s), i.e., the window(s).
Simon> 	(if (or (not lazy-lock-walk-windows)
Simon> 		(and (eq lazy-lock-walk-windows t) (one-window-p t)))
Simon> 	    (if lazy-lock-mode (condition-case nil (lazy-lock-fontify-window)))
Simon> 	  (lazy-lock-fontify-walk-windows)))))

Simon> Now go back to your big file and C-n to your heart's content.  Does an
Simon> error get signalled?  It does not for me, even when XEmacs gets windows
Simon> behind with its scrolling.  That's how I found the input-pending-p bug and
Simon> made a simple way of reproducing it (for me).

Simon> Can anyone else reproduce the original reproduction script on SunOS 4.1.3?

Simon> Ta, Si.



