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)) |