Mercurial > emacs

changeset 17974:b7df247f7487

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(indent-icon-exp): Bind last-depth. Consistently use inner-loop-done, not innerloop-done.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 May 1997 17:02:18 +0000
parents 52395fdffffe
children 3f2cc6cc8705
files lisp/progmodes/icon.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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