From 5e6c7c3c8d44bc2545db281cce97a6aa07387d15 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Nov 2004 10:16:51 +0000 Subject: [PATCH] (f90-end-of-block): Don't use interactive-p. --- lisp/progmodes/f90.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 53165fbecb7..a1c4d539dd7 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -1223,14 +1223,16 @@ Return (TYPE NAME), or nil if not found." With optional argument NUM, go forward that many balanced blocks. If NUM is negative, go backward to the start of a block. Checks for consistency of block types and labels (if present), -and completes outermost block if necessary." +and completes outermost block if necessary. +Some of these things (which?) are not done if NUM is nil, +which only happens in a noninteractive call." (interactive "p") (if (and num (< num 0)) (f90-beginning-of-block (- num))) (let ((f90-smart-end nil) ; for the final `f90-match-end' (case-fold-search t) (count (or num 1)) start-list start-this start-type start-label end-type end-label) - (if (interactive-p) (push-mark (point) t)) + (if num (push-mark (point) t)) (end-of-line) ; probably want this (while (and (> count 0) (re-search-forward f90-blocks-re nil 'move)) (beginning-of-line) @@ -1266,7 +1268,7 @@ and completes outermost block if necessary." (end-of-line)) (if (> count 0) (error "Missing block end")) ;; Check outermost block. - (if (interactive-p) + (if num (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9") -- 2.39.5