procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Dave Love 2000-01-06 23:46:13 +00:00
parent fd9b0a6b13
commit 2ac6f2c837
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-indent.el
View file

@ -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))
(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)