From: Noam Postavsky <npostavs@gmail.com>
Date: Fri, 13 Mar 2020 01:07:56 +0000 (-0400)
Subject: Make cl-equalp a bit more efficient at comparing strings
X-Git-Tag: emacs-28.0.90~7765
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=402b175f358c948b5207924fd2f48c4666ca1c0a;p=emacs.git

Make cl-equalp a bit more efficient at comparing strings

* lisp/emacs-lisp/cl-extra.el (cl-equalp): Use compare-strings with
the IGNORE-CASE argument, rather than creating downcased copies of the
strings to be compared.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index e9bfe8df5f2..323bbbbf947 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -72,8 +72,7 @@ strings case-insensitively."
   (cond ((eq x y) t)
 	((stringp x)
 	 (and (stringp y) (= (length x) (length y))
-	      (or (string-equal x y)
-		  (string-equal (downcase x) (downcase y))))) ;Lazy but simple!
+              (eq (compare-strings x nil nil y nil nil t) t)))
 	((numberp x)
 	 (and (numberp y) (= x y)))
 	((consp x)