* lisp/dnd.el (dnd-handle-movement): Avoid errors (bug#70311).
This commit is contained in:
parent
bbc5204a0f
commit
5971aa1fd3
1 changed files with 7 additions and 2 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue