(string-equal-ignore-case): Check return value

of `compare-strings'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc04e25..f6b138c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
-2000-09-03   Daiki Ueno  <ueno@unixuser.org>
+2000-09-04   Daiki Ueno  <ueno@unixuser.org>
+
+       * liece-inlines.el (string-equal-ignore-case): Check return value
+       of `compare-strings'.
 
+2000-09-03   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-clfns.el: Require `pym'.
        (liece-clfns-subr-fboundp): New macro.

diff --git a/lisp/liece-inlines.el b/lisp/liece-inlines.el
index 284ee2d..60b0e37 100644 (file)
--- a/lisp/liece-inlines.el
+++ b/lisp/liece-inlines.el
@@ -46,7 +46,7 @@
 
 (static-if (subr-fboundp 'compare-strings)
     (defmacro string-equal-ignore-case (s1 s2)
-      `(compare-strings ,s1 0 nil ,s2 0 nil 'ignore-case))
+      `(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))))