Fix the last change.

[elisp/liece.git] / lisp / liece-inlines.el

diff --git a/lisp/liece-inlines.el b/lisp/liece-inlines.el
index 7bec086..c3e06a5 100644 (file)
--- a/lisp/liece-inlines.el
+++ b/lisp/liece-inlines.el
@@ -48,7 +48,7 @@
     (defmacro string-equal-ignore-case (s1 s2)
       `(compare-strings ,s1 0 nil ,s2 0 nil 'ignore-case))
   (defmacro string-equal-ignore-case (s1 s2)
-    (string-equal (upcase ,s1) (upcase ,s2))))
+    `(string-equal (upcase ,s1) (upcase ,s2))))
 
 (static-if (fboundp 'member-ignore-case)
     (defalias 'string-list-member-ignore-case