Re: HOW TO GIVE A DEFAULT TO A TRULY INTERACTIVE FUNCTION

[Friedrich Dominicus]

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