Mercurial > emacs
changeset 80712:84876a89aba6
(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
message when interactive (sync from trunk 2008-06-12).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 10 Aug 2008 20:09:29 +0000 |
| parents | 3c8c80b9ca33 |
| children | 0e103b24e91b |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))