mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(bg-mouse-report): screen-height -> frame-height.

Browse Source
This commit is contained in:
Stefan Monnier 2000-08-16 20:29:14 +00:00
parent 44946a4c9e
commit 399ede1371
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/term/bg-mouse.el
View File

@ -77,7 +77,7 @@ To reinitialize the mouse if the terminal is reset, type ESC : RET"
(bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y)) (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
(bg-cursor-window (selected-window)) (bg-cursor-window (selected-window))
(edges (window-edges bg-mouse-window)) (edges (window-edges bg-mouse-window))
(minibuf-p (= screen-mouse-y (1- (screen-height)))) (minibuf-p (= screen-mouse-y (1- (frame-height))))
(in-modeline-p (and (not minibuf-p) (in-modeline-p (and (not minibuf-p)
(= screen-mouse-y (1- (nth 3 edges))))) (= screen-mouse-y (1- (nth 3 edges)))))
(in-scrollbar-p (and (not minibuf-p) (not in-modeline-p) (in-scrollbar-p (and (not minibuf-p) (not in-modeline-p)