Mercurial > emacs

changeset 69274:ecf5c4f0cb3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(t-mouse-drag-start, t-mouse-swap-alt-keys): Doc fix; escape parentheses at beginning of line. (t-mouse-tty, t-mouse-make-event): Doc fix; use imperative. (t-mouse-mode): Remove period from end of error message.
author John Paul Wallington <jpw@pobox.com>
date Fri, 03 Mar 2006 23:53:42 +0000
parents b52e0cc8af61
children 09b58f24f398
files lisp/t-mouse.el
diffstat 1 files changed, 16 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/t-mouse.el	Fri Mar 03 20:50:50 2006 +0000
+++ b/lisp/t-mouse.el	Fri Mar 03 23:53:42 2006 +0000
@@ -6,7 +6,7 @@
 
 ;; Copyright (C) 1994,1995 Alessandro Rubini <rubini@linux.it>
 ;;               parts are by Ian T Zimmermann <itz@rahul.net>, 1995,1998
-;; Copyright (C) 2006 
+;; Copyright (C) 2006
 ;; Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -29,15 +29,15 @@
 ;;; Commentary:
 
 ;; This package provides access to mouse event as reported by the
-;; gpm-Linux package. It uses the program "mev" to get mouse events.
-;; It tries to reproduce the functionality offered by emacs under X.
+;; gpm-Linux package.  It uses the program "mev" to get mouse events.
+;; It tries to reproduce the functionality offered by Emacs under X.
 ;; The "gpm" server runs under Linux, so this package is rather
 ;; Linux-dependent.
 
 ;; Modified by Nick Roberts for Emacs 22.  In particular, the mode-line is
 ;; now position sensitive.
 
-(defvar t-mouse-process nil 
+(defvar t-mouse-process nil
   "Embeds the process which passes mouse events to emacs.
 It is used by the program t-mouse.")
 
@@ -53,7 +53,7 @@
 
 (defvar t-mouse-drag-start nil
   "Whenever a drag starts in a special part of a window
-(not the text), the `translated' starting coordinates including the
+\(not the text), the `translated' starting coordinates including the
 window and part involved are saved here.  This is necessary lest they
 get re-translated when the button goes up, at which time window
 configuration may have changed.")
@@ -63,10 +63,10 @@
 
 (defvar t-mouse-swap-alt-keys nil
   "When set, Emacs will handle mouse events with the right Alt
-(a.k.a. Alt-Ger) modifier, not with the regular left Alt modifier.
+\(a.k.a.  Alt-Ger) modifier, not with the regular left Alt modifier.
 Useful for people who play strange games with their keyboard tables.")
 
-(defvar t-mouse-fix-21 nil 
+(defvar t-mouse-fix-21 nil
   "Enable brain-dead chords for 2 button mice.")
 
 
@@ -75,7 +75,7 @@
 ;; get the number of the current virtual console
 
 (defun t-mouse-tty ()
-  "Returns number of virtual terminal Emacs is running on, as a string.
+  "Return number of virtual terminal Emacs is running on, as a string.
 For example, \"2\" for /dev/tty2."
   (with-temp-buffer
     (call-process "ps" nil t nil "h" (format "%s" (emacs-pid)))
@@ -148,8 +148,8 @@
 
 ;;; This fun is partly Copyright (C) 1994 Per Abrahamsen <abraham@iesd.auc.dk>
 (defun t-mouse-make-event ()
-  "Makes a Lisp style event from the contents of mouse input accumulator.
-Also trims the accumulator by all the data used to build the event."
+  "Make a Lisp style event from the contents of mouse input accumulator.
+Also trim the accumulator by all the data used to build the event."
   (let (ob (ob-pos (condition-case nil
 		       (progn
 			 ;; this test is just needed for Fedora Core 3
@@ -185,13 +185,13 @@
                   (progn
                     (setq end-of-root-event-name (match-beginning 0))
                     (setq new-event-name-string
-                          (concat (substring  
+                          (concat (substring
                                    event-name-string 0
                                    end-of-root-event-name) "-3"))
  	      
                     ;;Change the event to the symbol that corresponds to the
                     ;;name we made. The proper symbol already exists.
-                    (setq event-type 
+                    (setq event-type
                           (intern new-event-name-string))))))
  	
         ;;store current position for mouse-position
@@ -231,7 +231,7 @@
         (concat t-mouse-filter-accumulator string))
   (let ((event (t-mouse-make-event)))
     (while event
-      (if (or track-mouse 
+      (if (or track-mouse
               (not (eq 'mouse-movement (event-basic-type event))))
           (setq unread-command-events
                 (nconc unread-command-events (list event))))
@@ -249,7 +249,7 @@
 ;; stop-process.  That doesn't work; mev receives the signal fine but
 ;; is not really stopped: instead it returns from
 ;; kill(getpid(), SIGTSTP) immediately.  I don't understand what's up
-;; itz Tue Mar 24 14:27:38 PST 1998. 
+;; itz Tue Mar 24 14:27:38 PST 1998.
 
 (add-hook 'suspend-hook
           (function (lambda ()
@@ -281,8 +281,8 @@
 	 (let ((tty (t-mouse-tty))
 	       (process-connection-type t))
 	   (if (not (stringp tty))
-	       (error "Cannot find a virtual terminal."))
-	   (setq t-mouse-process 
+	       (error "Cannot find a virtual terminal"))
+	   (setq t-mouse-process
 		 (start-process "t-mouse" nil
 				"mev" "-i" "-E" "-C" tty
 				(if t-mouse-swap-alt-keys