changeset 27802:3cb58ebdc2fa

Remove bogus spec for define-condition.
author Dave Love <fx@gnu.org>
date Tue, 22 Feb 2000 11:52:25 +0000
parents 1f07581a92ea
children 5b4cb85d9312
files lisp/emacs-lisp/cl-indent.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-indent.el	Tue Feb 22 10:27:05 2000 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Tue Feb 22 11:52:25 2000 +0000
@@ -377,6 +377,7 @@
 (let ((l '((block 1)
 	   (case        (4 &rest (&whole 2 &rest 1)))
 	   (ccase . case) (ecase . case)
+	   (condition-case ((1 4) (&whole 2 ((0 1) (1 3) (2 &body)))))
 	   (typecase . case) (etypecase . case) (ctypecase . case)
 	   (catch 1)
 	   (cond        (&rest (&whole 2 &rest 1)))
@@ -386,10 +387,6 @@
 	   (defconstant . defvar)
            (defcustom   (4 2 2 2))
 	   (defparameter . defvar)
-	   (define-condition ((1 6)
-			      (2 6 ((&whole 1)))
-			      (3 4 ((&whole 1)))
-			      (4 &body)))
 	   (define-modify-macro
 			(4 &body))
 	   (defsetf     (4 &lambda 4 &body))