[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mwheel.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mwheel.el |
Date: |
Sun, 24 Mar 2002 10:25:11 -0500 |
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