X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fterm%2Fbg-mouse.el;h=cc4291a3c14bf7e1b21e2cfb37946cc266d59986;hb=60fa1654089109d179be1412be9fe239b41eccf7;hp=ca3b447de30792437ca4df311cbd29d54eca27d3;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index ca3b447..cc4291a 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -71,7 +71,7 @@ To reinitialize the mouse if the terminal is reset, type ESC : RET"
       ((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 @@ through the buffer as the BitGraph mouse's X position in the window."
   (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)))
 
@@ -201,7 +201,7 @@ Sexp is inserted into the buffer at point (where the text cursor is)."
       (indent-according-to-mode))
      ;; In Lisp assume double-quote is closing; in Text assume opening.
      ;; Why?  Because it does the right thing most often.
-     ((save-excursion (forward-char -1)
+     ((save-excursion (backward-char 1)
 		      (and (not (looking-at "\\s\""))
 			   (looking-at "[`'\"\\]\\|\\s(")))
       nil)
@@ -290,7 +290,7 @@ X and Y are 0-based character positions on the screen."
   "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)