[Emacs-diffs] Changes to emacs/lisp/term/bg-mouse.el

[Juanma Barranquero]

Index: emacs/lisp/term/bg-mouse.el
diff -c emacs/lisp/term/bg-mouse.el:1.12 emacs/lisp/term/bg-mouse.el:1.13
*** emacs/lisp/term/bg-mouse.el:1.12    Mon Nov 26 11:17:44 2001
--- emacs/lisp/term/bg-mouse.el Tue Feb  4 08:28:06 2003
***************
*** 74,80 ****
        ((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-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))
--- 74,80 ----
        ((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-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))
***************
*** 171,177 ****
    (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"
    (interactive)
    (scroll-up (/ (+ 2 bg-mouse-y bg-mouse-y (- (window-height))) 2)))
--- 171,177 ----
    (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"
    (interactive)
    (scroll-up (/ (+ 2 bg-mouse-y bg-mouse-y (- (window-height))) 2)))
***************
*** 255,261 ****
  (defun bg-window-from-x-y (x y)
    "Find window corresponding to screen coordinates.
  X and Y are 0-based character positions on the screen."
!   (get-window-with-predicate (lambda (w) 
                               (coordinates-in-window-p (cons x y) w))))
  
  (defun bg-command-execute (bg-command)
--- 255,261 ----
  (defun bg-window-from-x-y (x y)
    "Find window corresponding to screen coordinates.
  X and Y are 0-based character positions on the screen."
!   (get-window-with-predicate (lambda (w)
                               (coordinates-in-window-p (cons x y) w))))
  
  (defun bg-command-execute (bg-command)
***************
*** 277,283 ****
    "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-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)
--- 277,283 ----
    "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-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)