Mercurial > emacs
changeset 16846:7fe3a413068d
(when, unless): Definitions moved to subr.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 08 Jan 1997 06:09:48 +0000 |
| parents | adc714dc8e3c |
| children | 76159aa277eb |
| files | lisp/emacs-lisp/cl.el |
| diffstat | 1 files changed, 0 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl.el Wed Jan 08 06:09:02 1997 +0000 +++ b/lisp/emacs-lisp/cl.el Wed Jan 08 06:09:48 1997 +0000 @@ -218,14 +218,6 @@ ;;; 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))))