;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:21 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mwheel.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mwheel.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'custom) (defalias 'mouse-wheel-change-button #[(var button) "\303 \"\210\n\205\302\304!\210\302\305!\207" [var button mouse-wheel-mode set-default 0 1] 3]) #@41 Mouse button number for scrolling down. (custom-declare-variable 'mouse-wheel-down-button '4 '(#$ . 783) :group 'mouse :type 'integer :set 'mouse-wheel-change-button) #@39 Mouse button number for scrolling up. (custom-declare-variable 'mouse-wheel-up-button '5 '(#$ . 956) :group 'mouse :type 'integer :set 'mouse-wheel-change-button) #@411 Amount to scroll windows by when spinning the mouse wheel. This is actually a cons cell, where the first item is the amount to scroll on a normal wheel event, and the second is the amount to scroll when the wheel is moved with the shift key depressed. Each item should be the number of lines to scroll, or `nil' for near full screen. A near full screen is `next-screen-context-lines' less than a full screen. (custom-declare-variable 'mouse-wheel-scroll-amount ''(5 . 1) '(#$ . 1126) :group 'mouse :type '(cons (choice :tag "Normal" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines")) (choice :tag "Shifted" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines")))) #@141 Whether the mouse wheel should scroll the window that the mouse is over. This can be slightly disconcerting, but some people may prefer it. (custom-declare-variable 'mouse-wheel-follow-mouse 'nil '(#$ . 1844) :group 'mouse :type 'boolean) (byte-code "\300\301!\204 \302\303M\210\202\302\301M\210\300\304!\204\305\306M\210\202\"\305\304M\210\300\207" [fboundp event-button mwheel-event-button #[(event) "\302\303!!\304\305 \"\204\306\307\"\210\310 \311\224\311\225O!)\207" [event x symbol-name event-basic-type string-match "^mouse-\\([0-9]+\\)" error "Not a button event: %S" string-to-int 1] 4] event-window mwheel-event-window #[(event) "\3028)\303 8)\207" [event position 1 0] 2]] 2) (defalias 'mwheel-scroll #[(event) "\205\f\306 \307\310 !!\210\311\312 !>\203\nA\202\n@\313\216\314 !\211U\2030\315 !\202@ U\203=\316 !\202@\317\320!,\207" [mouse-wheel-follow-mouse event mouse-wheel-scroll-amount amt curwin button selected-window select-window mwheel-event-window shift event-modifiers ((byte-code "\203\301!\210\301\207" [curwin select-window] 2)) mwheel-event-button scroll-down scroll-up error "Bad binding in mwheel-scroll" mouse-wheel-down-button mouse-wheel-up-button] 5 nil "e"]) #@227 Non-nil if Mouse-Wheel mode is enabled. See the command `mouse-wheel-mode' for a description of this minor-mode. Setting this variable directly does not take effect; use either \[customize] or the function `mouse-wheel-mode'. (custom-declare-variable 'mouse-wheel-mode 'nil '(#$ . 3079) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'mouse :type 'boolean :require 'mwheel) #@136 Toggle mouse wheel support. With prefix argument ARG, turn on if positive, otherwise off. Returns non-nil if the new state is enabled. (defalias 'mouse-wheel-mode #[(&optional arg) "\203\f\306!\307V\202 ?\310\311!\2034\312\313\314\n\"!\312\313\314 \"!\211\315\316 D!\f\315\316\fD!F*\202b\312\313\317\n\"!\312\313\320\n\"!\312\313\317 \"!\312\313\320 \"!\315 !\315!\315\f!\315!F,\321\322\323\217\210)\324\325 \203t\326\202u\327\"\210t\203\210\330\331 \203\205\332\202\206\333\"\210\334 \210 \207" [arg mouse-wheel-mode mouse-wheel-down-button mouse-wheel-up-button up down prefix-numeric-value 0 featurep xemacs intern format "button%d" vector shift "mouse-%d" "S-mouse-%d" nil (byte-code "\305\211\203.\n@ \203\306\f \307#\210\202'\310\f \"\307=\203'\306\f \305#\210\nA\211\204*\305\207" [keys key #1=#:--dolist-temp--97271 mouse-wheel-mode global-map nil define-key mwheel-scroll lookup-key] 5) ((error)) run-hooks mouse-wheel-mode-hook mouse-wheel-mode-on-hook mouse-wheel-mode-off-hook message "Mouse-Wheel mode %sabled" "en" "dis" force-mode-line-update s-up s-down keys] 8 (#$ . 3518) nil]) #@53 Hook run at the end of function `mouse-wheel-mode'. (custom-declare-variable 'mouse-wheel-mode-hook 'nil '(#$ . 4659) :group 'mouse :type 'hook) (byte-code "\303\301\304\305\306!\205 \306J#\210\203 \203\n\204\307\310\"\210\304\207" [load-file-name mouse-wheel-mode purify-flag add-minor-mode nil boundp mouse-wheel-mode-map eval-after-load (mouse-wheel-mode 1)] 5) #@29 Enable mouse wheel support. (defalias 'mwheel-install #[(&optional uninstall) "\300\301!\207" [mouse-wheel-mode t] 2 (#$ . 5039)]) (provide 'mwheel)