Mercurial > hg > xemacs-beta
comparison lisp/mouse.el @ 446:1ccc32a20af4 r21-2-38
Import from CVS: tag r21-2-38
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:37:21 +0200 |
| parents | 576fb035e263 |
| children | 52626a2f02ef |
comparison
equal
deleted
inserted
replaced
| 445:34f3776fcf0e | 446:1ccc32a20af4 |
|---|---|
| 746 ;; Not over a modeline, not the same window. Check if the Y position | 746 ;; Not over a modeline, not the same window. Check if the Y position |
| 747 ;; is still overlapping the original window. | 747 ;; is still overlapping the original window. |
| 748 (let* ((edges (window-pixel-edges window)) | 748 (let* ((edges (window-pixel-edges window)) |
| 749 (row (event-y-pixel event)) | 749 (row (event-y-pixel event)) |
| 750 (text-start (nth 1 edges)) | 750 (text-start (nth 1 edges)) |
| 751 (text-end (+ (nth 3 edges)))) | 751 (text-end (nth 3 edges))) |
| 752 (if (or (< row text-start) | 752 (if (or (< row text-start) |
| 753 (> row text-end)) | 753 (> row text-end)) |
| 754 nil ;; Scroll | 754 nil ;; Scroll |
| 755 ;; The Y pos in overlapping the original window. Check however if | 755 ;; The Y pos in overlapping the original window. Check however if |
| 756 ;; the position is really visible, because there could be a | 756 ;; the position is really visible, because there could be a |