From 30598da5fb164cb4fe10d8453073be07213d184e Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Mon, 17 Jan 2005 09:54:56 +0000 Subject: [PATCH] (xterm-mouse-event): Set new optional fourth arg in posn-x-y to t to access left-margin. --- lisp/ChangeLog | 2 +- 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 @@ 2005-01-17 Nick Roberts * 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 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 ;; 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 -- 2.39.5