From: Richard M. Stallman Date: Wed, 8 Jan 1997 06:09:48 +0000 (+0000) Subject: (when, unless): Definitions moved to subr.el. X-Git-Tag: emacs-20.1~3098 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ae5bdf58c163da1eca8386ac64a0dee812d0df9;p=emacs.git (when, unless): Definitions moved to subr.el. --- 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))))