From: morioka <morioka>
Date: Thu, 17 Sep 1998 17:27:23 +0000 (+0000)
Subject: (unless): New macro.
X-Git-Tag: poe-199811302358~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f0c020bebec3957d8d936800f12dd8270071b2f;p=elisp%2Fapel.git

(unless): New macro.
---

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'."