Scrolling while keeping point fixed

[deech]

Hi all,
The following snippet in my .emacs file allows me scroll while keeping
the cursor at its present location. Please note that C-M-t (transpose-
sexps) is clobbered by these keybindings.

(defun keep-point-and-scroll-down ()
  (interactive)
  (save-excursion
    (View-scroll-line-forward)))

(defun keep-point-and-scroll-up ()
  (interactive)
  (save-excursion
    (View-scroll-line-backward)))

(global-unset-key "\C-\M-y")
(global-set-key   "\C-\M-y" 'keep-point-and-scroll-down)
(global-unset-key "\C-\M-t")
(global-set-key   "\C-\M-t" 'keep-point-and-scroll-up)

-deech