From: Glenn Morris <rgm@gnu.org>
Date: Thu, 12 Jun 2008 03:48:15 +0000 (+0000)
Subject: (f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
X-Git-Tag: emacs-pretest-23.0.90~4871
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=575b6746370055b271a0b2133584b7b022192515;p=emacs.git

(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
message when interactive.
---

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)))