# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1160218672 0
# Node ID a5ea274e14acc316fbd33bda43d7da3dd9ca2d38
# Parent  f2f6f5193df95079c7507bb1332a02e097d30a22
(mouse-insert-selection-internal): Use insert-for-yank, so that yank handlers
are run.

diff -r f2f6f5193df9 -r a5ea274e14ac lisp/mouse-sel.el
--- a/lisp/mouse-sel.el	Sat Oct 07 10:48:25 2006 +0000
+++ b/lisp/mouse-sel.el	Sat Oct 07 10:57:52 2006 +0000
@@ -737,7 +737,8 @@
     (mouse-set-point event))
   (when mouse-sel-get-selection-function
     (push-mark (point) 'nomsg)
-    (insert (or (funcall mouse-sel-get-selection-function selection) ""))))
+  (insert-for-yank
+   (or (funcall mouse-sel-get-selection-function selection) ""))))
 
 ;;=== Handle loss of selections ===========================================