diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-07-15 03:24:58 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-07-15 03:24:58 +0000 |
| commit | 0cc89026beff8f9f7b136f4464934675fe50cfcd (patch) | |
| tree | bac0be283b70cdaec9095daaeae1e3fd291c56af /lisp/term/sup-mouse.el | |
| parent | f98955eaaa3d2c459b373a7b4c5d1176a18687d9 (diff) | |
| download | emacs-0cc89026beff8f9f7b136f4464934675fe50cfcd.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/term/sup-mouse.el')
| -rw-r--r-- | lisp/term/sup-mouse.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el index 471661f7686..be7e7f0ff4d 100644 --- a/lisp/term/sup-mouse.el +++ b/lisp/term/sup-mouse.el @@ -75,7 +75,7 @@ on modeline on \"scroll bar\" in minibuffer (window (sup-pos-to-window x y)) (edges (window-edges window)) (old-window (selected-window)) - (in-minibuf-p (eq y (1- (screen-height)))) + (in-minibuf-p (eq y (1- (frame-height)))) (same-window-p (and (not in-minibuf-p) (eq window old-window))) (in-modeline-p (eq y (1- (nth 3 edges)))) (in-scrollbar-p (>= x (1- (nth 2 edges))))) @@ -190,8 +190,8 @@ X and Y are 0-based character positions in the window." ) (defun sup-pos-to-window (x y) - "Find window corresponding to screen coordinates. -X and Y are 0-based character positions on the screen." + "Find window corresponding to frame coordinates. +X and Y are 0-based character positions on the frame." (let ((edges (window-edges)) (window nil)) (while (and (not (eq window (selected-window))) |