X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmsw-select.el;h=ff659f9c2beff88560e41f0f8facfeed772210c5;hb=888f58dafbe58b95381887c8812f90128fb11a48;hp=de454dfd22755fb12e540ad452f7d0f67bc58788;hpb=113b194be934327de99a168d809271db252c07c4;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/msw-select.el b/lisp/msw-select.el
index de454df..ff659f9 100644
--- a/lisp/msw-select.el
+++ b/lisp/msw-select.el
@@ -38,7 +38,7 @@ replacing the active selection if there is one."
   (interactive "*")
   (setq last-command nil)
   (setq this-command 'yank) ; so that yank-pop works.
-  (let ((clip (mswindows-get-clipboard)) (s (mark-marker)) (e (point-marker)))
+  (let ((clip (get-clipboard)) (s (mark-marker)) (e (point-marker)))
     (or clip (error "there is no text on the clipboard"))
     (if s
 	(if mouse-track-rectangle-p