test char

test char

[Xend]

are there Emacs function like Libc function isupper / isalpha???

Re: test char

[Andreas Politz]

Xend wrote:
> are there Emacs function like Libc function isupper / isalpha???

I dont think so.

(defun isupper (char)
   (string-match "[[:upper:]]" (make-string 1 char)))

(isupper ?a)

-ap

Re: test char

[Eli Zaretskii]

> From: Xend <firperfect@gmail.com>
> Date: Fri, 28 Nov 2008 21:00:03 -0800 (PST)
> 
> are there Emacs function like Libc function isupper / isalpha???

It's all too easy to make one:

  (eq (downcase ch) ch)

Btw, why do you need such a function?  What do you need to do if these
functions return t?  Perhaps you could do whatever you need without
such a test?

Re: test char

[Andreas Politz]

Eli Zaretskii wrote:
>> From: Xend <firperfect@gmail.com>
>> Date: Fri, 28 Nov 2008 21:00:03 -0800 (PST)
>>
>> are there Emacs function like Libc function isupper / isalpha???
> 
> It's all too easy to make one:
> 
>   (eq (downcase ch) ch)

That's unimaginary more elegant than what I suggested. :-)

-ap
> 
> Btw, why do you need such a function?  What do you need to do if these
> functions return t?  Perhaps you could do whatever you need without
> such a test?
> 
> 

Re: test char

[Juanma Barranquero]

On Sat, Nov 29, 2008 at 12:01, Andreas Politz <politza@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

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