mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a

Browse source 
message when interactive.
This commit is contained in:
Glenn Morris 2008-06-12 03:48:15 +00:00
parent a19a8f1be8
commit 575b674637
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/f90.el
View file

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