Commits

daiki  committed 179db1e

2002-06-05 Steve Youngs <youngs@xemacs.org>

* liece-inlines.el (string-equal-ignore-case): Don't try to use
'compare-strings'.

  • Participants
  • Parent commits dba2977

Comments (0)

Files changed (2)

File lisp/ChangeLog

+2002-06-05  Steve Youngs  <youngs@xemacs.org>
+
+	* liece-inlines.el (string-equal-ignore-case): Don't try to use
+	'compare-strings'.
+
 2002-05-04  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* liece-make.el (config-liece-package-directory):

File lisp/liece-inlines.el

 (defmacro string-join (strlst &optional del)
   `(mapconcat #'identity ,strlst ,del))
 
-(static-if (subr-fboundp 'compare-strings)
-    (defmacro string-equal-ignore-case (s1 s2)
-      `(eq t (compare-strings ,s1 0 nil ,s2 0 nil 'ignore-case)))
-  (defmacro string-equal-ignore-case (s1 s2)
-    `(string-equal (upcase ,s1) (upcase ,s2))))
+(defmacro string-equal-ignore-case (s1 s2)
+  `(string-equal (upcase ,s1) (upcase ,s2)))
 
 (static-if (fboundp 'member-ignore-case)
     (defalias 'string-list-member-ignore-case