Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 3241:6c9b5f6dca70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(indent-sexp): Even if outer-loop-done is t, still move down one line.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 May 1993 05:45:47 +0000
parents 420dfaaacfc5
children 507f64624555
comparison
equal deleted inserted replaced
3240:f09230e68f20 3241:6c9b5f6dca70
558 last-depth (- last-depth next-depth) 558 last-depth (- last-depth next-depth)
559 next-depth 0))) 559 next-depth 0)))
560 (or outer-loop-done 560 (or outer-loop-done
561 (setq outer-loop-done (<= next-depth 0))) 561 (setq outer-loop-done (<= next-depth 0)))
562 (if outer-loop-done 562 (if outer-loop-done
563 nil 563 (forward-line 1)
564 (while (> last-depth next-depth) 564 (while (> last-depth next-depth)
565 (setq indent-stack (cdr indent-stack) 565 (setq indent-stack (cdr indent-stack)
566 last-depth (1- last-depth))) 566 last-depth (1- last-depth)))
567 (while (< last-depth next-depth) 567 (while (< last-depth next-depth)
568 (setq indent-stack (cons nil indent-stack) 568 (setq indent-stack (cons nil indent-stack)