Mercurial > emacs

comparison lisp/term/bg-mouse.el @ 30880:3af33efc3d66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bg-mouse-report): screen-height -> frame-height.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 16 Aug 2000 20:29:14 +0000
parents 2c3b912c56ed
children 253f761ad37b
comparison
equal deleted inserted replaced
30879:3a1ff1caafe2 30880:3af33efc3d66
75 (/ (bg-get-tty-num semicolon) 16))) 75 (/ (bg-get-tty-num semicolon) 16)))
76 (bg-mouse-buttons (% (bg-get-tty-num ?c) 8)) 76 (bg-mouse-buttons (% (bg-get-tty-num ?c) 8))
77 (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y)) 77 (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
78 (bg-cursor-window (selected-window)) 78 (bg-cursor-window (selected-window))
79 (edges (window-edges bg-mouse-window)) 79 (edges (window-edges bg-mouse-window))
80 (minibuf-p (= screen-mouse-y (1- (screen-height)))) 80 (minibuf-p (= screen-mouse-y (1- (frame-height))))
81 (in-modeline-p (and (not minibuf-p) 81 (in-modeline-p (and (not minibuf-p)
82 (= screen-mouse-y (1- (nth 3 edges))))) 82 (= screen-mouse-y (1- (nth 3 edges)))))
83 (in-scrollbar-p (and (not minibuf-p) (not in-modeline-p) 83 (in-scrollbar-p (and (not minibuf-p) (not in-modeline-p)
84 (>= screen-mouse-x (1- (nth 2 edges))))) 84 (>= screen-mouse-x (1- (nth 2 edges)))))
85 (same-window-p (eq bg-mouse-window bg-cursor-window)) 85 (same-window-p (eq bg-mouse-window bg-cursor-window))