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

[Friedrich Dominicus]

gnuist006@hotmail.com (gnuist006) writes:

> Edi Weitz <edi@agharta.de> wrote in message 
> 
> >   (require 'cl)
> > 
> >   (defun* bar (&optional (default 5))
> >     (let* ((default-string (format "%s" default))
> >            (string (read-string "Number: "
> >                                 default-string
> >                                 nil
> >                                 default-string)))
> >       ;; needs check for wrong input
> >       (list (string-to-number string))))
> >   
> >   (defun foo (n)
> >     (interactive
> >      (bar 42))
> >     (insert (format "%s" (* 3 n))))
> 
> Pathetic solution. breaks one, fixes noone.
> It just accepted "u" as the input and did not do number
> validation.
Well people who can read do definitly have an advantage. Edi has
written 
;; needs check ....

So it's either up to you as programmer to check the input or let Emacs
do the job. I have posted a solution in which I used a better suited
input routine. 

Friedrich