Mercurial > emacs

comparison lisp/mwheel.el @ 33193:d70bb5e33b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-wheel-mode): Drop unneeded positional args.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 03 Nov 2000 22:30:09 +0000
parents 553975760fe9
children 791ce66d397e
comparison
equal deleted inserted replaced
33192:76b47f37d61c 33193:d70bb5e33b91
96 96
97 97
98 ;;; Note this definition must be at the end of the file, because 98 ;;; Note this definition must be at the end of the file, because
99 ;;; `define-minor-mode' actually calls the mode-function if the 99 ;;; `define-minor-mode' actually calls the mode-function if the
100 ;;; associated variable is non-nil, which requires that all needed 100 ;;; associated variable is non-nil, which requires that all needed
101 ;;; functions be already defined. [This is arguably a bug in d-m-m] 101 ;;; functions be already defined.
102 ;;;###autoload 102 ;;;###autoload
103 (define-minor-mode mouse-wheel-mode 103 (define-minor-mode mouse-wheel-mode
104 "Toggle mouse wheel support. 104 "Toggle mouse wheel support.
105 With prefix argument ARG, turn on if positive, otherwise off. 105 With prefix argument ARG, turn on if positive, otherwise off.
106 Returns non-nil if the new state is enabled." 106 Returns non-nil if the new state is enabled."
107 nil nil nil
108 :global t 107 :global t
109 :group 'mouse 108 :group 'mouse
110 ;; In the latest versions of XEmacs, we could just use 109 ;; In the latest versions of XEmacs, we could just use
111 ;; (S-)*mouse-[45], since those are aliases for the button 110 ;; (S-)*mouse-[45], since those are aliases for the button
112 ;; equivalents in XEmacs, but I want this to work in as many 111 ;; equivalents in XEmacs, but I want this to work in as many