Mercurial > hg > xemacs-beta
comparison lisp/mwheel.el @ 371:cc15677e0335 r21-2b1
Import from CVS: tag r21-2b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:03:08 +0200 |
| parents | a4f53d9b3154 |
| children |
comparison
equal
deleted
inserted
replaced
| 370:bd866891f083 | 371:cc15677e0335 |
|---|---|
| 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) | |
| 104 (let ((keys '([(mouse-4)] [(shift mouse-4)] [(mouse-5)] [(shift mouse-5)]))) | 103 (let ((keys '([(mouse-4)] [(shift mouse-4)] [(mouse-5)] [(shift mouse-5)]))) |
| 105 ;; This condition-case is here because Emacs 19 will throw an error | 104 ;; This condition-case is here because Emacs 19 will throw an error |
| 106 ;; if you try to define a key that it does not know about. I for one | 105 ;; if you try to define a key that it does not know about. I for one |
| 107 ;; prefer to just unconditionally do a mwheel-install in my .emacs, so | 106 ;; prefer to just unconditionally do a mwheel-install in my .emacs, so |
| 108 ;; that if the wheeled-mouse is there, it just works, and this way it | 107 ;; that if the wheeled-mouse is there, it just works, and this way it |