# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1213242495 0
# Node ID c5f85ede892d00378e30e4b24bcdcc9a5612afcb
# Parent  4bbbc2594f0ba84a24cc4b4fb2f2d8001d9e2d70
(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
message when interactive.

diff -r 4bbbc2594f0b -r c5f85ede892d lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Thu Jun 12 02:43:05 2008 +0000
+++ b/lisp/progmodes/f90.el	Thu Jun 12 03:48:15 2008 +0000
@@ -1486,7 +1486,7 @@
         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."
   (interactive)
   (let ((case-fold-search t)
-        (count 1) 
+        (count 1)
         matching-end)
     (end-of-line)
     (while (and (> count 0)
@@ -1511,7 +1511,7 @@
 ;;;    (forward-line 1)
     (if (zerop count)
         matching-end
-      (message "No end found.")
+      (if (interactive-p) (message "No end found"))
       nil)))