Mercurial > emacs
comparison lisp/xt-mouse.el @ 61255:321e7372c394
(xterm-mouse-mode): Add explicit Custom group (mouse). Doc fix.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 04 Apr 2005 01:13:59 +0000 |
| parents | 7ce4342aac7f |
| children | a53097b105b0 02f1dbc4a199 |
comparison
equal
deleted
inserted
replaced
| 61254:80445c8b2498 | 61255:321e7372c394 |
|---|---|
| 153 ;;;###autoload | 153 ;;;###autoload |
| 154 (define-minor-mode xterm-mouse-mode | 154 (define-minor-mode xterm-mouse-mode |
| 155 "Toggle XTerm mouse mode. | 155 "Toggle XTerm mouse mode. |
| 156 With prefix arg, turn XTerm mouse mode on iff arg is positive. | 156 With prefix arg, turn XTerm mouse mode on iff arg is positive. |
| 157 | 157 |
| 158 Turn it on to use emacs mouse commands, and off to use xterm mouse commands." | 158 Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. |
| 159 nil " Mouse" nil :global t | 159 This works in terminal emulators compatible with xterm. Only single clicks |
| 160 are supported. When turned on, the normal xterm mouse functionality is still | |
| 161 available by holding down the SHIFT key while pressing the mouse button." | |
| 162 nil " Mouse" nil :global t :group 'mouse | |
| 160 (if xterm-mouse-mode | 163 (if xterm-mouse-mode |
| 161 ;; Turn it on | 164 ;; Turn it on |
| 162 (unless window-system | 165 (unless window-system |
| 163 (setq mouse-position-function #'xterm-mouse-position-function) | 166 (setq mouse-position-function #'xterm-mouse-position-function) |
| 164 (turn-on-xterm-mouse-tracking)) | 167 (turn-on-xterm-mouse-tracking)) |