... it (and a few other variations that I tried) does not work on my machine. I found and tried the following, which did not do what it was supposed to do (scroll with different line steps depending on whether control or shift keys are also pressed). The simple scroll-up/down is bound to the wheel ok, but when control or shift is also pressed, nothing happens (it does not even scroll regularly). ;; scroll on wheel of mouses (if (not (boundp 'MULE))(if (featurep 'xemacs) (progn (define-key global-map 'button4 '(lambda (&rest args) (interactive) (let ((curwin (selected-window))) (select-window (car (mouse-pixel-position))) (scroll-down 5) (select-window curwin)))) (define-key global-map [(shift button4)] '(lambda (&rest args) (interactive) (let ((curwin (selected-window))) (select-window (car (mouse-pixel-position))) (scroll-down 1) (select-window curwin)))) (define-key global-map [(control button4)] '(lambda (&rest args) (interactive) (let ((curwin (selected-window))) (select-window (car (mouse-pixel-position))) (scroll-down) (select-window curwin)))) (define-key global-map 'button5 '(lambda (&rest args) (interactive) (let ((curwin (selected-window))) (select-window (car (mouse-pixel-position))) (scroll-up 5) (select-window curwin)))) (define-key global-map [(shift button5)] '(lambda (&rest args) (interactive) (let ((curwin (selected-window))) (select-window (car (mouse-pixel-position))) (scroll-up 1) (select-window curwin)))) (define-key global-map [(control button5)] '(lambda (&rest args) (interactive) (let ((curwin (selected-window))) (select-window (car (mouse-pixel-position))) (scroll-up) (select-window curwin)))) ))) Sirano -----Original Message----- From: xemacs-beta-bounces(a)xemacs.org [mailto:xemacs-beta-bounces＠xemacs.org] On Behalf Of Sean MacLennan Sent: Saturday, October 16, 2010 1:07 PM To: Sirano Dhe-Paganon Cc: xemacs-beta(a)xemacs.org Subject: Re: zoom on-the-fly in xemacs On Fri, 15 Oct 2010 12:52:04 -0400 "Sirano Dhe-Paganon" <sirano.dhepaganon(a)utoronto.ca&gt; wrote: Try this: (global-set-key [(control button4)] 'facemenu-make-smaller) (global-set-key [(control button5)] 'facemenu-make-larger) Cheers, Sean _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta