# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864752538 0
# Node ID b7df247f7487de61536a7e8686372b1865f2b85f
# Parent  52395fdffffed039ee5bb7cffcc3fef32fee5a95
(indent-icon-exp): Bind last-depth.
Consistently use inner-loop-done, not innerloop-done.

diff -r 52395fdffffe -r b7df247f7487 lisp/progmodes/icon.el
--- a/lisp/progmodes/icon.el	Tue May 27 16:20:16 1997 +0000
+++ b/lisp/progmodes/icon.el	Tue May 27 17:02:18 1997 +0000
@@ -511,7 +511,7 @@
 	(contain-stack (list (point)))
 	(case-fold-search nil)
 	restart outer-loop-done inner-loop-done state ostate
-	this-indent last-sexp
+	this-indent last-sexp last-depth
 	at-else at-brace at-do
 	(opoint (point))
 	(next-depth 0))
@@ -525,8 +525,8 @@
 	;; plus enough other lines to get to one that
 	;; does not end inside a comment or string.
 	;; Meanwhile, do appropriate indentation on comment lines.
-	(setq innerloop-done nil)
-	(while (and (not innerloop-done)
+	(setq inner-loop-done nil)
+	(while (and (not inner-loop-done)
 		    (not (and (eobp) (setq outer-loop-done t))))
 	  (setq ostate state)
 	  (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
@@ -539,7 +539,7 @@
 	      (icon-indent-line))
 	  (if (or (nth 3 state))
 	      (forward-line 1)
-	    (setq innerloop-done t)))
+	    (setq inner-loop-done t)))
 	(if (<= next-depth 0)
 	    (setq outer-loop-done t))
 	(if outer-loop-done