# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1179649857 0
# Node ID 74965b1ffc6f8443ef2e91b8ff9ecc9e41a1f03c
# Parent  1b4082b27a4dccc8457d21bfb0a0731e9d36ef7a
(t-mouse-mode): Reset t-mouse-mode to nil if there
is an error.

diff -r 1b4082b27a4d -r 74965b1ffc6f lisp/t-mouse.el
--- 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))))