From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Philipp Stephani
I applied the p= atch, and the paste-on-click behavior is gone.However, = if you try your original example again, you'll find that nothing happen= s at all, when we're expecting an "a" to be inserted.As the documentation of mouse-on-link-p says, a string or vector return = value indicates the event to translate the original mouse-1 click into. In = emacs24, that translation was done in mouse-drag-track: (let= (on-link (and mouse-1-click-follows-link=C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0;; Use start-= point before the intangibility=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0;; treatment, in case we c= lick on a link inside=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0;; intangible text.=C2=A0 (mouse-on-link-p start-po= sn))) =C2=A0 (if (or (vectorp on-link) (stringp on-link))=C2=A0(setq event (aref o= n-link 0)) (select-= window original-window)= span>(setcar event 'mouse-2);; If this mouse click has never been done by the<= span style=3D"white-space:pre-wrap"> ;; user, it doesn't have t= he necessary property to be= ;; interpreted correctly.(put 'mouse-2 'event-kind 'mouse-click)))=