diff options
| author | Richard M. Stallman | 1995-08-27 18:15:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-27 18:15:26 +0000 |
| commit | 66770f42511aa1bd108af7e138dd01e423ea107c (patch) | |
| tree | 22285db9486a4e498c88f42139aa2d5d31daa63f | |
| parent | 5b6f1300dcb246366ab61b959d33ca2eefdca3b4 (diff) | |
| download | emacs-66770f42511aa1bd108af7e138dd01e423ea107c.tar.gz emacs-66770f42511aa1bd108af7e138dd01e423ea107c.zip | |
(rassoc): Definition deleted.
| -rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index bdb71508923..545f4f4e7e6 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el | |||
| @@ -695,8 +695,6 @@ Keywords supported: :test :test-not :key" | |||
| 695 | (and cl-alist (car cl-alist))) | 695 | (and cl-alist (car cl-alist))) |
| 696 | (rassq cl-item cl-alist))) | 696 | (rassq cl-item cl-alist))) |
| 697 | 697 | ||
| 698 | (defun rassoc (item alist) (rassoc* item alist ':test 'equal)) | ||
| 699 | |||
| 700 | (defun rassoc-if (cl-pred cl-list &rest cl-keys) | 698 | (defun rassoc-if (cl-pred cl-list &rest cl-keys) |
| 701 | "Find the first item whose cdr satisfies PREDICATE in LIST. | 699 | "Find the first item whose cdr satisfies PREDICATE in LIST. |
| 702 | Keywords supported: :key" | 700 | Keywords supported: :key" |