Mercurial > emacs
comparison lisp/progmodes/f90.el @ 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 | a1342e6e097a |
children |
comparison
equal
deleted
inserted
replaced
80711:3c8c80b9ca33 | 80712:84876a89aba6 |
---|---|
1232 (beginning-of-line) | 1232 (beginning-of-line) |
1233 (if (zerop count) | 1233 (if (zerop count) |
1234 matching-beg | 1234 matching-beg |
1235 ;; Note this includes the case of an un-named main program, | 1235 ;; Note this includes the case of an un-named main program, |
1236 ;; in which case we go to (point-min). | 1236 ;; in which case we go to (point-min). |
1237 (message "No beginning found.") | 1237 (if (interactive-p) (message "No beginning found.")) |
1238 nil))) | 1238 nil))) |
1239 | 1239 |
1240 (defun f90-end-of-subprogram () | 1240 (defun f90-end-of-subprogram () |
1241 "Move point to the end of the current subprogram. | 1241 "Move point to the end of the current subprogram. |
1242 Return (TYPE NAME), or nil if not found." | 1242 Return (TYPE NAME), or nil if not found." |
1257 ;; This means f90-end-of-subprogram followed by f90-start-of-subprogram | 1257 ;; This means f90-end-of-subprogram followed by f90-start-of-subprogram |
1258 ;; has a net non-zero effect, which seems odd. | 1258 ;; has a net non-zero effect, which seems odd. |
1259 ;;; (forward-line 1) | 1259 ;;; (forward-line 1) |
1260 (if (zerop count) | 1260 (if (zerop count) |
1261 matching-end | 1261 matching-end |
1262 (message "No end found.") | 1262 (if (interactive-p) (message "No end found.")) |
1263 nil))) | 1263 nil))) |
1264 | 1264 |
1265 | 1265 |
1266 (defun f90-end-of-block (&optional num) | 1266 (defun f90-end-of-block (&optional num) |
1267 "Move point forward to the end of the current code block. | 1267 "Move point forward to the end of the current code block. |