mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(t-mouse-mode): Reset t-mouse-mode to nil if there

Browse Source 
is an error.
This commit is contained in:
Nick Roberts 2007-05-20 08:30:57 +00:00
parent dea2cbad9c
commit 43180aff2d
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/t-mouse.el
View File

@ -30,10 +30,10 @@
;; The "gpm" server runs under Linux, so this package is rather
;; Linux-dependent.
;; The file, t-mouse was originally written by Alessandro Rubini and Ian T
;; Zimmerman and communicated with Emacs through the client program mev. Now
;; the interface with gpm is directly through a Unix socket, so this file is
;; reduced to a minor mode macro call.
;; The file, t-mouse.el was originally written by Alessandro Rubini and Ian T
;; Zimmerman, and Emacs communicated with gpm through a client program called
;; mev. Now the interface with gpm is directly through a Unix socket, so this
;; file is reduced to a single minor mode macro call.
;;
@ -53,9 +53,13 @@ It requires the `mev' program, part of the `gpm' utilities."
(if t-mouse-mode
(progn
(unless (fboundp 'term-open-connection)
(error "Emacs must be built with Gpm to use this mode"))
(progn
(setq t-mouse-mode nil)
(error "Emacs must be built with Gpm to use this mode")))
(unless (term-open-connection)
(error "Can't open mouse connection")))
(progn
(setq t-mouse-mode nil)
(error "Can't open mouse connection"))))
;; Turn it off
(term-close-connection))))