Mercurial > hg > xemacs-beta

diff lisp/cl-extra.el @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents 0e522484dd2a
children c5d627a313b1
line wrap: on
line diff
--- a/lisp/cl-extra.el	Mon Aug 13 10:22:10 2007 +0200
+++ b/lisp/cl-extra.el	Mon Aug 13 10:23:02 2007 +0200
@@ -98,6 +98,10 @@
 	 (and (stringp y) (= (length x) (length y))
 	      (or (string-equal x y)
 		  (string-equal (downcase x) (downcase y)))))   ; lazy but simple!
+	((characterp x)
+	 (and (characterp y)
+	      (or (char-equal x y)
+		  (char-equal (downcase x) (downcase y)))))
 	((numberp x)
 	 (and (numberp y) (= x y)))
 	((consp x)