# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 947202373 0
# Node ID e9725bb98b6edfd9d6481e621124b8e9c0eb0491
# Parent  6eba745035563d2bef5b845c909d2371cbb0d5bb
Add defclass, define-condition, defmethod, symbol-macrolet.

diff -r 6eba74503556 -r e9725bb98b6e lisp/emacs-lisp/cl-indent.el
--- a/lisp/emacs-lisp/cl-indent.el	Thu Jan 06 23:38:46 2000 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Thu Jan 06 23:46:13 2000 +0000
@@ -380,9 +380,15 @@
 	   (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 @@
 	   (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 @@
 	   (progv       (4 4 &body))
 	   (return 0)
 	   (return-from (nil &body))
+	   (symbol-macrolet . multiple-value-bind)
 	   (tagbody     lisp-indent-tagbody)
 	   (throw 1)
 	   (unless 1)