[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: test char
From: |
Xend |
Subject: |
Re: test char |
Date: |
Fri, 5 Dec 2008 02:48:15 -0800 (PST) |
User-agent: |
G2/1.0 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |