Mercurial > hg > xemacs-beta

comparison lisp/mwheel.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 3ecd8885ac67
children c33ae14dd6d0
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
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