From 6b9a03eeeb2573ae2dedc66dddc5cbac9e5c906c Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 12 Mar 1999 04:20:27 +0000 Subject: [PATCH] (condition-case-if): Abolish. --- poe.el | 11 ----------- 1 file changed, 11 deletions(-) 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) ) -- 1.7.10.4