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

[Pavel Janík]

Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.10 emacs/lisp/mwheel.el:1.11
*** emacs/lisp/mwheel.el:1.10   Sat Mar  2 03:18:12 2002
--- emacs/lisp/mwheel.el        Sun Mar 24 10:25:11 2002
***************
*** 169,177 ****
      (condition-case ()
        (dolist (key keys)
          (cond (mouse-wheel-mode
!                (define-key global-map key 'mwheel-scroll))
!               ((eq (lookup-key global-map key) 'mwheel-scroll)
!                (define-key global-map key nil))))
        (error nil))))
  
  ;;; Compatibility entry point
--- 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