[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/octave-mod.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/octave-mod.el,v |
Date: |
Sat, 13 Oct 2007 20:09:15 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/10/13 20:09:14
Index: octave-mod.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/octave-mod.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- octave-mod.el 13 Oct 2007 20:01:20 -0000 1.40
+++ octave-mod.el 13 Oct 2007 20:09:14 -0000 1.41
@@ -582,16 +582,19 @@
(< pos (point)))))
(defun octave-looking-at-kw (regexp)
+ "Like `looking-at', but sets `case-fold-search' nil."
(let ((case-fold-search nil))
(looking-at regexp)))
-(defun octave-re-search-forward-kw (regexp)
+(defun octave-re-search-forward-kw (regexp count)
+ "Like `re-search-forward', but sets `case-fold-search' nil, and moves point."
(let ((case-fold-search nil))
- (re-search-forward regexp nil 'move inc)))
+ (re-search-forward regexp nil 'move count)))
-(defun octave-re-search-backward-kw (regexp)
+(defun octave-re-search-backward-kw (regexp count)
+ "Like `re-search-backward', but sets `case-fold-search' nil, and moves
point."
(let ((case-fold-search nil))
- (re-search-backward regexp nil 'move inc)))
+ (re-search-backward regexp nil 'move count)))
(defun octave-in-defun-p ()
"Return t if point is inside an Octave function declaration.
@@ -867,7 +870,7 @@
(while (/= count 0)
(catch 'foo
(while (or (octave-re-search-forward-kw
- octave-block-begin-or-end-regexp)
+ octave-block-begin-or-end-regexp inc)
(if (/= depth 0)
(error "Unbalanced block")))
(if (octave-not-in-string-or-comment-p)
@@ -1037,7 +1040,7 @@
(skip-syntax-forward "w"))
(while (and (/= arg 0)
(setq found
- (octave-re-search-backward-kw "\\<function\\>")))
+ (octave-re-search-backward-kw "\\<function\\>" inc)))
(if (octave-not-in-string-or-comment-p)
(setq arg (- arg inc))))
(if found