diff options
| author | Jan Djärv | 2005-10-03 19:41:49 +0000 |
|---|---|---|
| committer | Jan Djärv | 2005-10-03 19:41:49 +0000 |
| commit | 03714c7f0986a62aeaa1390d3125c064fbcef45e (patch) | |
| tree | 7604d13fd94f0136814c14c94012b49ec1522780 /lisp | |
| parent | 9a49a36bdbdbef7dad75721cc65564150a03fa14 (diff) | |
| download | emacs-03714c7f0986a62aeaa1390d3125c064fbcef45e.tar.gz emacs-03714c7f0986a62aeaa1390d3125c064fbcef45e.zip | |
* 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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2005-10-03 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | ||
| 2 | |||
| 3 | * x-dnd.el (x-dnd-drop-data): Don't set dnd-open-file-other-window | ||
| 4 | to nil if dropping on a window. Handle dropping on a minibuffer window | ||
| 5 | like dropping on a non-window part of Emacs. | ||
| 6 | |||
| 1 | 2005-10-03 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2005-10-03 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 8 | ||
| 3 | * textmodes/ispell.el (ispell-find-aspell-dictionaries): | 9 | * 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." | |||
| 307 | (action (aref state 5)) | 307 | (action (aref state 5)) |
| 308 | (w (posn-window (event-start event)))) | 308 | (w (posn-window (event-start event)))) |
| 309 | (when handler | 309 | (when handler |
| 310 | (if (and (windowp w) (window-live-p w)) | 310 | (if (and (windowp w) (window-live-p w) |
| 311 | (not (minibufferp (window-buffer w)))) | ||
| 311 | ;; If dropping in a window, open files in that window rather | 312 | ;; If dropping in a window, open files in that window rather |
| 312 | ;; than in a new widow. | 313 | ;; than in a new widow. |
| 313 | (let ((dnd-open-file-other-window nil)) | 314 | (progn |
| 314 | (goto-char (posn-point (event-start event))) | 315 | (goto-char (posn-point (event-start event))) |
| 315 | (funcall handler window action data)) | 316 | (funcall handler window action data)) |
| 316 | (let ((dnd-open-file-other-window t)) ;; Dropping on non-window. | 317 | (let ((dnd-open-file-other-window t)) ;; Dropping on non-window. |