Should drag and drop adhere to `mouse-yank-at-point'?

Should drag and drop adhere to `mouse-yank-at-point'?

[Jorgen Schaefer]

Hi there!

Currently, dragging a piece of text into Emacs will insert the
text where the drag button was released, even when
`mouse-yank-at-point' is non-nil. Is this intended behavior?

If so, could a new customize option for this be added?
If not, the fix is trivial:

*** lisp/x-dnd.el.orig	Sat Jun 17 01:51:29 2006
--- lisp/x-dnd.el	Sat Jun 17 01:52:24 2006
***************
*** 319,325 ****
  	  ;; If dropping in an ordinary window which we could use,
  	  ;; let dnd-open-file-other-window specify what to do.
  	  (progn
! 	    (goto-char (posn-point (event-start event)))
  	    (funcall handler window action data))
  	;; If we can't display the file here,
  	;; make a new window for it.
--- 319,326 ----
  	  ;; If dropping in an ordinary window which we could use,
  	  ;; let dnd-open-file-other-window specify what to do.
  	  (progn
!             (when (not mouse-yank-at-point)
!               (goto-char (posn-point (event-start event))))
  	    (funcall handler window action data))
  	;; If we can't display the file here,
  	;; make a new window for it.


Regards,
        -- Jorgen

-- 
((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/")
 (gpg   . "1024D/028AF63C")   (irc . "nick forcer on IRCnet"))

Re: Should drag and drop adhere to `mouse-yank-at-point'?

[Kim F. Storm]

Did anyone consider this?


Jorgen Schaefer <forcer@forcix.cx> writes:

> Hi there!
>
> Currently, dragging a piece of text into Emacs will insert the
> text where the drag button was released, even when
> `mouse-yank-at-point' is non-nil. Is this intended behavior?
>
> If so, could a new customize option for this be added?
> If not, the fix is trivial:
>
> *** lisp/x-dnd.el.orig	Sat Jun 17 01:51:29 2006
> --- lisp/x-dnd.el	Sat Jun 17 01:52:24 2006
> ***************
> *** 319,325 ****
>   	  ;; If dropping in an ordinary window which we could use,
>   	  ;; let dnd-open-file-other-window specify what to do.
>   	  (progn
> ! 	    (goto-char (posn-point (event-start event)))
>   	    (funcall handler window action data))
>   	;; If we can't display the file here,
>   	;; make a new window for it.
> --- 319,326 ----
>   	  ;; If dropping in an ordinary window which we could use,
>   	  ;; let dnd-open-file-other-window specify what to do.
>   	  (progn
> !             (when (not mouse-yank-at-point)
> !               (goto-char (posn-point (event-start event))))
>   	    (funcall handler window action data))
>   	;; If we can't display the file here,
>   	;; make a new window for it.
>
>
> Regards,
>         -- Jorgen
>
> -- 
> ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/")
>  (gpg   . "1024D/028AF63C")   (irc . "nick forcer on IRCnet"))

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk

Re: Should drag and drop adhere to `mouse-yank-at-point'?

[Chong Yidong]

storm@cua.dk (Kim F. Storm) writes:

> Did anyone consider this?

Makes sense to me.

> Jorgen Schaefer <forcer@forcix.cx> writes:
>
>> Hi there!
>>
>> Currently, dragging a piece of text into Emacs will insert the
>> text where the drag button was released, even when
>> `mouse-yank-at-point' is non-nil. Is this intended behavior?
>>
>> If so, could a new customize option for this be added?
>> If not, the fix is trivial:
>>
>> *** lisp/x-dnd.el.orig	Sat Jun 17 01:51:29 2006
>> --- lisp/x-dnd.el	Sat Jun 17 01:52:24 2006
>> ***************
>> *** 319,325 ****
>>   	  ;; If dropping in an ordinary window which we could use,
>>   	  ;; let dnd-open-file-other-window specify what to do.
>>   	  (progn
>> ! 	    (goto-char (posn-point (event-start event)))
>>   	    (funcall handler window action data))
>>   	;; If we can't display the file here,
>>   	;; make a new window for it.
>> --- 319,326 ----
>>   	  ;; If dropping in an ordinary window which we could use,
>>   	  ;; let dnd-open-file-other-window specify what to do.
>>   	  (progn
>> !             (when (not mouse-yank-at-point)
>> !               (goto-char (posn-point (event-start event))))
>>   	    (funcall handler window action data))
>>   	;; If we can't display the file here,
>>   	;; make a new window for it.
>>
>>
>> Regards,
>>         -- Jorgen
>>
>> -- 
>> ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/")
>>  (gpg   . "1024D/028AF63C")   (irc . "nick forcer on IRCnet"))
>
> -- 
> Kim F. Storm <storm@cua.dk> http://www.cua.dk
>
>
>
> _______________________________________________
> Emacs-devel mailing list
> Emacs-devel@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-devel

Re: Should drag and drop adhere to `mouse-yank-at-point'?

[Jan Djärv]

Kim F. Storm skrev:
> Did anyone consider this?
> 
> 

I guess it is OK.  A bit unusual that dropped things don't end up at the 
cursor position, but then again, if you set mouse-yank-at-point you probably 
know what you are doing.  Shall I check it in, or will you?

	Jan D.

> Jorgen Schaefer <forcer@forcix.cx> writes:
> 
>> Hi there!
>>
>> Currently, dragging a piece of text into Emacs will insert the
>> text where the drag button was released, even when
>> `mouse-yank-at-point' is non-nil. Is this intended behavior?
>>
>> If so, could a new customize option for this be added?
>> If not, the fix is trivial:
>>
>> *** lisp/x-dnd.el.orig	Sat Jun 17 01:51:29 2006
>> --- lisp/x-dnd.el	Sat Jun 17 01:52:24 2006
>> ***************
>> *** 319,325 ****
>>   	  ;; If dropping in an ordinary window which we could use,
>>   	  ;; let dnd-open-file-other-window specify what to do.
>>   	  (progn
>> ! 	    (goto-char (posn-point (event-start event)))
>>   	    (funcall handler window action data))
>>   	;; If we can't display the file here,
>>   	;; make a new window for it.
>> --- 319,326 ----
>>   	  ;; If dropping in an ordinary window which we could use,
>>   	  ;; let dnd-open-file-other-window specify what to do.
>>   	  (progn
>> !             (when (not mouse-yank-at-point)
>> !               (goto-char (posn-point (event-start event))))
>>   	    (funcall handler window action data))
>>   	;; If we can't display the file here,
>>   	;; make a new window for it.
>>
>>
>> Regards,
>>         -- Jorgen
>>
>> -- 
>> ((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/")
>>  (gpg   . "1024D/028AF63C")   (irc . "nick forcer on IRCnet"))
> 

Re: Should drag and drop adhere to `mouse-yank-at-point'?

[Kim F. Storm]

Jan Djärv <jan.h.d@swipnet.se> writes:

> I guess it is OK.  A bit unusual that dropped things don't end up at
> the cursor position, but then again, if you set mouse-yank-at-point
> you probably know what you are doing.  Shall I check it in, or will
> you?

Please do.

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk

Re: Should drag and drop adhere to `mouse-yank-at-point'?

[Jan Djärv]

Kim F. Storm skrev:
> Jan Djärv <jan.h.d@swipnet.se> writes:
> 
>> I guess it is OK.  A bit unusual that dropped things don't end up at
>> the cursor position, but then again, if you set mouse-yank-at-point
>> you probably know what you are doing.  Shall I check it in, or will
>> you?
> 
> Please do.
> 

Done.

	Jan D.

Re: Should drag and drop adhere to `mouse-yank-at-point'?

[Jorgen Schaefer]

Jan Djärv <jan.h.d@swipnet.se> writes:

> Kim F. Storm skrev:
>> Jan Djärv <jan.h.d@swipnet.se> writes:
>>
>>> I guess it is OK.  A bit unusual that dropped things don't end up at
>>> the cursor position, but then again, if you set mouse-yank-at-point
>>> you probably know what you are doing.  Shall I check it in, or will
>>> you?
>>
>> Please do.
>
> Done.

Thanks a lot :-)

Regards,
        -- Jorgen (original bug submitter)

-- 
((email . "forcer@forcix.cx") (www . "http://www.forcix.cx/")
 (gpg   . "1024D/028AF63C")   (irc . "nick forcer on IRCnet"))