diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-27 17:02:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-27 17:02:18 +0000 |
| commit | 5b1a29ab54dd4dea3033c15715062a893d228452 (patch) | |
| tree | ce50b29e479fdf34a265281fb4f4e00401a3bd03 /lisp/progmodes/icon.el | |
| parent | b10e147ce505192ebfbb339ccee8537e32c802c8 (diff) | |
| download | emacs-5b1a29ab54dd4dea3033c15715062a893d228452.tar.gz | |
(indent-icon-exp): Bind last-depth.
Consistently use inner-loop-done, not innerloop-done.
Diffstat (limited to 'lisp/progmodes/icon.el')
| -rw-r--r-- | lisp/progmodes/icon.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el index fa13aa2595d..dd81cb42bf5 100644 --- a/lisp/progmodes/icon.el +++ b/lisp/progmodes/icon.el @@ -511,7 +511,7 @@ Returns nil if line starts inside a string, t if in a comment." (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 @@ Returns nil if line starts inside a string, t if in a comment." ;; 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 @@ Returns nil if line starts inside a string, t if in a comment." (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 |