diff options
| author | Dave Love <fx@gnu.org> | 2000-12-04 17:05:57 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-12-04 17:05:57 +0000 |
| commit | 968880c416332dc6fc8ec2efeba004b36f5d87c9 (patch) | |
| tree | 10605ac7f955c914bb5aedb10d545a7dcd61e862 /lisp/emacs-lisp | |
| parent | 6452929eab47b5cacc38a48b4cdc1309f535018f (diff) | |
| download | emacs-968880c416332dc6fc8ec2efeba004b36f5d87c9.tar.gz emacs-968880c416332dc6fc8ec2efeba004b36f5d87c9.tar.bz2 emacs-968880c416332dc6fc8ec2efeba004b36f5d87c9.zip | |
Remove erroneous spec for condition-case.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |