From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 15 Mar 2002 08:57:55 +0000 (+0000)
Subject: (common-lisp-loop-part-indentation):
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/93097873576ec630784db76386e4edc2a7307d9a

(common-lisp-loop-part-indentation):
Fix simple loop indentation.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe6b959481..fef8cc68bc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-15  Gerd Moellmann  <gerd@gnu.org>
+
+	* emacs-lisp/cl-indent.el (common-lisp-loop-part-indentation):
+	Fix simple loop indentation.
+
 2002-03-14  Miles Bader  <miles@gnu.org>
 
 	* net/rlogin.el (rlogin-mode): Use `define-derived-mode'.
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 6b40051193..18149901a0 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -127,7 +127,7 @@ If nil, indent backquoted lists as data, i.e., like quoted lists."
     (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