From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Friedrich Dominicus <frido@q-software-solutions.com>
Newsgroups: gmane.emacs.help
Subject: Re: HOW TO GIVE A DEFAULT TO A TRULY INTERACTIVE FUNCTION
Date: 18 Oct 2002 10:05:17 +0200
Organization: Q Software Solutions GmbH
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <87r8eof9z6.fsf@fbigm.here>
References: <b00bb831.0210140802.4a4b8058@posting.google.com> <878z0wgr7j.fsf@fbigm.here>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1034998952 30165 80.91.224.249 (19 Oct 2002 03:42:32 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sat, 19 Oct 2002 03:42:32 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 182kVT-0007qC-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Sat, 19 Oct 2002 05:42:31 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 182ZpC-0001Am-00; Fri, 18 Oct 2002 12:18:10 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.vmunix.org!newsfeed01.sul.t-online.de!newsmm00.sul.t-online.com!t-online.de!news.t-online.com!not-for-mail
Original-Newsgroups: gnu.emacs.help,comp.emacs
Original-Followup-To: comp.emacs
Original-Lines: 20
Original-X-Trace: news.t-online.com 1034921151 04 7355 zmP5b7ySSiYW+7 021018 06:05:51
Original-X-Complaints-To: abuse@t-online.com
X-Sender: 320004655587-0001@t-dialin.net
User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Common Lisp)
Original-Xref: shelby.stanford.edu gnu.emacs.help:106165 comp.emacs:75338
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:2729
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:2729

Friedrich Dominicus <frido@q-software-solutions.com> writes:

sorry for following-up myself, but I guess 
>     (while (not (funcall pred num))
>       (setq num (condition-case ()
> 		    (let ((minibuffer-completion-table nil))
> 		      (read-from-minibuffer
> 		       prompt (if num (prin1-to-string num)) nil t
> 		       nil nil (if (numberp default-value)
                            ^^^^^^^ this better would be better integerp
>                            (prin1-to-string default-value) 
>                          default-value)))
>             (input-error nil)
>             (invalid-read-syntax nil)
>             (end-of-file nil)))
>       (or (funcall pred num) (beep)))
>     num))


Friedrich