diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2024-04-14 13:16:29 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2024-04-14 13:16:29 +0300 |
| commit | 5971aa1fd32583a8d50b67a56cf1b40f1665fca0 (patch) | |
| tree | f8e82ea7060d4f6ae8ebd1b1afa276ed12d9af5b /lisp | |
| parent | bbc5204a0f3ebea32429bd01207284eead23bf22 (diff) | |
| download | emacs-5971aa1fd32583a8d50b67a56cf1b40f1665fca0.tar.gz emacs-5971aa1fd32583a8d50b67a56cf1b40f1665fca0.tar.bz2 emacs-5971aa1fd32583a8d50b67a56cf1b40f1665fca0.zip | |
* lisp/dnd.el (dnd-handle-movement): Avoid errors (bug#70311).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dnd.el | 9 |
1 files 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. |