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

80711:3c8c80b9ca33

    (beginning-of-line)
    (if (zerop count)
	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.")
      nil)))

(defun f90-end-of-subprogram ()
  "Move point to the end of the current subprogram.
Return (TYPE NAME), or nil if not found."

    ;; This means f90-end-of-subprogram followed by f90-start-of-subprogram
    ;; has a net non-zero effect, which seems odd.
;;;    (forward-line 1)
    (if (zerop count)
	matching-end
      (message "No end found.")
      nil)))


(defun f90-end-of-block (&optional num)
  "Move point forward to the end of the current code block.

80712:84876a89aba6

    (beginning-of-line)
    (if (zerop count)
	matching-beg
      ;; Note this includes the case of an un-named main program,
      ;; in which case we go to (point-min).
      (if (interactive-p) (message "No beginning found."))
      nil)))

(defun f90-end-of-subprogram ()
  "Move point to the end of the current subprogram.
Return (TYPE NAME), or nil if not found."

    ;; This means f90-end-of-subprogram followed by f90-start-of-subprogram
    ;; has a net non-zero effect, which seems odd.
;;;    (forward-line 1)
    (if (zerop count)
	matching-end
      (if (interactive-p) (message "No end found."))
      nil)))


(defun f90-end-of-block (&optional num)
  "Move point forward to the end of the current code block.