Mercurial > emacs
changeset 81004:74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
is an error.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 20 May 2007 08:30:57 +0000 |
| parents | 1b4082b27a4d |
| children | 6d4bdea33da9 |
| files | lisp/t-mouse.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/t-mouse.el Sun May 20 08:29:25 2007 +0000 +++ b/lisp/t-mouse.el Sun May 20 08:30:57 2007 +0000 @@ -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 @@ (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))))