XEmacs 21.2.14.

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

diff --git a/lisp/msw-select.el b/lisp/msw-select.el
index cd99854..34b43b8 100644 (file)
--- a/lisp/msw-select.el
+++ b/lisp/msw-select.el
@@ -86,7 +86,9 @@ Interactively, the text of the region is used as the selection value."
             valid))
       (signal 'error (list "invalid selection" data)))
   (if data
-      (setq mswindows-selection-owned-p data)
+      (progn
+;      (mswindows-set-clipboard data)
+       (setq mswindows-selection-owned-p data))
     (setq mswindows-selection-owned-p nil))
   (setq primary-selection-extent
        (select-make-extent-for-selection