From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!.POSTED!not-for-mail
From: Davin Pearson <davin.pearson@gmail.com>
Newsgroups: gmane.emacs.help
Subject: read-char bug
Date: Fri, 19 Oct 2018 18:30:38 -0700 (PDT)
Message-ID: <4e4d0d10-7f2b-49dc-b17c-279b23402b16@googlegroups.com>
NNTP-Posting-Host: blaine.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
X-Trace: blaine.gmane.org 1539999203 7720 195.159.176.226 (20 Oct 2018 01:33:23 GMT)
X-Complaints-To: usenet@blaine.gmane.org
NNTP-Posting-Date: Sat, 20 Oct 2018 01:33:23 +0000 (UTC)
Injection-Date: Sat, 20 Oct 2018 01:30:39 +0000
User-Agent: G2/1.0
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Oct 20 03:33:19 2018
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([208.118.235.17])
	by blaine.gmane.org with esmtp (Exim 4.84_2)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1gDg8l-0001tH-AZ
	for geh-help-gnu-emacs@m.gmane.org; Sat, 20 Oct 2018 03:33:19 +0200
Original-Received: from localhost ([::1]:53323 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1gDgAr-00065A-NU
	for geh-help-gnu-emacs@m.gmane.org; Fri, 19 Oct 2018 21:35:29 -0400
X-Received: by 2002:a37:4ed5:: with SMTP id
	c204-v6mr28399919qkb.24.1539999039126; 
	Fri, 19 Oct 2018 18:30:39 -0700 (PDT)
X-Received: by 2002:ac8:3848:: with SMTP id r8-v6mr99482qtb.1.1539999038979;
	Fri, 19 Oct 2018 18:30:38 -0700 (PDT)
Original-Path: usenet.stanford.edu!e5-v6no1534569qtr.0!news-out.google.com!o27-v6ni5049qtk.1!nntp.google.com!e5-v6no1534562qtr.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
Complaints-To: groups-abuse@google.com
Original-Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=49.224.64.16;
	posting-account=SVVH0AoAAABplEQzMkIR3gU7a0gK8IuF
Original-NNTP-Posting-Host: 49.224.64.16
Original-Xref: usenet.stanford.edu gnu.emacs.help:224230
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.21
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-gnu-emacs/>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: "help-gnu-emacs"
	<help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Xref: news.gmane.org gmane.emacs.help:118356
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/118356>

When I run the following code and then press the left mouse button and it goes into an infinite loop.  I have also tried the alternative to read-char, methinks it is something like read-char-exclusive and that fails too.

(let (done ch)
  (setq done nil)
  (when (not done)
  (condition-case err
     (setq ch (read-char "Enter y, n, ! or q"))'
     (error 
        (message "Wrong char")))
        ))
   ch)