これでどうか

(setq prefix:move-strategy (list (lambda (arg) (move-to-window-line arg)
(message "rel"))
(lambda (arg) (goto-char (window-start (selected-window)))
(message "top"))
(lambda (arg) (goto-char (window-end (selected-window)))
(message "bottom")))
prefix:move-strategy-cur-index 0)
(defun prefix:move-point (p)
(interactive "P")
(if (or (not (eq this-command real-last-command))
(< 2 prefix:move-strategy-cur-index))
(setq prefix:move-strategy-cur-index 0))
(progn (funcall (nth prefix:move-strategy-cur-index prefix:move-strategy) p)
(incf prefix:move-strategy-cur-index)))
(global-set-key (kbd "M-r") 'prefix:move-point)