From 43180aff2dea9ead5a25e537c969395894c6f020 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 20 May 2007 08:30:57 +0000 Subject: [PATCH] (t-mouse-mode): Reset t-mouse-mode to nil if there is an error. --- lisp/t-mouse.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el index a780a9932c9..c48b56d6200 100644 --- a/lisp/t-mouse.el +++ b/lisp/t-mouse.el @@ -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))))