Mercurial > emacs
comparison lisp/mwheel.el @ 33193:d70bb5e33b91
(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 |