# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1218398969 0
# Node ID 84876a89aba6d5c80ec607d2b4af35db8ace8221
# Parent  3c8c80b9ca33abb434732cb17f5ea09d18c84b8a
(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
message when interactive (sync from trunk 2008-06-12).

diff -r 3c8c80b9ca33 -r 84876a89aba6 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Sun Aug 10 20:09:13 2008 +0000
+++ b/lisp/progmodes/f90.el	Sun Aug 10 20:09:29 2008 +0000
@@ -1234,7 +1234,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 ()
@@ -1259,7 +1259,7 @@
 ;;;    (forward-line 1)
     (if (zerop count)
 	matching-end
-      (message "No end found.")
+      (if (interactive-p) (message "No end found."))
       nil)))