From 9f0c020bebec3957d8d936800f12dd8270071b2f Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 17 Sep 1998 17:27:23 +0000 Subject: [PATCH] (unless): New macro. --- poe.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/poe.el b/poe.el index 996914b..90b9d66 100644 --- a/poe.el +++ b/poe.el @@ -209,6 +209,11 @@ Value is nil if OBJECT is not a buffer or if it has been killed. "(when COND BODY...): if COND yields non-nil, do BODY, else return nil." (list 'if cond (cons 'progn body))) +;; This macro was imported Emacs 20.3. +(defmacro-maybe unless (cond &rest body) + "(unless COND BODY...): if COND yields nil, do BODY, else return nil." + (cons 'if (cons cond (cons nil body)))) + (defmacro-maybe save-current-buffer (&rest body) "Save the current buffer; execute BODY; restore the current buffer. Executes BODY just like `progn'." -- 1.7.10.4