[Emacs-diffs] Changes to emacs/lisp/t-mouse.el,v

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  07/05/04 02:26:14

Index: t-mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/t-mouse.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- t-mouse.el  22 Apr 2007 09:08:14 -0000      1.10
+++ t-mouse.el  4 May 2007 02:26:14 -0000       1.11
@@ -275,11 +275,11 @@
 
 Turn it on to use Emacs mouse commands, and off to use t-mouse commands."
   nil " Mouse" nil :global t
-  (if t-mouse-mode
-      ;; Turn it on
       (unless window-system
-        ;; Starts getting a stream of mouse events from an asynchronous 
process.
-        ;; Only works if Emacs is running on a virtual terminal without a 
window system.
+    (if t-mouse-mode
+       ;; Turn it on.  Starts getting a stream of mouse events from an
+        ;; asynchronous process.  Only works if Emacs is running on a virtual
+        ;; terminal without a window system.
        (progn
         (setq mouse-position-function #'t-mouse-mouse-position-function)
         (let ((tty (t-mouse-tty))
@@ -296,11 +296,11 @@
                                "-f")))
         (setq t-mouse-filter-accumulator "")
         (set-process-filter t-mouse-process 't-mouse-process-filter)
-        (set-process-query-on-exit-flag t-mouse-process nil)))
+         (set-process-query-on-exit-flag t-mouse-process nil))
     ;; Turn it off
     (setq mouse-position-function nil)
     (delete-process t-mouse-process)
-    (setq t-mouse-process nil)))
+      (setq t-mouse-process nil))))
 
 (provide 't-mouse)