mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source 
posn-x-y to t to access left-margin.
This commit is contained in:
Nick Roberts 2005-01-17 09:54:56 +00:00
parent 4177462350
commit 30598da5fb
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

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

14
lisp/xt-mouse.el
View File

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