From 050a4b353f423f763e8e625c49df926f14c6f0e3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 13 Oct 2007 20:09:14 +0000 Subject: [PATCH] (octave-looking-at-kw): Add doc string. (octave-re-search-forward-kw, octave-re-search-backward-kw): Add doc string, and an explicit COUNT argument. (octave-scan-blocks, octave-beginning-of-defun): Explicitly pass INC to search functions. --- lisp/progmodes/octave-mod.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el index fe44fcaf4f..b7084950a0 100644 --- a/lisp/progmodes/octave-mod.el +++ b/lisp/progmodes/octave-mod.el @@ -582,16 +582,19 @@ to end after the end keyword." (< 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 @@ an error is signaled." (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 @@ Returns t unless search stops at the beginning or end of the buffer." (skip-syntax-forward "w")) (while (and (/= arg 0) (setq found - (octave-re-search-backward-kw "\\"))) + (octave-re-search-backward-kw "\\" inc))) (if (octave-not-in-string-or-comment-p) (setq arg (- arg inc)))) (if found -- 2.39.2