diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/xt-mouse.el | 14 |
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 880f6413508..ad42bc95756 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | 2005-01-17 Nick Roberts <nickrob@snap.net.nz> | 1 | 2005-01-17 Nick Roberts <nickrob@snap.net.nz> |
| 2 | 2 | ||
| 3 | * xt-mouse.el (xterm-mouse-event): Set new optional fourth arg in | 3 | * xt-mouse.el (xterm-mouse-event): Set new optional fourth arg in |
| 4 | posn-x-y to t to access left-margin. | 4 | posn-at-x-y to t to access left-margin. |
| 5 | 5 | ||
| 6 | 2005-01-16 Michael Albinus <michael.albinus@gmx.de> | 6 | 2005-01-16 Michael Albinus <michael.albinus@gmx.de> |
| 7 | 7 | ||
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 5709834ab91..131f95db7d0 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; xt-mouse.el --- support the mouse when emacs run in an xterm | 1 | ;;; xt-mouse.el --- support the mouse when emacs run in an xterm |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 2000, 2001 Free Software Foundation | 3 | ;; Copyright (C) 1994, 2000, 2001, 2005 Free Software Foundation |
| 4 | 4 | ||
| 5 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 5 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
| 6 | ;; Keywords: mouse, terminals | 6 | ;; Keywords: mouse, terminals |
| @@ -24,7 +24,7 @@ | |||
| 24 | 24 | ||
| 25 | ;;; Commentary: | 25 | ;;; Commentary: |
| 26 | 26 | ||
| 27 | ;; Enable mouse support when running inside an xterm or Linux console. | 27 | ;; Enable mouse support when running inside an xterm. |
| 28 | 28 | ||
| 29 | ;; This is actually useful when you are running X11 locally, but is | 29 | ;; This is actually useful when you are running X11 locally, but is |
| 30 | ;; working on remote machine over a modem line or through a gateway. | 30 | ;; working on remote machine over a modem line or through a gateway. |
| @@ -32,15 +32,15 @@ | |||
| 32 | ;; It works by translating xterm escape codes into generic emacs mouse | 32 | ;; It works by translating xterm escape codes into generic emacs mouse |
| 33 | ;; events so it should work with any package that uses the mouse. | 33 | ;; events so it should work with any package that uses the mouse. |
| 34 | 34 | ||
| 35 | ;; The xterm mouse escape codes are supposedly also supported by the | ||
| 36 | ;; Linux console, but I have not been able to verify this. | ||
| 37 | |||
| 38 | ;; You don't have to turn off xterm mode to use the normal xterm mouse | 35 | ;; You don't have to turn off xterm mode to use the normal xterm mouse |
| 39 | ;; functionality, it is still available by holding down the SHIFT key | 36 | ;; functionality, it is still available by holding down the SHIFT key |
| 40 | ;; when you press the mouse button. | 37 | ;; when you press the mouse button. |
| 41 | 38 | ||
| 42 | ;;; Todo: | 39 | ;;; Todo: |
| 43 | 40 | ||
| 41 | ;; The xterm mouse escape codes are supposedly also supported by the | ||
| 42 | ;; Linux console, but I have not been able to verify this. | ||
| 43 | |||
| 44 | ;; Support multi-click -- somehow. | 44 | ;; Support multi-click -- somehow. |
| 45 | 45 | ||
| 46 | ;;; Code: | 46 | ;;; Code: |
| @@ -146,9 +146,9 @@ | |||
| 146 | (setq xterm-mouse-x x | 146 | (setq xterm-mouse-x x |
| 147 | xterm-mouse-y y) | 147 | xterm-mouse-y y) |
| 148 | (if w | 148 | (if w |
| 149 | (list mouse (posn-at-x-y (- x left) (- y top) w)) | 149 | (list mouse (posn-at-x-y (- x left) (- y top) w t)) |
| 150 | (list mouse | 150 | (list mouse |
| 151 | (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w))))))) | 151 | (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))) |
| 152 | 152 | ||
| 153 | ;;;###autoload | 153 | ;;;###autoload |
| 154 | (define-minor-mode xterm-mouse-mode | 154 | (define-minor-mode xterm-mouse-mode |