projects
/
elisp
/
liece.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
05171fa
)
(string-equal-ignore-case): Check return value
author
ueno
<ueno>
Mon, 4 Sep 2000 05:39:26 +0000
(
05:39
+0000)
committer
ueno
<ueno>
Mon, 4 Sep 2000 05:39:26 +0000
(
05:39
+0000)
of `compare-strings'.
lisp/ChangeLog
patch
|
blob
|
history
lisp/liece-inlines.el
patch
|
blob
|
history
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.
* 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)
(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))))
(defmacro string-equal-ignore-case (s1 s2)
`(string-equal (upcase ,s1) (upcase ,s2))))