diff options
| author | Erik Naggum <erik@naggum.no> | 1996-03-08 18:30:12 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-03-08 18:30:12 +0000 |
| commit | 76f61009c761a8944476cb2df7383358820ea4e2 (patch) | |
| tree | 4cd71c31a572409b9eedb0a3cf2a00b6c2e27d39 /lisp/emacs-lisp | |
| parent | 24a31d57800836cbe38ebd1fe7925e7e49d52aae (diff) | |
| download | emacs-76f61009c761a8944476cb2df7383358820ea4e2.tar.gz emacs-76f61009c761a8944476cb2df7383358820ea4e2.tar.bz2 emacs-76f61009c761a8944476cb2df7383358820ea4e2.zip | |
(equalp): Use string-equal on strings.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index a9201444b0d..6eadbdb4ca9 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -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) |