diff options
author | Dave Love <[email protected]> | 2000-01-06 23:46:13 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2000-01-06 23:46:13 +0000 |
commit | 2ac6f2c8373cd28e01b67448296893c721e7ef5d (patch) | |
tree | c032dcf34eb763d307842ebf71898676cf5d47be /lisp/emacs-lisp/cl-indent.el | |
parent | fd9b0a6b132d0a8664850d45e6b2ab514a39db89 (diff) |
Add defclass, define-condition, defmethod, symbol-macrolet.
Diffstat (limited to 'lisp/emacs-lisp/cl-indent.el')
-rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index c4af6c4df9..11416ae532 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -380,9 +380,15 @@ by `lisp-body-indent'." (catch 1) (cond (&rest (&whole 2 &rest 1))) (defvar (4 2 2)) + (defclass ((&whole 4 &rest (&whole 2 &rest 1)) + &rest (&whole 2 &rest 1))) (defconstant . defvar) - (defcustom (4 2 2 2)) + (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)) @@ -390,6 +396,7 @@ by `lisp-body-indent'." (define-setf-method . defun) (define-setf-expander . defun) (defmacro . defun) (defsubst . defun) (deftype . defun) + (defmethod (4 4 (&whole 4 &rest 1) &body)) (defpackage (4 2)) (defstruct ((&whole 4 &rest (&whole 2 &rest 1)) &rest (&whole 2 &rest 1))) @@ -433,6 +440,7 @@ by `lisp-body-indent'." (progv (4 4 &body)) (return 0) (return-from (nil &body)) + (symbol-macrolet . multiple-value-bind) (tagbody lisp-indent-tagbody) (throw 1) (unless 1) |