Mercurial > emacs
changeset 14794:c3a2cabb73ef
(equalp): Use string-equal on strings.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Fri, 08 Mar 1996 18:30:12 +0000 |
| parents | d3a70cd8d181 |
| children | a668c56171b2 |
| files | lisp/emacs-lisp/cl-extra.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-extra.el Fri Mar 08 18:27:37 1996 +0000 +++ b/lisp/emacs-lisp/cl-extra.el Fri Mar 08 18:30:12 1996 +0000 @@ -84,8 +84,8 @@ (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)