From 575b6746370055b271a0b2133584b7b022192515 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 12 Jun 2008 03:48:15 +0000 Subject: [PATCH] (f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a message when interactive. --- lisp/progmodes/f90.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index ce3237cdffb..15cce1412d9 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -1486,7 +1486,7 @@ Return (TYPE NAME), or nil if not found." matching-beg ;; Note this includes the case of an un-named main program, ;; in which case we go to (point-min). - (message "No beginning found.") + (if (interactive-p) (message "No beginning found")) nil))) (defun f90-end-of-subprogram () @@ -1494,7 +1494,7 @@ Return (TYPE NAME), or nil if not found." Return (TYPE NAME), or nil if not found." (interactive) (let ((case-fold-search t) - (count 1) + (count 1) matching-end) (end-of-line) (while (and (> count 0) @@ -1511,7 +1511,7 @@ Return (TYPE NAME), or nil if not found." ;;; (forward-line 1) (if (zerop count) matching-end - (message "No end found.") + (if (interactive-p) (message "No end found")) nil))) -- 2.39.2