From 03714c7f0986a62aeaa1390d3125c064fbcef45e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Mon, 3 Oct 2005 19:41:49 +0000 Subject: [PATCH] * x-dnd.el (x-dnd-drop-data): Don't set dnd-open-file-other-window to nil if dropping on a window. Handle dropping on a minibuffer window like dropping on a non-window part of Emacs. --- lisp/ChangeLog | 6 ++++++ lisp/x-dnd.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e5d78668cf..c9f8ac610ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-10-03 Jan Dj,Ad(Brv + + * x-dnd.el (x-dnd-drop-data): Don't set dnd-open-file-other-window + to nil if dropping on a window. Handle dropping on a minibuffer window + like dropping on a non-window part of Emacs. + 2005-10-03 Stefan Monnier * textmodes/ispell.el (ispell-find-aspell-dictionaries): diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el index 612e033c4cb..4b23665bca2 100644 --- a/lisp/x-dnd.el +++ b/lisp/x-dnd.el @@ -307,10 +307,11 @@ nil if not." (action (aref state 5)) (w (posn-window (event-start event)))) (when handler - (if (and (windowp w) (window-live-p w)) + (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. - (let ((dnd-open-file-other-window nil)) + (progn (goto-char (posn-point (event-start event))) (funcall handler window action data)) (let ((dnd-open-file-other-window t)) ;; Dropping on non-window. -- 2.39.2