"y-or-n-p" but for other characters

"y-or-n-p" but for other characters

[weber]

Hi folks!
I'm trying to come up with a interactive function for fixing my
code...

I present three options to the user (myself), that are mapped to three
characters (a,b,c say)
Even though read-from-minibuffer solves my problem, y-or-n-p behavior
is more interesting because doesn't require an extra [ret].

Is there a way to code a y-or-n for a-or-b-or-c ?

Thanks in advance,
weber

Re: "y-or-n-p" but for other characters

[Pascal Bourguignon]

weber <hugows@gmail.com> writes:

> Hi folks!
> I'm trying to come up with a interactive function for fixing my
> code...
>
> I present three options to the user (myself), that are mapped to three
> characters (a,b,c say)
> Even though read-from-minibuffer solves my problem, y-or-n-p behavior
> is more interesting because doesn't require an extra [ret].
>
> Is there a way to code a y-or-n for a-or-b-or-c ?

  (read-char "a, b or c? ")



-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

NOTE: The most fundamental particles in this product are held
together by a "gluing" force about which little is currently known
and whose adhesive power can therefore not be permanently
guaranteed.

Re: "y-or-n-p" but for other characters

[Pascal Bourguignon]

Pascal Bourguignon <pjb@informatimago.com> writes:

> weber <hugows@gmail.com> writes:
>
>> Hi folks!
>> I'm trying to come up with a interactive function for fixing my
>> code...
>>
>> I present three options to the user (myself), that are mapped to three
>> characters (a,b,c say)
>> Even though read-from-minibuffer solves my problem, y-or-n-p behavior
>> is more interesting because doesn't require an extra [ret].
>>
>> Is there a way to code a y-or-n for a-or-b-or-c ?
>
>   (read-char "a, b or c? ")

Well:

    (require 'cl)

    (defun a-or-b-or-c ()
       (loop for ch = (read-char "a, b or c? ")
             until (position ch "abc")
             finally (return ch)))

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

NOTE: The most fundamental particles in this product are held
together by a "gluing" force about which little is currently known
and whose adhesive power can therefore not be permanently
guaranteed.