From dde50e844ee232810d6425cb2749626d9f851029 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 4 Sep 2000 05:39:26 +0000 Subject: [PATCH] (string-equal-ignore-case): Check return value of `compare-strings'. --- lisp/ChangeLog | 6 +++++- lisp/liece-inlines.el | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) 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 +2000-09-04 Daiki Ueno + + * liece-inlines.el (string-equal-ignore-case): Check return value + of `compare-strings'. +2000-09-03 Daiki Ueno * 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)))) -- 1.7.10.4