# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1016182658 0
# Node ID af0b9648d0181e29b77c3ede3688f4d7df4892cb
# Parent  833c0585a612d3a3b08f9ece4c8d61d85e495ed1
(common-lisp-loop-part-indentation):
Fix simple loop indentation.

diff -r 833c0585a612 -r af0b9648d018 lisp/emacs-lisp/cl-indent.el
--- a/lisp/emacs-lisp/cl-indent.el	Thu Mar 14 21:36:28 2002 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Fri Mar 15 08:57:38 2002 +0000
@@ -127,7 +127,7 @@
     (goto-char indent-point)
     (beginning-of-line)
     (cond ((not (extended-loop-p (elt state 1)))
-	   lisp-simple-loop-indentation)
+	   (+ loop-indentation lisp-simple-loop-indentation))
 	  ((looking-at "^\\s-*\\(:?\\sw+\\|;\\)")
 	   (+ loop-indentation lisp-loop-keyword-indentation))
 	  (t