* lisp/dnd.el (dnd-handle-movement): Avoid errors (bug#70311).

This commit is contained in:
Eli Zaretskii 2024-04-14 13:16:29 +03:00
parent bbc5204a0f
commit 5971aa1fd3

View file

@ -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.