Mercurial > emacs

changeset 95831:c5f85ede892d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a message when interactive.
author Glenn Morris <rgm@gnu.org>
date Thu, 12 Jun 2008 03:48:15 +0000
parents 4bbbc2594f0b
children fc8e5aad9764
files lisp/progmodes/f90.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)))