Richard M. Stallman wrote:
Does this code look good to you?
Yes it does. Jan has already checked in a new version with
a similar patch:
*** emacs/emacs/lisp/x-dnd.el 2005/08/06 22:13:43 1.16
--- emacs/emacs/lisp/x-dnd.el 2005/10/03 19:41:25 1.17
***************
*** 307,316 ****
(action (aref state 5))
(w (posn-window (event-start event))))
(when handler
! (if (and (windowp w) (window-live-p w))
;; If dropping in a window, open files in that window rather
;; than in a new widow.
! (let ((dnd-open-file-other-window nil))
(goto-char (posn-point (event-start event)))
(funcall handler window action data))
(let ((dnd-open-file-other-window t)) ;; Dropping on non-window.
--- 307,317 ----
(action (aref state 5))
(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.
! (progn
(goto-char (posn-point (event-start event)))
(funcall handler window action data))
(let ((dnd-open-file-other-window t)) ;; Dropping on non-window.
However, your version is better, obeying the window's "dedicated" property.
Thank you for your help.
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
