Mercurial > octave

changeset 2248:2e4be59df9f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Wed May 22 07:39:29 1996 +0000
+++ b/emacs/octave.el	Wed May 22 07:54:27 1996 +0000
@@ -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"))