2001-07-16 12:23:00 +00:00
|
|
|
;;; xt-mouse.el --- support the mouse when emacs run in an xterm
|
1996-01-14 07:34:30 +00:00
|
|
|
|
2015-01-01 22:26:41 +00:00
|
|
|
;; Copyright (C) 1994, 2000-2015 Free Software Foundation, Inc.
|
1995-10-09 17:08:20 +00:00
|
|
|
|
1997-05-27 21:26:13 +00:00
|
|
|
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
1995-10-09 17:08:20 +00:00
|
|
|
;; Keywords: mouse, terminals
|
|
|
|
|
1996-01-14 07:34:30 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1995-10-09 17:08:20 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
1996-01-14 07:34:30 +00:00
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
1995-10-09 17:08:20 +00:00
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
1996-01-14 07:34:30 +00:00
|
|
|
|
1995-10-09 17:08:20 +00:00
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2000-02-22 11:57:31 +00:00
|
|
|
;;; Commentary:
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2005-01-17 09:54:56 +00:00
|
|
|
;; Enable mouse support when running inside an xterm.
|
1995-10-09 17:08:20 +00:00
|
|
|
|
|
|
|
;; This is actually useful when you are running X11 locally, but is
|
|
|
|
;; working on remote machine over a modem line or through a gateway.
|
|
|
|
|
|
|
|
;; It works by translating xterm escape codes into generic emacs mouse
|
|
|
|
;; events so it should work with any package that uses the mouse.
|
|
|
|
|
1996-03-04 21:24:28 +00:00
|
|
|
;; 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.
|
|
|
|
|
1995-10-09 17:08:20 +00:00
|
|
|
;;; Todo:
|
|
|
|
|
|
|
|
;; Support multi-click -- somehow.
|
|
|
|
|
2000-02-22 11:57:31 +00:00
|
|
|
;;; Code:
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2007-05-12 09:39:06 +00:00
|
|
|
(defvar xterm-mouse-debug-buffer nil)
|
|
|
|
|
2011-04-19 13:44:55 +00:00
|
|
|
(defun xterm-mouse-translate (_event)
|
2000-02-22 11:57:31 +00:00
|
|
|
"Read a click and release event from XTerm."
|
2012-07-14 15:40:12 +00:00
|
|
|
(xterm-mouse-translate-1))
|
|
|
|
|
|
|
|
(defun xterm-mouse-translate-extended (_event)
|
|
|
|
"Read a click and release event from XTerm.
|
|
|
|
Similar to `xterm-mouse-translate', but using the \"1006\"
|
|
|
|
extension, which supports coordinates >= 231 (see
|
|
|
|
http://invisible-island.net/xterm/ctlseqs/ctlseqs.html)."
|
|
|
|
(xterm-mouse-translate-1 1006))
|
|
|
|
|
|
|
|
(defun xterm-mouse-translate-1 (&optional extension)
|
1995-10-09 17:08:20 +00:00
|
|
|
(save-excursion
|
2014-07-08 18:47:47 +00:00
|
|
|
(let* ((event (xterm-mouse-event extension))
|
|
|
|
(ev-command (nth 0 event))
|
|
|
|
(ev-data (nth 1 event))
|
|
|
|
(ev-where (nth 1 ev-data))
|
|
|
|
(vec (vector event))
|
2015-03-25 01:04:00 +00:00
|
|
|
(is-move (eq 'mouse-movement ev-command))
|
2014-07-08 18:47:47 +00:00
|
|
|
(is-down (string-match "down-" (symbol-name ev-command))))
|
|
|
|
|
2014-10-21 20:11:22 +00:00
|
|
|
;; Mouse events symbols must have an 'event-kind property with
|
|
|
|
;; the value 'mouse-click.
|
|
|
|
(when ev-command (put ev-command 'event-kind 'mouse-click))
|
|
|
|
|
2014-07-08 18:47:47 +00:00
|
|
|
(cond
|
|
|
|
((null event) nil) ;Unknown/bogus byte sequence!
|
|
|
|
(is-down
|
|
|
|
(setf (terminal-parameter nil 'xterm-mouse-last-down) event)
|
|
|
|
vec)
|
2015-03-25 01:04:00 +00:00
|
|
|
(is-move vec)
|
2014-07-08 18:47:47 +00:00
|
|
|
(t
|
|
|
|
(let* ((down (terminal-parameter nil 'xterm-mouse-last-down))
|
|
|
|
(down-data (nth 1 down))
|
|
|
|
(down-where (nth 1 down-data)))
|
|
|
|
(setf (terminal-parameter nil 'xterm-mouse-last-down) nil)
|
|
|
|
(cond
|
|
|
|
((null down)
|
|
|
|
;; This is an "up-only" event. Pretend there was an up-event
|
|
|
|
;; right before and keep the up-event for later.
|
|
|
|
(push event unread-command-events)
|
|
|
|
(vector (cons (intern (replace-regexp-in-string
|
|
|
|
"\\`\\([ACMHSs]-\\)*" "\\&down-"
|
|
|
|
(symbol-name ev-command) t))
|
|
|
|
(cdr event))))
|
|
|
|
((equal ev-where down-where) vec)
|
2014-05-08 01:46:15 +00:00
|
|
|
(t
|
2014-07-08 18:47:47 +00:00
|
|
|
(let ((drag (if (symbolp ev-where)
|
|
|
|
0 ;FIXME: Why?!?
|
|
|
|
(list (intern (replace-regexp-in-string
|
|
|
|
"\\`\\([ACMHSs]-\\)*" "\\&drag-"
|
|
|
|
(symbol-name ev-command) t))
|
|
|
|
down-data ev-data))))
|
|
|
|
(if (null track-mouse)
|
|
|
|
(vector drag)
|
|
|
|
(push drag unread-command-events)
|
|
|
|
(vector (list 'mouse-movement ev-data))))))))))))
|
1995-11-11 04:07:39 +00:00
|
|
|
|
2005-09-11 03:06:33 +00:00
|
|
|
;; These two variables have been converted to terminal parameters.
|
|
|
|
;;
|
|
|
|
;;(defvar xterm-mouse-x 0
|
|
|
|
;; "Position of last xterm mouse event relative to the frame.")
|
|
|
|
;;
|
|
|
|
;;(defvar xterm-mouse-y 0
|
|
|
|
;; "Position of last xterm mouse event relative to the frame.")
|
1995-11-11 04:07:39 +00:00
|
|
|
|
2007-03-21 20:41:23 +00:00
|
|
|
(defvar xt-mouse-epoch nil)
|
|
|
|
|
1998-12-05 18:23:14 +00:00
|
|
|
;; Indicator for the xterm-mouse mode.
|
|
|
|
|
2000-02-22 11:57:31 +00:00
|
|
|
(defun xterm-mouse-position-function (pos)
|
|
|
|
"Bound to `mouse-position-function' in XTerm mouse mode."
|
2005-09-11 03:06:33 +00:00
|
|
|
(when (terminal-parameter nil 'xterm-mouse-x)
|
|
|
|
(setcdr pos (cons (terminal-parameter nil 'xterm-mouse-x)
|
|
|
|
(terminal-parameter nil 'xterm-mouse-y))))
|
2000-02-22 11:57:31 +00:00
|
|
|
pos)
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2007-05-25 14:34:35 +00:00
|
|
|
(defun xterm-mouse-truncate-wrap (f)
|
|
|
|
"Truncate with wrap-around."
|
|
|
|
(condition-case nil
|
|
|
|
;; First try the built-in truncate, in case there's no overflow.
|
|
|
|
(truncate f)
|
|
|
|
;; In case of overflow, do wraparound by hand.
|
|
|
|
(range-error
|
|
|
|
;; In our case, we wrap around every 3 days or so, so if we assume
|
|
|
|
;; a maximum of 65536 wraparounds, we're safe for a couple years.
|
|
|
|
;; Using a power of 2 makes rounding errors less likely.
|
|
|
|
(let* ((maxwrap (* 65536 2048))
|
|
|
|
(dbig (truncate (/ f maxwrap)))
|
|
|
|
(fdiff (- f (* 1.0 maxwrap dbig))))
|
|
|
|
(+ (truncate fdiff) (* maxwrap dbig))))))
|
|
|
|
|
2015-03-25 01:04:00 +00:00
|
|
|
(defun xterm-mouse--read-utf8-char (&optional prompt seconds)
|
|
|
|
"Read an utf-8 encoded character from the current terminal.
|
|
|
|
This function reads and returns an utf-8 encoded character of
|
|
|
|
command input. If the user generates an event which is not a
|
|
|
|
character (i.e., a mouse click or function key event), read-char
|
|
|
|
signals an error.
|
|
|
|
|
|
|
|
The returned event may come directly from the user, or from a
|
|
|
|
keyboard macro. It is not decoded by the keyboard's input coding
|
|
|
|
system and always treated with an utf-8 input encoding.
|
|
|
|
|
|
|
|
The optional arguments PROMPT and SECONDS work like in
|
|
|
|
`read-event'."
|
|
|
|
(let ((tmp (keyboard-coding-system)))
|
|
|
|
(set-keyboard-coding-system 'utf-8)
|
|
|
|
(prog1 (read-event prompt t seconds)
|
|
|
|
(set-keyboard-coding-system tmp))))
|
|
|
|
|
|
|
|
;; In default mode, each numeric parameter of XTerm's mouse report is
|
|
|
|
;; a single char, possibly encoded as utf-8. The actual numeric
|
|
|
|
;; parameter then is obtained by subtracting 32 from the character
|
2015-03-26 01:19:29 +00:00
|
|
|
;; code. In extended mode the parameters are returned as decimal
|
|
|
|
;; string delimited either by semicolons or for the last parameter by
|
|
|
|
;; one of the characters "m" or "M". If the last character is a "m",
|
2015-03-25 01:04:00 +00:00
|
|
|
;; then the mouse event was a button release, else it was a button
|
|
|
|
;; press or a mouse motion. Return value is a cons cell with
|
|
|
|
;; (NEXT-NUMERIC-PARAMETER . LAST-CHAR)
|
|
|
|
(defun xterm-mouse--read-number-from-terminal (extension)
|
|
|
|
(let (c)
|
|
|
|
(if extension
|
|
|
|
(let ((n 0))
|
|
|
|
(while (progn
|
|
|
|
(setq c (read-char))
|
|
|
|
(<= ?0 c ?9))
|
|
|
|
(setq n (+ (* 10 n) c (- ?0))))
|
|
|
|
(cons n c))
|
2015-03-25 13:34:20 +00:00
|
|
|
(cons (- (setq c (xterm-mouse--read-utf8-char)) 32) c))))
|
2015-03-25 01:04:00 +00:00
|
|
|
|
|
|
|
;; XTerm reports mouse events as
|
|
|
|
;; <EVENT-CODE> <X> <Y> in default mode, and
|
|
|
|
;; <EVENT-CODE> ";" <X> ";" <Y> <"M" or "m"> in extended mode.
|
|
|
|
;; The macro read-number-from-terminal takes care of reading
|
2015-03-26 01:19:29 +00:00
|
|
|
;; the response parameters appropriately. The EVENT-CODE differs
|
2015-03-25 01:04:00 +00:00
|
|
|
;; slightly between default and extended mode.
|
|
|
|
;; Return a list (EVENT-TYPE-SYMBOL X Y).
|
|
|
|
(defun xterm-mouse--read-event-sequence (&optional extension)
|
|
|
|
(pcase-let*
|
|
|
|
((`(,code . ,_) (xterm-mouse--read-number-from-terminal extension))
|
|
|
|
(`(,x . ,_) (xterm-mouse--read-number-from-terminal extension))
|
|
|
|
(`(,y . ,c) (xterm-mouse--read-number-from-terminal extension))
|
|
|
|
(wheel (/= (logand code 64) 0))
|
|
|
|
(move (/= (logand code 32) 0))
|
|
|
|
(ctrl (/= (logand code 16) 0))
|
|
|
|
(meta (/= (logand code 8) 0))
|
|
|
|
(shift (/= (logand code 4) 0))
|
|
|
|
(down (and (not wheel)
|
|
|
|
(not move)
|
|
|
|
(if extension
|
|
|
|
(eq c ?M)
|
|
|
|
(/= (logand code 3) 3))))
|
|
|
|
(btn (cond
|
|
|
|
((or extension down wheel)
|
|
|
|
(+ (logand code 3) (if wheel 4 1)))
|
|
|
|
;; The default mouse protocol does not report the button
|
|
|
|
;; number in release events: extract the button number
|
|
|
|
;; from last button-down event.
|
|
|
|
((terminal-parameter nil 'xterm-mouse-last-down)
|
|
|
|
(string-to-number
|
|
|
|
(substring
|
|
|
|
(symbol-name
|
|
|
|
(car (terminal-parameter nil 'xterm-mouse-last-down)))
|
|
|
|
-1)))
|
|
|
|
;; Spurious release event without previous button-down
|
|
|
|
;; event: assume, that the last button was button 1.
|
|
|
|
(t 1)))
|
|
|
|
(sym (if move 'mouse-movement
|
|
|
|
(intern (concat (if ctrl "C-" "")
|
|
|
|
(if meta "M-" "")
|
|
|
|
(if shift "S-" "")
|
|
|
|
(if down "down-" "")
|
|
|
|
"mouse-"
|
|
|
|
(number-to-string btn))))))
|
|
|
|
(list sym (1- x) (1- y))))
|
2012-07-14 15:40:12 +00:00
|
|
|
|
2014-05-11 05:49:14 +00:00
|
|
|
(defun xterm-mouse--set-click-count (event click-count)
|
|
|
|
(setcdr (cdr event) (list click-count))
|
|
|
|
(let ((name (symbol-name (car event))))
|
|
|
|
(when (string-match "\\(.*?\\)\\(\\(?:down-\\)?mouse-.*\\)" name)
|
|
|
|
(setcar event
|
|
|
|
(intern (concat (match-string 1 name)
|
|
|
|
(if (= click-count 2)
|
|
|
|
"double-" "triple-")
|
|
|
|
(match-string 2 name)))))))
|
|
|
|
|
2012-07-14 15:40:12 +00:00
|
|
|
(defun xterm-mouse-event (&optional extension)
|
|
|
|
"Convert XTerm mouse event to Emacs mouse event.
|
|
|
|
EXTENSION, if non-nil, means to use an extension to the usual
|
|
|
|
terminal mouse protocol; we currently support the value 1006,
|
|
|
|
which is the \"1006\" extension implemented in Xterm >= 277."
|
2015-03-25 01:04:00 +00:00
|
|
|
(let ((click (cond ((memq extension '(1006 nil))
|
|
|
|
(xterm-mouse--read-event-sequence extension))
|
|
|
|
(t
|
|
|
|
(error "Unsupported XTerm mouse protocol")))))
|
2014-05-08 01:46:15 +00:00
|
|
|
(when click
|
|
|
|
(let* ((type (nth 0 click))
|
|
|
|
(x (nth 1 click))
|
|
|
|
(y (nth 2 click))
|
|
|
|
;; Emulate timestamp information. This is accurate enough
|
|
|
|
;; for default value of mouse-1-click-follows-link (450msec).
|
|
|
|
(timestamp (xterm-mouse-truncate-wrap
|
|
|
|
(* 1000
|
|
|
|
(- (float-time)
|
|
|
|
(or xt-mouse-epoch
|
|
|
|
(setq xt-mouse-epoch (float-time)))))))
|
|
|
|
(w (window-at x y))
|
|
|
|
(ltrb (window-edges w))
|
|
|
|
(left (nth 0 ltrb))
|
2014-05-11 05:49:14 +00:00
|
|
|
(top (nth 1 ltrb))
|
|
|
|
(posn (if w
|
2014-05-08 01:46:15 +00:00
|
|
|
(posn-at-x-y (- x left) (- y top) w t)
|
|
|
|
(append (list nil 'menu-bar)
|
2014-05-11 05:49:14 +00:00
|
|
|
(nthcdr 2 (posn-at-x-y x y)))))
|
|
|
|
(event (list type posn)))
|
|
|
|
(setcar (nthcdr 3 posn) timestamp)
|
|
|
|
|
|
|
|
;; Try to handle double/triple clicks.
|
|
|
|
(let* ((last-click (terminal-parameter nil 'xterm-mouse-last-click))
|
|
|
|
(last-type (nth 0 last-click))
|
|
|
|
(last-name (symbol-name last-type))
|
|
|
|
(last-time (nth 1 last-click))
|
|
|
|
(click-count (nth 2 last-click))
|
|
|
|
(this-time (float-time))
|
|
|
|
(name (symbol-name type)))
|
|
|
|
(cond
|
|
|
|
((not (string-match "down-" name))
|
|
|
|
;; For up events, make the up side match the down side.
|
|
|
|
(setq this-time last-time)
|
2014-07-19 16:56:40 +00:00
|
|
|
(when (and click-count (> click-count 1)
|
2014-05-11 05:49:14 +00:00
|
|
|
(string-match "down-" last-name)
|
|
|
|
(equal name (replace-match "" t t last-name)))
|
|
|
|
(xterm-mouse--set-click-count event click-count)))
|
|
|
|
((not last-time) nil)
|
|
|
|
((and (> double-click-time (* 1000 (- this-time last-time)))
|
|
|
|
(equal last-name (replace-match "" t t name)))
|
|
|
|
(setq click-count (1+ click-count))
|
|
|
|
(xterm-mouse--set-click-count event click-count))
|
|
|
|
(t (setq click-count 1)))
|
|
|
|
(set-terminal-parameter nil 'xterm-mouse-last-click
|
|
|
|
(list type this-time click-count)))
|
|
|
|
|
|
|
|
(set-terminal-parameter nil 'xterm-mouse-x x)
|
|
|
|
(set-terminal-parameter nil 'xterm-mouse-y y)
|
|
|
|
(setq last-input-event event)))))
|
1995-10-09 17:08:20 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
2002-04-12 03:33:20 +00:00
|
|
|
(define-minor-mode xterm-mouse-mode
|
1995-10-09 17:08:20 +00:00
|
|
|
"Toggle XTerm mouse mode.
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
With a prefix argument ARG, enable XTerm mouse mode if ARG is
|
|
|
|
positive, and disable it otherwise. If called from Lisp, enable
|
|
|
|
the mode if ARG is omitted or nil.
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2005-04-04 01:13:59 +00:00
|
|
|
Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
|
2005-04-12 23:05:22 +00:00
|
|
|
This works in terminal emulators compatible with xterm. It only
|
|
|
|
works for simple uses of the mouse. Basically, only non-modified
|
|
|
|
single clicks are supported. When turned on, the normal xterm
|
|
|
|
mouse functionality for such clicks is still available by holding
|
|
|
|
down the SHIFT key while pressing the mouse button."
|
|
|
|
:global t :group 'mouse
|
2014-04-17 07:54:23 +00:00
|
|
|
(funcall (if xterm-mouse-mode 'add-hook 'remove-hook)
|
|
|
|
'terminal-init-xterm-hook
|
|
|
|
'turn-on-xterm-mouse-tracking-on-terminal)
|
2002-04-12 03:33:20 +00:00
|
|
|
(if xterm-mouse-mode
|
|
|
|
;; Turn it on
|
2005-09-11 03:06:33 +00:00
|
|
|
(progn
|
2002-04-12 03:33:20 +00:00
|
|
|
(setq mouse-position-function #'xterm-mouse-position-function)
|
2014-04-17 07:54:23 +00:00
|
|
|
(mapc #'turn-on-xterm-mouse-tracking-on-terminal (terminal-list)))
|
2002-04-12 03:33:20 +00:00
|
|
|
;; Turn it off
|
2014-04-17 07:54:23 +00:00
|
|
|
(mapc #'turn-off-xterm-mouse-tracking-on-terminal (terminal-list))
|
2002-04-12 03:33:20 +00:00
|
|
|
(setq mouse-position-function nil)))
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2014-04-17 07:54:23 +00:00
|
|
|
(defconst xterm-mouse-tracking-enable-sequence
|
2015-03-25 01:04:00 +00:00
|
|
|
"\e[?1000h\e[?1002h\e[?1005h\e[?1006h"
|
2014-04-17 07:54:23 +00:00
|
|
|
"Control sequence to enable xterm mouse tracking.
|
2015-03-25 01:04:00 +00:00
|
|
|
Enables basic mouse tracking, mouse motion events and finally
|
|
|
|
extended tracking on terminals that support it. The following
|
|
|
|
escape sequences are understood by modern xterms:
|
|
|
|
|
Fix minor quoting problems in doc strings
These were glitches regardless of how or whether we tackle the
problem of grave accent in doc strings.
* lisp/calc/calc-aent.el (math-restore-placeholders):
* lisp/ido.el (ido-ignore-buffers, ido-ignore-files):
* lisp/leim/quail/cyrillic.el ("bulgarian-alt-phonetic"):
* lisp/leim/quail/hebrew.el ("hebrew-new")
("hebrew-biblical-sil"):
* lisp/leim/quail/thai.el ("thai-kesmanee"):
* lisp/progmodes/idlw-shell.el (idlwave-shell-file-name-chars):
Used curved quotes to avoid ambiguities like ‘`''’ in doc strings.
* lisp/calendar/calendar.el (calendar-month-abbrev-array):
* lisp/cedet/semantic/mru-bookmark.el (semantic-mrub-cache-flush-fcn):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-copy)
(semantic-tag-components):
* lisp/cedet/srecode/cpp.el (srecode-semantic-handle-:cpp):
* lisp/cedet/srecode/texi.el (srecode-texi-texify-docstring):
* lisp/emacs-lisp/byte-opt.el (byte-optimize-all-constp):
* lisp/emacs-lisp/checkdoc.el (checkdoc-message-text-engine):
* lisp/emacs-lisp/generator.el (iter-next):
* lisp/gnus/gnus-art.el (gnus-treat-strip-list-identifiers)
(gnus-article-mode-syntax-table):
* lisp/net/rlogin.el (rlogin-directory-tracking-mode):
* lisp/net/soap-client.el (soap-wsdl-get):
* lisp/net/telnet.el (telnet-mode):
* lisp/org/org-compat.el (org-number-sequence):
* lisp/org/org.el (org-remove-highlights-with-change)
(org-structure-template-alist):
* lisp/org/ox-html.el (org-html-link-org-files-as-html):
* lisp/play/handwrite.el (handwrite-10pt, handwrite-11pt)
(handwrite-12pt, handwrite-13pt):
* lisp/progmodes/f90.el (f90-mode, f90-abbrev-start):
* lisp/progmodes/idlwave.el (idlwave-mode, idlwave-check-abbrev):
* lisp/progmodes/verilog-mode.el (verilog-tool)
(verilog-string-replace-matches, verilog-preprocess)
(verilog-auto-insert-lisp, verilog-auto-insert-last):
* lisp/textmodes/makeinfo.el (makeinfo-options):
* src/font.c (Ffont_spec):
Fix minor quoting problems in doc strings, e.g., missing quote,
``x'' where `x' was meant, etc.
* lisp/erc/erc-backend.el (erc-process-sentinel-2):
Fix minor quoting problem in other string.
* lisp/leim/quail/ethiopic.el ("ethiopic"):
* lisp/term/tvi970.el (tvi970-set-keypad-mode):
Omit unnecessary quotes.
* lisp/faces.el (set-face-attribute, set-face-underline)
(set-face-inverse-video, x-create-frame-with-faces):
* lisp/gnus/gnus-group.el (gnus-group-nnimap-edit-acl):
* lisp/mail/supercite.el (sc-attribs-%@-addresses)
(sc-attribs-!-addresses, sc-attribs-<>-addresses):
* lisp/net/tramp.el (tramp-methods):
* lisp/recentf.el (recentf-show-file-shortcuts-flag):
* lisp/textmodes/artist.el (artist-ellipse-right-char)
(artist-ellipse-left-char, artist-vaporize-fuzziness)
(artist-spray-chars, artist-mode, artist-replace-string)
(artist-put-pixel, artist-text-see-thru):
* lisp/vc/ediff-util.el (ediff-submit-report):
* lisp/vc/log-edit.el (log-edit-changelog-full-paragraphs):
Use double-quotes rather than TeX markup in doc strings.
* lisp/skeleton.el (skeleton-pair-insert-maybe):
Reword to avoid the need for grave accent and apostrophe.
* lisp/xt-mouse.el (xterm-mouse-tracking-enable-sequence):
Don't use grave and acute accents to quote.
2015-05-19 21:59:15 +00:00
|
|
|
\"\\e[?1000h\" “Basic mouse mode”: Enables reports for mouse
|
2015-03-25 01:04:00 +00:00
|
|
|
clicks. There is a limit to the maximum row/column
|
|
|
|
position (<= 223), which can be reported in this
|
|
|
|
basic mode.
|
|
|
|
|
Fix minor quoting problems in doc strings
These were glitches regardless of how or whether we tackle the
problem of grave accent in doc strings.
* lisp/calc/calc-aent.el (math-restore-placeholders):
* lisp/ido.el (ido-ignore-buffers, ido-ignore-files):
* lisp/leim/quail/cyrillic.el ("bulgarian-alt-phonetic"):
* lisp/leim/quail/hebrew.el ("hebrew-new")
("hebrew-biblical-sil"):
* lisp/leim/quail/thai.el ("thai-kesmanee"):
* lisp/progmodes/idlw-shell.el (idlwave-shell-file-name-chars):
Used curved quotes to avoid ambiguities like ‘`''’ in doc strings.
* lisp/calendar/calendar.el (calendar-month-abbrev-array):
* lisp/cedet/semantic/mru-bookmark.el (semantic-mrub-cache-flush-fcn):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-copy)
(semantic-tag-components):
* lisp/cedet/srecode/cpp.el (srecode-semantic-handle-:cpp):
* lisp/cedet/srecode/texi.el (srecode-texi-texify-docstring):
* lisp/emacs-lisp/byte-opt.el (byte-optimize-all-constp):
* lisp/emacs-lisp/checkdoc.el (checkdoc-message-text-engine):
* lisp/emacs-lisp/generator.el (iter-next):
* lisp/gnus/gnus-art.el (gnus-treat-strip-list-identifiers)
(gnus-article-mode-syntax-table):
* lisp/net/rlogin.el (rlogin-directory-tracking-mode):
* lisp/net/soap-client.el (soap-wsdl-get):
* lisp/net/telnet.el (telnet-mode):
* lisp/org/org-compat.el (org-number-sequence):
* lisp/org/org.el (org-remove-highlights-with-change)
(org-structure-template-alist):
* lisp/org/ox-html.el (org-html-link-org-files-as-html):
* lisp/play/handwrite.el (handwrite-10pt, handwrite-11pt)
(handwrite-12pt, handwrite-13pt):
* lisp/progmodes/f90.el (f90-mode, f90-abbrev-start):
* lisp/progmodes/idlwave.el (idlwave-mode, idlwave-check-abbrev):
* lisp/progmodes/verilog-mode.el (verilog-tool)
(verilog-string-replace-matches, verilog-preprocess)
(verilog-auto-insert-lisp, verilog-auto-insert-last):
* lisp/textmodes/makeinfo.el (makeinfo-options):
* src/font.c (Ffont_spec):
Fix minor quoting problems in doc strings, e.g., missing quote,
``x'' where `x' was meant, etc.
* lisp/erc/erc-backend.el (erc-process-sentinel-2):
Fix minor quoting problem in other string.
* lisp/leim/quail/ethiopic.el ("ethiopic"):
* lisp/term/tvi970.el (tvi970-set-keypad-mode):
Omit unnecessary quotes.
* lisp/faces.el (set-face-attribute, set-face-underline)
(set-face-inverse-video, x-create-frame-with-faces):
* lisp/gnus/gnus-group.el (gnus-group-nnimap-edit-acl):
* lisp/mail/supercite.el (sc-attribs-%@-addresses)
(sc-attribs-!-addresses, sc-attribs-<>-addresses):
* lisp/net/tramp.el (tramp-methods):
* lisp/recentf.el (recentf-show-file-shortcuts-flag):
* lisp/textmodes/artist.el (artist-ellipse-right-char)
(artist-ellipse-left-char, artist-vaporize-fuzziness)
(artist-spray-chars, artist-mode, artist-replace-string)
(artist-put-pixel, artist-text-see-thru):
* lisp/vc/ediff-util.el (ediff-submit-report):
* lisp/vc/log-edit.el (log-edit-changelog-full-paragraphs):
Use double-quotes rather than TeX markup in doc strings.
* lisp/skeleton.el (skeleton-pair-insert-maybe):
Reword to avoid the need for grave accent and apostrophe.
* lisp/xt-mouse.el (xterm-mouse-tracking-enable-sequence):
Don't use grave and acute accents to quote.
2015-05-19 21:59:15 +00:00
|
|
|
\"\\e[?1002h\" “Mouse motion mode”: Enables reports for mouse
|
2015-03-25 01:04:00 +00:00
|
|
|
motion events during dragging operations.
|
|
|
|
|
Fix minor quoting problems in doc strings
These were glitches regardless of how or whether we tackle the
problem of grave accent in doc strings.
* lisp/calc/calc-aent.el (math-restore-placeholders):
* lisp/ido.el (ido-ignore-buffers, ido-ignore-files):
* lisp/leim/quail/cyrillic.el ("bulgarian-alt-phonetic"):
* lisp/leim/quail/hebrew.el ("hebrew-new")
("hebrew-biblical-sil"):
* lisp/leim/quail/thai.el ("thai-kesmanee"):
* lisp/progmodes/idlw-shell.el (idlwave-shell-file-name-chars):
Used curved quotes to avoid ambiguities like ‘`''’ in doc strings.
* lisp/calendar/calendar.el (calendar-month-abbrev-array):
* lisp/cedet/semantic/mru-bookmark.el (semantic-mrub-cache-flush-fcn):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-copy)
(semantic-tag-components):
* lisp/cedet/srecode/cpp.el (srecode-semantic-handle-:cpp):
* lisp/cedet/srecode/texi.el (srecode-texi-texify-docstring):
* lisp/emacs-lisp/byte-opt.el (byte-optimize-all-constp):
* lisp/emacs-lisp/checkdoc.el (checkdoc-message-text-engine):
* lisp/emacs-lisp/generator.el (iter-next):
* lisp/gnus/gnus-art.el (gnus-treat-strip-list-identifiers)
(gnus-article-mode-syntax-table):
* lisp/net/rlogin.el (rlogin-directory-tracking-mode):
* lisp/net/soap-client.el (soap-wsdl-get):
* lisp/net/telnet.el (telnet-mode):
* lisp/org/org-compat.el (org-number-sequence):
* lisp/org/org.el (org-remove-highlights-with-change)
(org-structure-template-alist):
* lisp/org/ox-html.el (org-html-link-org-files-as-html):
* lisp/play/handwrite.el (handwrite-10pt, handwrite-11pt)
(handwrite-12pt, handwrite-13pt):
* lisp/progmodes/f90.el (f90-mode, f90-abbrev-start):
* lisp/progmodes/idlwave.el (idlwave-mode, idlwave-check-abbrev):
* lisp/progmodes/verilog-mode.el (verilog-tool)
(verilog-string-replace-matches, verilog-preprocess)
(verilog-auto-insert-lisp, verilog-auto-insert-last):
* lisp/textmodes/makeinfo.el (makeinfo-options):
* src/font.c (Ffont_spec):
Fix minor quoting problems in doc strings, e.g., missing quote,
``x'' where `x' was meant, etc.
* lisp/erc/erc-backend.el (erc-process-sentinel-2):
Fix minor quoting problem in other string.
* lisp/leim/quail/ethiopic.el ("ethiopic"):
* lisp/term/tvi970.el (tvi970-set-keypad-mode):
Omit unnecessary quotes.
* lisp/faces.el (set-face-attribute, set-face-underline)
(set-face-inverse-video, x-create-frame-with-faces):
* lisp/gnus/gnus-group.el (gnus-group-nnimap-edit-acl):
* lisp/mail/supercite.el (sc-attribs-%@-addresses)
(sc-attribs-!-addresses, sc-attribs-<>-addresses):
* lisp/net/tramp.el (tramp-methods):
* lisp/recentf.el (recentf-show-file-shortcuts-flag):
* lisp/textmodes/artist.el (artist-ellipse-right-char)
(artist-ellipse-left-char, artist-vaporize-fuzziness)
(artist-spray-chars, artist-mode, artist-replace-string)
(artist-put-pixel, artist-text-see-thru):
* lisp/vc/ediff-util.el (ediff-submit-report):
* lisp/vc/log-edit.el (log-edit-changelog-full-paragraphs):
Use double-quotes rather than TeX markup in doc strings.
* lisp/skeleton.el (skeleton-pair-insert-maybe):
Reword to avoid the need for grave accent and apostrophe.
* lisp/xt-mouse.el (xterm-mouse-tracking-enable-sequence):
Don't use grave and acute accents to quote.
2015-05-19 21:59:15 +00:00
|
|
|
\"\\e[?1005h\" “UTF-8 coordinate extension”: Enables an extension
|
2015-03-25 01:04:00 +00:00
|
|
|
to the basic mouse mode, which uses UTF-8
|
|
|
|
characters to overcome the 223 row/column limit. This
|
|
|
|
extension may conflict with non UTF-8 applications or
|
|
|
|
non UTF-8 locales.
|
|
|
|
|
Fix minor quoting problems in doc strings
These were glitches regardless of how or whether we tackle the
problem of grave accent in doc strings.
* lisp/calc/calc-aent.el (math-restore-placeholders):
* lisp/ido.el (ido-ignore-buffers, ido-ignore-files):
* lisp/leim/quail/cyrillic.el ("bulgarian-alt-phonetic"):
* lisp/leim/quail/hebrew.el ("hebrew-new")
("hebrew-biblical-sil"):
* lisp/leim/quail/thai.el ("thai-kesmanee"):
* lisp/progmodes/idlw-shell.el (idlwave-shell-file-name-chars):
Used curved quotes to avoid ambiguities like ‘`''’ in doc strings.
* lisp/calendar/calendar.el (calendar-month-abbrev-array):
* lisp/cedet/semantic/mru-bookmark.el (semantic-mrub-cache-flush-fcn):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-copy)
(semantic-tag-components):
* lisp/cedet/srecode/cpp.el (srecode-semantic-handle-:cpp):
* lisp/cedet/srecode/texi.el (srecode-texi-texify-docstring):
* lisp/emacs-lisp/byte-opt.el (byte-optimize-all-constp):
* lisp/emacs-lisp/checkdoc.el (checkdoc-message-text-engine):
* lisp/emacs-lisp/generator.el (iter-next):
* lisp/gnus/gnus-art.el (gnus-treat-strip-list-identifiers)
(gnus-article-mode-syntax-table):
* lisp/net/rlogin.el (rlogin-directory-tracking-mode):
* lisp/net/soap-client.el (soap-wsdl-get):
* lisp/net/telnet.el (telnet-mode):
* lisp/org/org-compat.el (org-number-sequence):
* lisp/org/org.el (org-remove-highlights-with-change)
(org-structure-template-alist):
* lisp/org/ox-html.el (org-html-link-org-files-as-html):
* lisp/play/handwrite.el (handwrite-10pt, handwrite-11pt)
(handwrite-12pt, handwrite-13pt):
* lisp/progmodes/f90.el (f90-mode, f90-abbrev-start):
* lisp/progmodes/idlwave.el (idlwave-mode, idlwave-check-abbrev):
* lisp/progmodes/verilog-mode.el (verilog-tool)
(verilog-string-replace-matches, verilog-preprocess)
(verilog-auto-insert-lisp, verilog-auto-insert-last):
* lisp/textmodes/makeinfo.el (makeinfo-options):
* src/font.c (Ffont_spec):
Fix minor quoting problems in doc strings, e.g., missing quote,
``x'' where `x' was meant, etc.
* lisp/erc/erc-backend.el (erc-process-sentinel-2):
Fix minor quoting problem in other string.
* lisp/leim/quail/ethiopic.el ("ethiopic"):
* lisp/term/tvi970.el (tvi970-set-keypad-mode):
Omit unnecessary quotes.
* lisp/faces.el (set-face-attribute, set-face-underline)
(set-face-inverse-video, x-create-frame-with-faces):
* lisp/gnus/gnus-group.el (gnus-group-nnimap-edit-acl):
* lisp/mail/supercite.el (sc-attribs-%@-addresses)
(sc-attribs-!-addresses, sc-attribs-<>-addresses):
* lisp/net/tramp.el (tramp-methods):
* lisp/recentf.el (recentf-show-file-shortcuts-flag):
* lisp/textmodes/artist.el (artist-ellipse-right-char)
(artist-ellipse-left-char, artist-vaporize-fuzziness)
(artist-spray-chars, artist-mode, artist-replace-string)
(artist-put-pixel, artist-text-see-thru):
* lisp/vc/ediff-util.el (ediff-submit-report):
* lisp/vc/log-edit.el (log-edit-changelog-full-paragraphs):
Use double-quotes rather than TeX markup in doc strings.
* lisp/skeleton.el (skeleton-pair-insert-maybe):
Reword to avoid the need for grave accent and apostrophe.
* lisp/xt-mouse.el (xterm-mouse-tracking-enable-sequence):
Don't use grave and acute accents to quote.
2015-05-19 21:59:15 +00:00
|
|
|
\"\\e[?1006h\" “SGR coordinate extension”: Enables a newer
|
2015-03-25 01:04:00 +00:00
|
|
|
alternative extension to the basic mouse mode, which
|
|
|
|
overcomes the 223 row/column limit without the
|
|
|
|
drawbacks of the UTF-8 coordinate extension.
|
|
|
|
|
|
|
|
The two extension modes are mutually exclusive, where the last
|
|
|
|
given escape sequence takes precedence over the former.")
|
1995-10-09 17:08:20 +00:00
|
|
|
|
2014-04-17 07:54:23 +00:00
|
|
|
(defconst xterm-mouse-tracking-disable-sequence
|
2015-03-25 01:04:00 +00:00
|
|
|
"\e[?1006l\e[?1005l\e[?1002l\e[?1000l"
|
2014-04-17 07:54:23 +00:00
|
|
|
"Reset the modes set by `xterm-mouse-tracking-enable-sequence'.")
|
2005-09-11 03:06:33 +00:00
|
|
|
|
2007-10-18 19:06:44 +00:00
|
|
|
(defun turn-on-xterm-mouse-tracking-on-terminal (&optional terminal)
|
2005-09-11 03:06:33 +00:00
|
|
|
"Enable xterm mouse tracking on TERMINAL."
|
2009-02-05 07:12:27 +00:00
|
|
|
(when (and xterm-mouse-mode (eq t (terminal-live-p terminal))
|
|
|
|
;; Avoid the initial terminal which is not a termcap device.
|
2014-07-01 16:10:02 +00:00
|
|
|
;; FIXME: is there more elegant way to detect the initial
|
|
|
|
;; terminal?
|
2009-02-05 07:12:27 +00:00
|
|
|
(not (string= (terminal-name terminal) "initial_terminal")))
|
2007-10-18 19:06:44 +00:00
|
|
|
(unless (terminal-parameter terminal 'xterm-mouse-mode)
|
2012-07-14 15:40:12 +00:00
|
|
|
;; Simulate selecting a terminal by selecting one of its frames
|
2014-04-17 07:54:23 +00:00
|
|
|
;; so that we can set the terminal-local `input-decode-map'.
|
2007-10-18 19:06:44 +00:00
|
|
|
(with-selected-frame (car (frames-on-display-list terminal))
|
2012-07-14 15:40:12 +00:00
|
|
|
(define-key input-decode-map "\e[M" 'xterm-mouse-translate)
|
|
|
|
(define-key input-decode-map "\e[<" 'xterm-mouse-translate-extended))
|
2014-07-01 16:10:02 +00:00
|
|
|
(condition-case err
|
|
|
|
(send-string-to-terminal xterm-mouse-tracking-enable-sequence
|
|
|
|
terminal)
|
|
|
|
;; FIXME: This should use a dedicated error signal.
|
|
|
|
(error (if (equal (cadr err) "Terminal is currently suspended")
|
|
|
|
nil ;The sequence will be sent upon resume.
|
|
|
|
(signal (car err) (cdr err)))))
|
2014-04-17 07:54:23 +00:00
|
|
|
(push xterm-mouse-tracking-enable-sequence
|
|
|
|
(terminal-parameter nil 'tty-mode-set-strings))
|
|
|
|
(push xterm-mouse-tracking-disable-sequence
|
|
|
|
(terminal-parameter nil 'tty-mode-reset-strings))
|
|
|
|
(set-terminal-parameter terminal 'xterm-mouse-mode t))))
|
2005-09-11 03:06:33 +00:00
|
|
|
|
|
|
|
(defun turn-off-xterm-mouse-tracking-on-terminal (terminal)
|
|
|
|
"Disable xterm mouse tracking on TERMINAL."
|
2007-10-18 19:06:44 +00:00
|
|
|
;; Only send the disable command to those terminals to which we've already
|
|
|
|
;; sent the enable command.
|
|
|
|
(when (and (terminal-parameter terminal 'xterm-mouse-mode)
|
2014-04-17 07:54:23 +00:00
|
|
|
(eq t (terminal-live-p terminal)))
|
2007-10-18 19:06:44 +00:00
|
|
|
;; We could remove the key-binding and unset the `xterm-mouse-mode'
|
|
|
|
;; terminal parameter, but it seems less harmful to send this escape
|
|
|
|
;; command too many times (or to catch an unintended key sequence), than
|
|
|
|
;; to send it too few times (or to fail to let xterm-mouse events
|
|
|
|
;; pass by untranslated).
|
2014-07-01 16:10:02 +00:00
|
|
|
(condition-case err
|
|
|
|
(send-string-to-terminal xterm-mouse-tracking-disable-sequence
|
|
|
|
terminal)
|
|
|
|
;; FIXME: This should use a dedicated error signal.
|
|
|
|
(error (if (equal (cadr err) "Terminal is currently suspended")
|
|
|
|
nil
|
|
|
|
(signal (car err) (cdr err)))))
|
2014-04-17 07:54:23 +00:00
|
|
|
(setf (terminal-parameter nil 'tty-mode-set-strings)
|
|
|
|
(remq xterm-mouse-tracking-enable-sequence
|
|
|
|
(terminal-parameter nil 'tty-mode-set-strings)))
|
|
|
|
(setf (terminal-parameter nil 'tty-mode-reset-strings)
|
|
|
|
(remq xterm-mouse-tracking-disable-sequence
|
|
|
|
(terminal-parameter nil 'tty-mode-reset-strings)))
|
|
|
|
(set-terminal-parameter terminal 'xterm-mouse-mode nil)))
|
2005-09-11 03:06:33 +00:00
|
|
|
|
1995-10-09 17:08:20 +00:00
|
|
|
(provide 'xt-mouse)
|
|
|
|
|
|
|
|
;;; xt-mouse.el ends here
|