Mercurial > hg > xemacs-beta

comparison lisp/mwheel.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 8efd647ea9ca
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
98 (if curwin (select-window curwin)))) 98 (if curwin (select-window curwin))))
99 99
100 ;;;###autoload 100 ;;;###autoload
101 (defun mwheel-install () 101 (defun mwheel-install ()
102 "Enable mouse wheel support." 102 "Enable mouse wheel support."
103 (interactive)
103 (let ((keys '([(mouse-4)] [(shift mouse-4)] [(mouse-5)] [(shift mouse-5)]))) 104 (let ((keys '([(mouse-4)] [(shift mouse-4)] [(mouse-5)] [(shift mouse-5)])))
104 ;; This condition-case is here because Emacs 19 will throw an error 105 ;; This condition-case is here because Emacs 19 will throw an error
105 ;; if you try to define a key that it does not know about. I for one 106 ;; if you try to define a key that it does not know about. I for one
106 ;; prefer to just unconditionally do a mwheel-install in my .emacs, so 107 ;; prefer to just unconditionally do a mwheel-install in my .emacs, so
107 ;; that if the wheeled-mouse is there, it just works, and this way it 108 ;; that if the wheeled-mouse is there, it just works, and this way it