(mouse-insert-selection-internal): Use insert-for-yank, so that yank handlers

are run.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4144c05aed5bab233f2e06c37502f73595d7ea50..3129bef08555006a287387dcd8b16d74f110fb1e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-07  Johan Bockg\e,be\e(Brd  <bojohan@dd.chalmers.se>
+
+       * mouse-sel.el (mouse-insert-selection-internal): Use
+       insert-for-yank, so that yank handlers are run.
+
 2006-10-07  Kim F. Storm  <storm@cua.dk>
 
        * ido.el (ido-file-extension-aux): Fix comparison.

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index a327b589f5448dc5025344dd9f8d02931af6e830..a1209f827f196ea0c2b20b69860af54dc6fc8fe1 100644 (file)
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -737,7 +737,8 @@ If `mouse-yank-at-point' is non-nil, insert at point instead."
     (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 ===========================================