[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 5971aa1fd32: * lisp/dnd.el (dnd-handle-movement): Avoid errors
From: |
Eli Zaretskii |
Subject: |
emacs-29 5971aa1fd32: * lisp/dnd.el (dnd-handle-movement): Avoid errors (bug#70311). |
Date: |
Sun, 14 Apr 2024 06:16:56 -0400 (EDT) |
branch: emacs-29
commit 5971aa1fd32583a8d50b67a56cf1b40f1665fca0
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
* lisp/dnd.el (dnd-handle-movement): Avoid errors (bug#70311).
---
lisp/dnd.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/lisp/dnd.el b/lisp/dnd.el
index 89652d32abf..b68dc269354 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -149,8 +149,13 @@ Windows."
(with-selected-window window
(scroll-down 1))))))))
(when dnd-indicate-insertion-point
- (ignore-errors
- (goto-char (posn-point posn)))))))
+ (let ((pos (posn-point posn)))
+ ;; We avoid errors here, since on some systems this runs
+ ;; when waiting_for_input is non-zero, and that aborts on
+ ;; error.
+ (if (and pos (<= (point-min) pos (point-max)))
+ (goto-char pos)
+ pos))))))
(defun dnd-handle-one-url (window action url)
"Handle one dropped url by calling the appropriate handler.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 5971aa1fd32: * lisp/dnd.el (dnd-handle-movement): Avoid errors (bug#70311).,
Eli Zaretskii <=