From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Mar 1998 00:26:27 +0000 (+0000)
Subject: Whitespace changes.
X-Git-Tag: emacs-20.3~1972
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7bd1de9193ad212a8d23f03970ba4cade1e67209;p=emacs.git

Whitespace changes.
---

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index c072cac0c7e..2abcc8d7963 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -377,7 +377,8 @@ by `lisp-body-indent'."
 	   (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 @@ by `lisp-body-indent'."
 	   (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 @@ by `lisp-body-indent'."
 	   (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))