diff options
| author | Gerd Möllmann | 2024-10-05 18:55:18 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2024-10-05 18:55:18 +0200 |
| commit | beb5b77123619758c1def6b9f227fa7568516775 (patch) | |
| tree | 809e025df6a48b10f3022558f23840a8def6cbec /lisp/xt-mouse.el | |
| parent | 069ecc9c4c3709246a6ff50d09af418444d427c3 (diff) | |
| download | emacs-tty-child-frames.tar.gz emacs-tty-child-frames.zip | |
Preview from my branch on githubtty-child-frames
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 8cbb44ece14..4f32d3b5fda 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -293,7 +293,16 @@ which is the \"1006\" extension implemented in Xterm >= 277." | |||
| 293 | (progn (setq xt-mouse-epoch (float-time)) 0) | 293 | (progn (setq xt-mouse-epoch (float-time)) 0) |
| 294 | (car (time-convert (time-since xt-mouse-epoch) | 294 | (car (time-convert (time-since xt-mouse-epoch) |
| 295 | 1000)))) | 295 | 1000)))) |
| 296 | (w (window-at x y)) | 296 | (frame (frame-at x y)) |
| 297 | ;;(_ (message (format "*** %S" frame))) | ||
| 298 | (frame-pos (frame-position frame)) | ||
| 299 | ;;(_ (message (format "*** %S" frame-pos))) | ||
| 300 | (x (- x (car frame-pos))) | ||
| 301 | (y (- y (cdr frame-pos))) | ||
| 302 | ;;(_ (message (format "*** %S %S" x y))) | ||
| 303 | (w (window-at x y frame)) | ||
| 304 | ;;(_ (message (format "*** %S" w))) | ||
| 305 | |||
| 297 | (ltrb (window-edges w)) | 306 | (ltrb (window-edges w)) |
| 298 | (left (nth 0 ltrb)) | 307 | (left (nth 0 ltrb)) |
| 299 | (top (nth 1 ltrb)) | 308 | (top (nth 1 ltrb)) |