/[emacs]/emacs/lisp/mwheel.el
ViewVC logotype

Diff of /emacs/lisp/mwheel.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by pj, Sun Mar 24 15:25:11 2002 UTC revision 1.12 by pj, Mon Mar 25 11:30:55 2002 UTC
# Line 169  Returns non-nil if the new state is enab Line 169  Returns non-nil if the new state is enab
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

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26