diff options
| author | Erik Naggum | 1996-03-08 18:30:12 +0000 |
|---|---|---|
| committer | Erik Naggum | 1996-03-08 18:30:12 +0000 |
| commit | 76f61009c761a8944476cb2df7383358820ea4e2 (patch) | |
| tree | 4cd71c31a572409b9eedb0a3cf2a00b6c2e27d39 | |
| parent | 24a31d57800836cbe38ebd1fe7925e7e49d52aae (diff) | |
| download | emacs-76f61009c761a8944476cb2df7383358820ea4e2.tar.gz emacs-76f61009c761a8944476cb2df7383358820ea4e2.zip | |
(equalp): Use string-equal on strings.
| -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." | |||
| 84 | (cond ((eq x y) t) | 84 | (cond ((eq x y) t) |
| 85 | ((stringp x) | 85 | ((stringp x) |
| 86 | (and (stringp y) (= (length x) (length y)) | 86 | (and (stringp y) (= (length x) (length y)) |
| 87 | (or (equal x y) | 87 | (or (string-equal x y) |
| 88 | (equal (downcase x) (downcase y))))) ; lazy but simple! | 88 | (string-equal (downcase x) (downcase y))))) ; lazy but simple! |
| 89 | ((numberp x) | 89 | ((numberp x) |
| 90 | (and (numberp y) (= x y))) | 90 | (and (numberp y) (= x y))) |
| 91 | ((consp x) | 91 | ((consp x) |