From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 Oct 2006 10:58:39 +0000 (+0000)
Subject: (mouse-insert-selection-internal): Use insert-for-yank, so that yank handlers
X-Git-Tag: emacs-pretest-22.0.90~209
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3886822054abef2c356b5e065077caccb0bc874;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4144c05aed5..3129bef0855 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-07  Johan Bockg,be(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 a327b589f54..a1209f827f1 100644
--- 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 ===========================================