import -ko -b 1.1.3 XEmacs XEmacs-21_2 r21-2-35

[chise/xemacs-chise.git.1] / lisp / msw-select.el

diff --git a/lisp/msw-select.el b/lisp/msw-select.el
index de454df..ff659f9 100644 (file)
--- 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