Mercurial > emacs

changeset 27231:e9725bb98b6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add defclass, define-condition, defmethod, symbol-macrolet.
author Dave Love <fx@gnu.org>
date Thu, 06 Jan 2000 23:46:13 +0000
parents 6eba74503556
children 1c7665b7a026
files lisp/emacs-lisp/cl-indent.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)