# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 889316787 0
# Node ID 363bd52feeb2b701390ba49883a6025024ce8524
# Parent  60552d83a97fba32fff616686eb7ab0f365c1b78
Whitespace changes.

diff -r 60552d83a97f -r 363bd52feeb2 lisp/emacs-lisp/cl-indent.el
--- 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))