Path: utzoo!utgpu!watserv1!watmath!iuvax!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!m.cs.uiuc.edu!reingold
From: reingold@m.cs.uiuc.edu
Newsgroups: comp.emacs
Subject: Re: Need read-number function
Message-ID: <4300069@m.cs.uiuc.edu>
Date: 8 Feb 90 17:41:00 GMT
References: <4300068@m.cs.uiuc.edu>
Lines: 9
Nf-ID: #R:m.cs.uiuc.edu:4300068:m.cs.uiuc.edu:4300069:000:261
Nf-From: m.cs.uiuc.edu!reingold    Feb  8 11:41:00 1990


Here is the best suggestion I received (from Dale Worley):

(defun read-integer (prompt)
  "Read an integer from the minibuffer, prompting with PROMPT."
  (let ((value))
    (while (not (integerp value))
      (setq value (read-minibuffer prompt)))
    value))