[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: test char
From: |
Juanma Barranquero |
Subject: |
Re: test char |
Date: |
Sat, 29 Nov 2008 13:37:33 +0100 |
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