[Emacs-diffs] Changes to emacs/lisp/mwheel.el

[Pavel Janík]

Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.11 emacs/lisp/mwheel.el:1.12
*** emacs/lisp/mwheel.el:1.11   Sun Mar 24 10:25:11 2002
--- emacs/lisp/mwheel.el        Mon Mar 25 06:30:55 2002
***************
*** 169,177 ****
      (condition-case ()
        (dolist (key keys)
          (cond (mouse-wheel-mode
!                (define-key (current-global-map) key 'mwheel-scroll))
                ((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
!                (define-key (current-global-map) key nil))))
        (error nil))))
  
  ;;; Compatibility entry point
--- 169,177 ----
      (condition-case ()
        (dolist (key keys)
          (cond (mouse-wheel-mode
!                (global-set-key key 'mwheel-scroll))
                ((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
!                (global-unset-key key))))
        (error nil))))
  
  ;;; Compatibility entry point