Commit 69a069fa authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-dnd-drop-data): Check for dedicated windows.

parent 6487ea0d
......@@ -308,13 +308,16 @@ nil if not."
(w (posn-window (event-start event))))
(when handler
(if (and (windowp w) (window-live-p w)
(not (minibufferp (window-buffer w))))
;; If dropping in a window, open files in that window rather
;; than in a new widow.
(not (window-minibuffer-p w))
(not (window-dedicated-p w)))
;; If dropping in an ordinary window which we could use,
;; let dnd-open-file-other-window specify what to do.
(goto-char (posn-point (event-start event)))
(funcall handler window action data))
(let ((dnd-open-file-other-window t)) ;; Dropping on non-window.
;; If we can't display the file here,
;; make a new window for it.
(let ((dnd-open-file-other-window t))
(select-frame frame)
(funcall handler window action data))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment