Mercurial > hg > octave-lojdl
changeset 2248:2e4be59df9f9
[project @ 1996-05-22 07:54:27 by jwe]
author | jwe |
---|---|
date | Wed, 22 May 1996 07:54:27 +0000 |
parents | 108d848901b4 |
children | 40e70a680c0a |
files | emacs/octave.el |
diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/emacs/octave.el +++ b/emacs/octave.el @@ -733,7 +733,7 @@ An abbrev before point is expanded if `abbrev-mode' is non-nil." (interactive) (if abbrev-mode (expand-abbrev)) - (octave-indent-line) + (save-excursion (octave-indent-line)) (newline) (octave-indent-line)) @@ -757,7 +757,8 @@ (have-if 0) (have-func 0) (have-uwp 0) - (have-tc 0)) + (have-tc 0) + (bot (+ (octave-point 'bol) (current-indentation)))) (save-excursion (beginning-of-line) (while (< (point) (octave-point 'eol)) @@ -791,7 +792,7 @@ (progn (if (> xend 0) (setq icol (- icol (* xend octave-stmt-indent))) - (if (> icol 0) + (if (> (point) bot) (setq icol (- icol octave-stmt-indent)))) (cond ((and (> have-if 0) (looking-at "\\bendif\\b"))