From: Dave Love <fx@gnu.org>
Date: Thu, 6 Jan 2000 23:46:13 +0000 (+0000)
Subject: Add defclass, define-condition, defmethod, symbol-macrolet.
X-Git-Tag: emacs-pretest-21.0.90~5428
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ac6f2c8373cd28e01b67448296893c721e7ef5d;p=emacs.git

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

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)