emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]