diff lisp/term/bg-mouse.el @ 444:576fb035e263 r21-2-37

Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 376386a54a3c
children 1ccc32a20af4
line wrap: on
line diff
--- a/lisp/term/bg-mouse.el	Mon Aug 13 11:35:05 2007 +0200
+++ b/lisp/term/bg-mouse.el	Mon Aug 13 11:36:19 2007 +0200
@@ -71,7 +71,7 @@
       ((screen-mouse-x (min (1- (frame-width))	;don't hit column 86!
 			    (/ (bg-get-tty-num semicolon) 9)))
        (screen-mouse-y (- (1- (frame-height)) ;assume default font size.
-			  (/ (bg-get-tty-num semicolon) 16))) 
+			  (/ (bg-get-tty-num semicolon) 16)))
        (bg-mouse-buttons (% (bg-get-tty-num ?c) 8))
        (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
        (bg-cursor-window (selected-window))
@@ -168,8 +168,8 @@
   (scroll-up bg-mouse-y))
 
 (defun bg-mouse-line-to-center ()
-  "Scroll the line pointed to by the BitGraph mouse to the center 
-of the window"
+  "Scroll the line pointed to by the BitGraph mouse to the center
+of the window."
   (interactive)
   (scroll-up (/ (+ 2 bg-mouse-y bg-mouse-y (- (window-height))) 2)))
 
@@ -290,7 +290,7 @@
   "Bind bg-mouse CLICK-CODE to run FUNCTION."
   (define-key mouse-map (char-to-string click-code) function))
 
-(bind-bg-mouse-click bg-button-l 'bg-set-point) 
+(bind-bg-mouse-click bg-button-l 'bg-set-point)
 (bind-bg-mouse-click bg-button-m 'bg-yank)
 (bind-bg-mouse-click bg-button-r 'bg-set-mark)
 (bind-bg-mouse-click (+ bg-button-l bg-button-m) 'yank-pop-1)