Anonymous

; scrolling in place
(global-set-key (kbd "s-<up>") 'my-scroll-up-in-place)
(global-set-key (kbd "s-<down>") 'my-scroll-down-in-place)
(global-set-key (kbd "s-<mouse4>") 'my-scroll-up-in-place)
(global-set-key (kbd "s-<mouse5>") 'my-scroll-down-in-place)

(defun my-scroll-up-in-place ()
  (interactive)
  (scroll-down 1))

(defun my-scroll-down-in-place ()
  (interactive)
  (scroll-up 1))