diff options
| author | Tassilo Horn <tsdh@gnu.org> | 2019-02-20 16:58:57 +0100 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2019-02-20 16:58:57 +0100 |
| commit | e5c99a1757c281953257ac2548fb77702af75c86 (patch) | |
| tree | 4820116244ad6650f53208bc792ca248ccc630fb /lisp/emacs-lisp/cl-lib.el | |
| parent | bfa10b704ebe71c91d5e5eb28e407a02d2d88863 (diff) | |
| parent | ae77728d14e58054bdaee3c6965979947c778208 (diff) | |
| download | emacs-scratch/replace-region-contents.tar.gz | |
Merge branch 'master' into scratch/replace-region-contentsscratch/replace-region-contents
Diffstat (limited to 'lisp/emacs-lisp/cl-lib.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 3756b52feb8..3a9280fae62 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -365,13 +365,6 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp (cl--defalias 'cl-second 'cadr) (cl--defalias 'cl-rest 'cdr) -(defun cl-endp (x) - "Return true if X is the empty list; false if it is a cons. -Signal an error if X is not a list." - (if (listp x) - (null x) - (signal 'wrong-type-argument (list 'listp x 'x)))) - (cl--defalias 'cl-third 'cl-caddr "Return the third element of the list X.") (cl--defalias 'cl-fourth 'cl-cadddr "Return the fourth element of the list X.") |