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

1 files changed, 9 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index c4af6c4df9d..11416ae532e 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)