diff options
| author | Dave Love <fx@gnu.org> | 2000-02-22 11:52:25 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-02-22 11:52:25 +0000 |
| commit | 3d8700e8f12b88386ab09fbe2106e06b8720851e (patch) | |
| tree | a18a29ad84b931d9425744b41f3e53ee99d3395d /lisp/emacs-lisp/cl-indent.el | |
| parent | 130adcb74bdb0669a3e14cc3707cd0492b92ac4f (diff) | |
| download | emacs-3d8700e8f12b88386ab09fbe2106e06b8720851e.tar.gz | |
Remove bogus spec for define-condition.
Diffstat (limited to 'lisp/emacs-lisp/cl-indent.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 2b5ef3420c4..20f2afe8005 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -377,6 +377,7 @@ 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))) @@ -386,10 +387,6 @@ by `lisp-body-indent'." (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)) |