From: Dave Love <fx@gnu.org>
Date: Mon, 4 Dec 2000 17:05:57 +0000 (+0000)
Subject: Remove erroneous spec for condition-case.
X-Git-Tag: emacs-pretest-21.0.93~233
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=968880c416332dc6fc8ec2efeba004b36f5d87c9;p=emacs.git

Remove erroneous spec for condition-case.
---

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index c74b5d66d51..359288ebf05 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -377,7 +377,6 @@ by `lisp-body-indent'."
 (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)))
@@ -491,8 +490,10 @@ by `lisp-body-indent'."
 
 ;(put 'with-restart 'common-lisp-indent-function '((1 4 ((* 1))) (2 &body)))
 ;(put 'restart-case 'common-lisp-indent-function '((1 4) (* 2 ((0 1) (* 1)))))
-;(put 'define-condition 'common-lisp-indent-function '((1 6) (2 6 ((* 1))) (3 4 ((* 1))) (4 &body)))
+;(put 'define-condition 'common-lisp-indent-function '((1 6) (2 6 ((&whole 1))) (3 4 ((&whole 1))) (4 &body)))
 ;(put 'with-condition-handler 'common-lisp-indent-function '((1 4 ((* 1))) (2 &body)))
 ;(put 'condition-case 'common-lisp-indent-function '((1 4) (* 2 ((0 1) (1 3) (2 &body)))))
+;(put 'defclass 'common-lisp-indent-function '((&whole 2 &rest (&whole 2 &rest 1) &rest (&whole 2 &rest 1)))
+;(put 'defgeneric 'common-lisp-indent-function 'defun)
 
 ;;; cl-indent.el ends here