# HG changeset patch
# User jwe
# Date 832783272 0
# Node ID b1ae27b474b333e35bf369064bbe0b31970c52ee
# Parent  9d4f68186c83081c5f52d8b7467545c9bc4945d3
[project @ 1996-05-22 16:41:12 by jwe]

diff -r 9d4f68186c83 -r b1ae27b474b3 emacs/octave.el
--- 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.