diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-08 06:09:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-08 06:09:48 +0000 |
| commit | 6ae5bdf58c163da1eca8386ac64a0dee812d0df9 (patch) | |
| tree | 12c12ffe7f8867e10fe670c227fa5e2031251145 /lisp/emacs-lisp | |
| parent | debff3c309833b9dd3939c474c2c446fa49f0f86 (diff) | |
| download | emacs-6ae5bdf58c163da1eca8386ac64a0dee812d0df9.tar.gz emacs-6ae5bdf58c163da1eca8386ac64a0dee812d0df9.tar.bz2 emacs-6ae5bdf58c163da1eca8386ac64a0dee812d0df9.zip | |
(when, unless): Definitions moved to subr.el.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 29ec602f231..90d7b762ad9 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -218,14 +218,6 @@ Keywords supported: :test :test-not :key" ;;; These macros are so simple and so often-used that it's better to have ;;; them all the time than to load them from cl-macs.el. -(defmacro when (cond &rest body) - "(when COND BODY...): if COND yields non-nil, do BODY, else return nil." - (list 'if cond (cons 'progn body))) - -(defmacro unless (cond &rest body) - "(unless COND BODY...): if COND yields nil, do BODY, else return nil." - (cons 'if (cons cond (cons nil body)))) - (defun cl-map-extents (&rest cl-args) (if (fboundp 'next-overlay-at) (apply 'cl-map-overlays cl-args) (if (fboundp 'map-extents) (apply 'map-extents cl-args)))) |