diff options
author | Glenn Morris <[email protected]> | 2008-06-12 03:48:15 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2008-06-12 03:48:15 +0000 |
commit | 575b6746370055b271a0b2133584b7b022192515 (patch) | |
tree | 09251dba8c0e063ccbce99034ec735cd98ec1a23 /lisp | |
parent | a19a8f1be865e12532f1dbc154f78de0f4d4bbb1 (diff) |
(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
message when interactive.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/progmodes/f90.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index ce3237cdff..15cce1412d 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))) |