[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c13937c: * lisp/x-dnd.el (x-dnd-get-drop-x-y): Add safer check fo
From: |
Juri Linkov |
Subject: |
master c13937c: * lisp/x-dnd.el (x-dnd-get-drop-x-y): Add safer check for top/left (bug#45277) |
Date: |
Tue, 29 Dec 2020 14:37:44 -0500 (EST) |
branch: master
commit c13937ccb6c9ebf7a1dd9eaa7eb6bb3768409093
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/x-dnd.el (x-dnd-get-drop-x-y): Add safer check for top/left
(bug#45277)
---
lisp/x-dnd.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 1d49f46..5af5490 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -411,8 +411,10 @@ Coordinates are required to be absolute.
FRAME is the frame and W is the window where the drop happened.
If W is a window, return its absolute coordinates,
otherwise return the frame coordinates."
- (let* ((frame-left (frame-parameter frame 'left))
- (frame-top (frame-parameter frame 'top)))
+ (let* ((frame-left (or (car-safe (cdr-safe (frame-parameter frame 'left)))
+ (frame-parameter frame 'left)))
+ (frame-top (or (car-safe (cdr-safe (frame-parameter frame 'top)))
+ (frame-parameter frame 'top))))
(if (windowp w)
(let ((edges (window-inside-pixel-edges w)))
(cons
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c13937c: * lisp/x-dnd.el (x-dnd-get-drop-x-y): Add safer check for top/left (bug#45277),
Juri Linkov <=