Mercurial > emacs
comparison lisp/term/mac-win.el @ 51463:26fea2099cbc
No need to bind wheel events specially.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Wed, 04 Jun 2003 21:54:08 +0000 |
| parents | b160887e424c |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51462:ba5edb1b9c8b | 51463:26fea2099cbc |
|---|---|
| 239 ;; Make suspend-emacs [C-z] collapse the current frame | 239 ;; Make suspend-emacs [C-z] collapse the current frame |
| 240 (substitute-key-definition 'suspend-emacs 'iconify-frame | 240 (substitute-key-definition 'suspend-emacs 'iconify-frame |
| 241 global-map) | 241 global-map) |
| 242 | 242 |
| 243 ;; Support mouse-wheel scrolling | 243 ;; Support mouse-wheel scrolling |
| 244 (autoload 'mwheel-scroll "mwheel") | 244 (mouse-wheel-mode 1) |
| 245 (global-set-key [mouse-wheel] 'mwheel-scroll) | |
| 246 (global-set-key [C-mouse-wheel] 'mwheel-scroll) | |
| 247 (global-set-key [S-mouse-wheel] 'mwheel-scroll) | |
| 248 | 245 |
| 249 ;; (prefer-coding-system 'mac-roman) | 246 ;; (prefer-coding-system 'mac-roman) |
| 250 | 247 |
| 251 ;; Map certain keypad keys into ASCII characters that people usually expect | 248 ;; Map certain keypad keys into ASCII characters that people usually expect |
| 252 (define-key function-key-map [return] [?\C-m]) | 249 (define-key function-key-map [return] [?\C-m]) |