169 |
(condition-case () |
(condition-case () |
170 |
(dolist (key keys) |
(dolist (key keys) |
171 |
(cond (mouse-wheel-mode |
(cond (mouse-wheel-mode |
172 |
(define-key (current-global-map) key 'mwheel-scroll)) |
(global-set-key key 'mwheel-scroll)) |
173 |
((eq (lookup-key (current-global-map) key) 'mwheel-scroll) |
((eq (lookup-key (current-global-map) key) 'mwheel-scroll) |
174 |
(define-key (current-global-map) key nil)))) |
(global-unset-key key)))) |
175 |
(error nil)))) |
(error nil)))) |
176 |
|
|
177 |
;;; Compatibility entry point |
;;; Compatibility entry point |