Add defclass, define-condition, defmethod, symbol-macrolet.

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index c4af6c4df9d503d49faf08d1cfe0ff04d418e870..11416ae532eb98846444db82e286e5ba95476c8d 100644 (file)
--- 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)