procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(equalp): Use string-equal on strings.

Browse source
This commit is contained in:
Erik Naggum 1996-03-08 18:30:12 +00:00
parent 24a31d5780
commit 76f61009c7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cl-extra.el
View file

@ -84,8 +84,8 @@ strings case-insensitively."
(cond ((eq x y) t)
((stringp x)
(and (stringp y) (= (length x) (length y))
(or (equal x y)
(equal (downcase x) (downcase y))))) ; lazy but simple!
(or (string-equal x y)
(string-equal (downcase x) (downcase y))))) ; lazy but simple!
((numberp x)
(and (numberp y) (= x y)))
((consp x)