Re: test char

[Xend]

On Nov 29, 8:37 pm, "Juanma Barranquero" <lek...@gmail.com> wrote:
> On Sat, Nov 29, 2008 at 12:01, Andreas Politz <poli...@fh-trier.de> wrote:
> > That's unimaginary more elegant than what I suggested. :-)
>
> Yours would have to be more like
>
> (defun isupper (char)
>   (let (case-fold-search)
>     (string-match-p "[[:upper:]]" (make-string 1 char))))
>
> but has the advantadge that
>
> ELISP> (isupper ??)
> nil
> ELISP> (eq (upcase ??) ??)
> t
>
>   Juanma

thanks boy , i can get it