Mercurial > hg > octave-nkf

changeset 2249:40e70a680c0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-05-22 15:07:11 by jwe]
author jwe
date Wed, 22 May 1996 15:07:11 +0000
parents 2e4be59df9f9
children 9d4f68186c83
files emacs/octave.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/emacs/octave.el
+++ b/emacs/octave.el
@@ -849,7 +849,12 @@
 
 (defun octave-electric-semi ()
   (interactive)
-  (if (and (not (octave-is-in-string-p (point))) octave-auto-newline)
+  (if (and (not (octave-is-in-string-p (point)))
+	   octave-auto-newline
+	   (not (save-excursion
+		  (and
+		   (re-search-backward "\\s<" (octave-point 'bol) t)
+		   (not (octave-is-in-string-p (point)))))))
       (progn
 	(insert ";")
 	(octave-indent-line)