Mercurial > octave-nkf

changeset 2251:b1ae27b474b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-05-22 16:41:12 by jwe]
author jwe
date Wed, 22 May 1996 16:41:12 +0000
parents 9d4f68186c83
children 65463608112d
files emacs/octave.el
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/emacs/octave.el	Wed May 22 16:00:25 1996 +0000
+++ b/emacs/octave.el	Wed May 22 16:41:12 1996 +0000
@@ -681,12 +681,17 @@
                     (not (eq (octave-previous-statement) 'first-statement))
                     ;; Keep local to subprogram
                     (not (looking-at octave-endfunc-stmt-regexp)))
-
-          (skip-chars-forward " \t")
-          (cond ((looking-at bb-re)
+	  (skip-chars-forward " \t")
+	  (save-excursion
+	    (while (< (point) (octave-point 'eol))
+	      (cond
+	       ((and (looking-at bb-re)
+		     (not (octave-is-in-string-p (point))))
 		 (setq count (- count 1)))
-                ((looking-at eb-re)
-		 (setq count (+ count 1)))))
+	       ((and (looking-at eb-re)
+		     (not (octave-is-in-string-p (point))))
+		 (setq count (+ count 1))))
+	      (forward-char))))
 
 	(and (= count 0)
 	     ;; All pairs accounted for.