Mercurial > emacs

changeset 21102:363bd52feeb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace changes.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Mar 1998 00:26:27 +0000
parents 60552d83a97f
children 8e12f5209e37
files lisp/emacs-lisp/cl-indent.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-indent.el	Sun Mar 08 00:25:49 1998 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Sun Mar 08 00:26:27 1998 +0000
@@ -377,7 +377,8 @@
 	   (cond        (&rest (&whole 2 &rest 1)))
 	   (block 1)
 	   (defvar      (4 2 2))
-	   (defconstant . defvar) (defparameter . defvar)
+	   (defconstant . defvar)
+	   (defparameter . defvar)
 	   (define-modify-macro
 			(4 &body))
 	   (define-setf-method
@@ -402,7 +403,7 @@
 	   (if          (nil nil &body))
 	   ;; single-else style (then and else equally indented)
 	   (if          (&rest nil))
-	   ;(lambda     ((&whole 4 &rest 1) &body))
+	   ;; (lambda     ((&whole 4 &rest 1) &body))
 	   (lambda      ((&whole 4 &rest 1)
 			 &rest lisp-indent-function-lambda-hack))
 	   (let         ((&whole 4 &rest (&whole 1 1 2)) &body))
@@ -410,10 +411,13 @@
 	   (compiler-let . let) ;barf
 	   (locally 1)
 	   ;(loop ...)
-	   (multiple-value-bind ((&whole 6 &rest 1) 4 &body))
-	   (multiple-value-call (4 &body))
+	   (multiple-value-bind 
+			((&whole 6 &rest 1) 4 &body))
+	   (multiple-value-call
+			(4 &body))
 	   (multiple-value-prog1 1)
-	   (multiple-value-setq (4 2))
+	   (multiple-value-setq
+			(4 2))
 	   (multiple-value-setf . multiple-value-setq)
 	   ;; Combines the worst features of BLOCK, LET and TAGBODY
 	   (prog        ((&whole 4 &rest 1) &rest lisp-indent-tagbody))