[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mwheel.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mwheel.el [lexbind] |
Date: |
Tue, 14 Oct 2003 19:52:11 -0400 |
Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.13.2.1 emacs/lisp/mwheel.el:1.13.2.2
*** emacs/lisp/mwheel.el:1.13.2.1 Fri Apr 4 01:20:10 2003
--- emacs/lisp/mwheel.el Tue Oct 14 19:51:20 2003
***************
*** 35,41 ****
;; To enable this code, simply put this at the top of your .emacs
;; file:
;;
! ;; (mwheel-install)
;;; Code:
--- 35,41 ----
;; To enable this code, simply put this at the top of your .emacs
;; file:
;;
! ;; (mouse-wheel-mode 1)
;;; Code:
***************
*** 58,65 ****
'mouse-wheel-down-event)
(defcustom mouse-wheel-down-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
! (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
! mouse-wheel-down-button))
"Event used for scrolling down."
:group 'mouse
:type 'symbol
--- 58,67 ----
'mouse-wheel-down-event)
(defcustom mouse-wheel-down-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
! (if (memq system-type '(windows-nt macos darwin))
! 'wheel-up
! (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
! mouse-wheel-down-button)))
"Event used for scrolling down."
:group 'mouse
:type 'symbol
***************
*** 70,77 ****
'mouse-wheel-up-event)
(defcustom mouse-wheel-up-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
! (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
! mouse-wheel-up-button))
"Event used for scrolling down."
:group 'mouse
:type 'symbol
--- 72,81 ----
'mouse-wheel-up-event)
(defcustom mouse-wheel-up-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
! (if (memq system-type '(windows-nt macos darwin))
! 'wheel-down
! (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
! mouse-wheel-up-button)))
"Event used for scrolling down."
:group 'mouse
:type 'symbol
***************
*** 105,111 ****
Elements of the list have the form (MODIFIERS . AMOUNT) or just AMOUNT if
MODIFIERS is nil.
! AMOUNT should be the number of lines to scroll, or `nil' for near full
screen. It can also be a floating point number, specifying the fraction of
a full screen to scroll. A near full screen is `next-screen-context-lines'
less than a full screen."
--- 109,115 ----
Elements of the list have the form (MODIFIERS . AMOUNT) or just AMOUNT if
MODIFIERS is nil.
! AMOUNT should be the number of lines to scroll, or nil for near full
screen. It can also be a floating point number, specifying the fraction of
a full screen to scroll. A near full screen is `next-screen-context-lines'
less than a full screen."
***************
*** 246,249 ****
--- 250,254 ----
(provide 'mwheel)
+ ;;; arch-tag: 50ed00e7-3686-4b7a-8037-fb31aa5c237f
;;; mwheel.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mwheel.el [lexbind],
Miles Bader <=