XEmacs 21.2.38 (Peisino)

[chise/xemacs-chise.git.1] / lisp / term / bg-mouse.el

diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index ca3b447..cc4291a 100644 (file)
--- 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)