From: ueno <ueno>
Date: Mon, 4 Sep 2000 05:39:26 +0000 (+0000)
Subject: (string-equal-ignore-case): Check return value
X-Git-Tag: liece-1_4_4-1~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dde50e844ee232810d6425cb2749626d9f851029;p=elisp%2Fliece.git

(string-equal-ignore-case): Check return value
of `compare-strings'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc04e25..f6b138c 100644
--- 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
--- 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))))