mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(indent-icon-exp): Bind last-depth.

Browse Source 
Consistently use inner-loop-done, not innerloop-done.
This commit is contained in:
Richard M. Stallman 1997-05-27 17:02:18 +00:00
parent b10e147ce5
commit 5b1a29ab54
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/icon.el
View File

@ -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