Mercurial > emacs
comparison lisp/xt-mouse.el @ 46836:cd975daf6365
* xt-mouse.el (xterm-mouse-mode): Make it a global mode.
* wid-browse.el (widget-minor-mode): Fix doc typo.
author | John Paul Wallington <jpw@pobox.com> |
---|---|
date | Wed, 07 Aug 2002 21:46:49 +0000 |
parents | 53a8da1bdd13 |
children | e88404e8f2cf |
comparison
equal
deleted
inserted
replaced
46835:df25ef3d3237 | 46836:cd975daf6365 |
---|---|
162 (define-minor-mode xterm-mouse-mode | 162 (define-minor-mode xterm-mouse-mode |
163 "Toggle XTerm mouse mode. | 163 "Toggle XTerm mouse mode. |
164 With prefix arg, turn XTerm mouse mode on iff arg is positive. | 164 With prefix arg, turn XTerm mouse mode on iff arg is positive. |
165 | 165 |
166 Turn it on to use emacs mouse commands, and off to use xterm mouse commands." | 166 Turn it on to use emacs mouse commands, and off to use xterm mouse commands." |
167 nil " Mouse" nil | 167 nil " Mouse" nil :global t |
168 (if xterm-mouse-mode | 168 (if xterm-mouse-mode |
169 ;; Turn it on | 169 ;; Turn it on |
170 (unless window-system | 170 (unless window-system |
171 (setq mouse-position-function #'xterm-mouse-position-function) | 171 (setq mouse-position-function #'xterm-mouse-position-function) |
172 (turn-on-xterm-mouse-tracking)) | 172 (turn-on-xterm-mouse-tracking)) |