X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmouse.el;h=4a0a22cf0dd05055c24b6ee5cb4abe91e19ce1b8;hb=afa9772e3fcbb4e80e3e4cfd1a40b4fccc6d08b8;hp=0afebb80e17fdcae4f0e40eda3c856efb5e48993;hpb=7de03d6d03b52f49036eed2b6bb488112dc6ab05;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0afebb8..4a0a22c 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -88,7 +88,9 @@ If set to `symbol', double-click will always attempt to highlight a
 the X cutbuffer.  A mark is pushed, so that the inserted text lies
 between point and mark."
   (interactive)
-  (if (not (console-on-window-system-p))
+  (if (and (not (console-on-window-system-p))
+	   (and (featurep 'gpm)
+		(not gpm-minor-mode)))
       (yank)
     (push-mark)
     (if (region-active-p)