diff options
Diffstat (limited to 'lisp/term/bg-mouse.el')
| -rw-r--r-- | lisp/term/bg-mouse.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el index 78fecb4d9f2..7291b877d56 100644 --- a/lisp/term/bg-mouse.el +++ b/lisp/term/bg-mouse.el @@ -74,7 +74,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)) @@ -171,7 +171,7 @@ 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 + "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,7 +255,7 @@ X and Y are 0-based character positions in the window." (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) + (get-window-with-predicate (lambda (w) (coordinates-in-window-p (cons x y) w)))) (defun bg-command-execute (bg-command) @@ -277,7 +277,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) |