(xterm-mouse-event): Set new optional fourth arg in

posn-x-y to t to access left-margin.

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 @@
 2005-01-17  Nick Roberts  <nickrob@snap.net.nz>
 
         * xt-mouse.el (xterm-mouse-event): Set new optional fourth arg in
-        posn-x-y to t to access left-margin.
+        posn-at-x-y to t to access left-margin.
 
 2005-01-16  Michael Albinus  <michael.albinus@gmx.de>
 
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 @@
 ;;; xt-mouse.el --- support the mouse when emacs run in an xterm
 
-;; Copyright (C) 1994, 2000, 2001 Free Software Foundation
+;; Copyright (C) 1994, 2000, 2001, 2005 Free Software Foundation
 
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: mouse, terminals
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; Enable mouse support when running inside an xterm or Linux console.
+;; Enable mouse support when running inside an xterm.
 
 ;; This is actually useful when you are running X11 locally, but is
 ;; working on remote machine over a modem line or through a gateway.
@@ -32,15 +32,15 @@
 ;; It works by translating xterm escape codes into generic emacs mouse
 ;; events so it should work with any package that uses the mouse.
 
-;; The xterm mouse escape codes are supposedly also supported by the
-;; Linux console, but I have not been able to verify this.
-
 ;; You don't have to turn off xterm mode to use the normal xterm mouse
 ;; functionality, it is still available by holding down the SHIFT key
 ;; when you press the mouse button.
 
 ;;; Todo:
 
+;; The xterm mouse escape codes are supposedly also supported by the
+;; Linux console, but I have not been able to verify this.
+
 ;; Support multi-click -- somehow.
 
 ;;; Code:
@@ -146,9 +146,9 @@
     (setq xterm-mouse-x x
           xterm-mouse-y y)
     (if w
-        (list mouse (posn-at-x-y (- x left) (- y top) w))
+        (list mouse (posn-at-x-y (- x left) (- y top) w t))
       (list mouse
-            (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w)))))))
+            (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t)))))))
 
 ;;;###autoload
 (define-minor-mode xterm-mouse-mode