From 6ae5bdf58c163da1eca8386ac64a0dee812d0df9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 Jan 1997 06:09:48 +0000 Subject: [PATCH] (when, unless): Definitions moved to subr.el. --- lisp/emacs-lisp/cl.el | 8 -------- 1 file changed, 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)))) -- 2.39.5