Mercurial > hg > octave-lojdl
changeset 2251:b1ae27b474b3
[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 +++ b/emacs/octave.el @@ -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.