procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(t-mouse-mode): Do nothing on a graphical display

Browse source 
when disabling t-mouse-mode.
This commit is contained in:
Nick Roberts 2007-05-04 02:26:14 +00:00
parent 12bf4a28f2
commit 1a12af30ce
1 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
lisp/t-mouse.el
View file

@ -275,32 +275,32 @@ With prefix arg, turn t-mouse mode on iff arg is positive.
Turn it on to use Emacs mouse commands, and off to use t-mouse commands."
nil " Mouse" nil :global t
(if t-mouse-mode
;; Turn it on
(unless window-system
;; Starts getting a stream of mouse events from an asynchronous process.
;; Only works if Emacs is running on a virtual terminal without a window system.
(unless window-system
(if t-mouse-mode
;; Turn it on. Starts getting a stream of mouse events from an
;; asynchronous process. Only works if Emacs is running on a virtual
;; terminal without a window system.
(progn
(setq mouse-position-function #'t-mouse-mouse-position-function)
(let ((tty (t-mouse-tty))
(process-connection-type t))
(if (not (stringp tty))
(error "Cannot find a virtual terminal"))
(setq t-mouse-process
(start-process "t-mouse" nil
"mev" "-i" "-E" "-C" tty
(if t-mouse-swap-alt-keys
"-M-leftAlt" "-M-rightAlt")
"-e-move"
"-dall" "-d-hard"
"-f")))
(setq t-mouse-filter-accumulator "")
(set-process-filter t-mouse-process 't-mouse-process-filter)
(set-process-query-on-exit-flag t-mouse-process nil)))
(setq mouse-position-function #'t-mouse-mouse-position-function)
(let ((tty (t-mouse-tty))
(process-connection-type t))
(if (not (stringp tty))
(error "Cannot find a virtual terminal"))
(setq t-mouse-process
(start-process "t-mouse" nil
"mev" "-i" "-E" "-C" tty
(if t-mouse-swap-alt-keys
"-M-leftAlt" "-M-rightAlt")
"-e-move"
"-dall" "-d-hard"
"-f")))
(setq t-mouse-filter-accumulator "")
(set-process-filter t-mouse-process 't-mouse-process-filter)
(set-process-query-on-exit-flag t-mouse-process nil))
;; Turn it off
(setq mouse-position-function nil)
(delete-process t-mouse-process)
(setq t-mouse-process nil)))
(setq mouse-position-function nil)
(delete-process t-mouse-process)
(setq t-mouse-process nil))))
(provide 't-mouse)