(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.

(t-mouse-mode): New compatibility alias.

2 files changed, 38 insertions, 41 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84e6efcebe9..1765f0241ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* t-mouse.el (gpm-mouse-mode): Rename from t-mouse-mode.  Rewrite.
+	(t-mouse-mode): New compatibility alias.
+
 2007-09-28  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* server.el (server-delete-client): Only delete the terminal if it
@@ -21,15 +26,15 @@
 
 	* net/tramp-cache.el (tramp-cache-print): Pacify byte-compiler.
 
-	* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Apply
-	`tramp-completion-mode-p'.
+	* net/tramp-fish.el (tramp-fish-handle-expand-file-name):
+	Apply `tramp-completion-mode-p'.
 	(tramp-fish-handle-set-file-times)
 	(tramp-fish-handle-executable-find)
 	(tramp-fish-handle-process-file, tramp-fish-get-file-entries)
 	(tramp-fish-retrieve-data): Pacify byte-compiler.
 
-	* net/tramp-gw.el (tramp-gw-basic-authentication): Call
-	`tramp-read-passwd' with first parameter `nil'.
+	* net/tramp-gw.el (tramp-gw-basic-authentication):
+	Call `tramp-read-passwd' with first parameter `nil'.
 
 2007-09-28  Glenn Morris  <rgm@gnu.org>
 
@@ -78,10 +83,8 @@
 
 2007-09-26  Bastien Guerry  <bzg@altern.org>
 
-	* org-export-latex.el (org-export-latex-tables-verbatim): New
-	function.
-	(org-export-latex-remove-from-headlines): Name changed because of
-	typo.
+	* org-export-latex.el (org-export-latex-tables-verbatim): New function.
+	(org-export-latex-remove-from-headlines): Name changed because of typo.
 	(org-export-latex-quotation-marks-convention): Option removed.
 	(org-export-latex-make-preamble): Handle the DATE option.
 	(org-export-latex-cleaned-string): Now the only cleaning function,
@@ -102,9 +105,8 @@
 	(org-archive-subtree): No need to split return of `org-get-tags'.
 	(org-set-tags, org-entry-properties): Call `org-get-tags-string'
 	instead of `org-get-tags'.
-	(org-agenda-format-date): Renamed from `org-agenda-date-format'.
-	(org-time-from-absolute, org-agenda-format-date-aligned): New
-	functions.
+	(org-agenda-format-date): Rename from `org-agenda-date-format'.
+	(org-time-from-absolute, org-agenda-format-date-aligned): New funs.
 	(org-compatible-face): New argument INHERITS.  Inherit from this
 	face if possible.
 	(org-level-1, org-level-2, org-level-3, org-level-4)
@@ -128,8 +130,8 @@
 	(org-get-location): Complete rewrite.
 	(org-goto-exit-command): New variable.
 	(org-goto-selected-point): New variable.
-	(org-goto-ret, org-goto-left, org-goto-right, org-goto-quit): Set
-	the new variables.
+	(org-goto-ret, org-goto-left, org-goto-right, org-goto-quit):
+	Set the new variables.
 	(org-paste-subtree): Whitespace insertion strategy revised.
 	(org-remember-apply-template): Protect v-A from the possibility
 	that v-a might be nil.
@@ -138,13 +140,6 @@
 	(org-up-heading-safe): New function.
 	(org-entry-get-with-inheritance): Use `org-up-heading-safe'.
 
-	* org.texi: Change links to webpage and maintained email.
-	(Remember): Promoted to Chapter, significant changes.
-	(Fast access to TODO states): New section.
-	(Faces for TODO keywords): New section.
-	(Export options): Example for #+DATE.
-	(Progress logging): Section moved.
-
 2007-09-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* progmodes/cc-cmds.el (c-indent-line-or-region): Only indent the
diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index 821bad4e819..e88067b7fe5 100644
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -40,29 +40,31 @@
 ;;; Code:
 
 ;;;###autoload
-(define-minor-mode t-mouse-mode
-  "Toggle t-mouse mode to use the mouse in Linux consoles.
-With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it
-off.
+(define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1")
+;;;###autoload
+(define-minor-mode gpm-mouse-mode
+  "Toggle gpm-mouse mode to use the mouse in GNU/Linux consoles.
+With prefix arg, turn gpm-mouse mode on if arg is positive,
+otherwise turn it off.
 
-This allows the use of the mouse when operating on a Linux console, in the
-same way as you can use the mouse under X11.
-It requires the `mev' program, part of the `gpm' utilities."
+This allows the use of the mouse when operating on a GNU/Linux console,
+in the same way as you can use the mouse under X11.
+It relies on the `gpm' daemon being activated."
   :global t :group 'mouse
-  (if window-system
-      (error "t-mouse only works in the console on GNU/Linux")
-    (if t-mouse-mode
-	(progn
-	  (unless (fboundp 'term-open-connection)
-	    (progn
-	      (setq t-mouse-mode nil)
-	      (error "Emacs must be built with Gpm to use this mode")))
-	  (unless (term-open-connection)
-	    (progn
-	      (setq t-mouse-mode nil)
-	      (error "Can't open mouse connection"))))
-      ;; Turn it off
-      (term-close-connection))))
+  (let ((activated nil))
+    (unwind-protect
+        (progn
+          (unless (fboundp 'gpm-mouse-start)
+            (error "Emacs must be built with Gpm to use this mode"))
+          (when gpm-mouse-mode
+            (gpm-mouse-start)
+            (setq activated t)))
+      ;; If the user asked to turn it off do that.
+      ;; If something failed to turn it on, try to turn it off as well,
+      ;; just in case.
+      (when (and (fboundp 'gpm-mouse-stop) (not activated))
+        (setq gpm-mouse-mode nil)
+        (gpm-mouse-stop)))))
 
 (provide 't-mouse)