From: keiichi <keiichi>
Date: Fri, 12 Mar 1999 04:20:27 +0000 (+0000)
Subject: (condition-case-if): Abolish.
X-Git-Tag: apel-9_14~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b9a03eeeb2573ae2dedc66dddc5cbac9e5c906c;p=elisp%2Fapel.git

(condition-case-if): Abolish.
---

diff --git a/poe.el b/poe.el
index c0398b9..aea989c 100644
--- a/poe.el
+++ b/poe.el
@@ -136,17 +136,6 @@
 	      (string-match (format "%d\\." emacs-major-version)
 			    emacs-version))))
 
-(defmacro condition-case-if (cond var bodyform &rest handlers)
-  "If COND yields non-nil at run-time, do wrapped BODYFORM in 
-`condition-case' with VAR and HANDLERS, else do bare BODYFORM."
-  (` (if (, cond)
-       (condition-case (, var)
-           (, bodyform)
-         (,@ handlers))
-       (, bodyform)
-       )))
-(put 'condition-case-if 'lisp-indent-function 2)
-
 (cond ((featurep 'xemacs)
        (require 'poe-xemacs)
        )