(x-set-selection, x-get-selection): Define them to really use TYPE.

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index e649101c5a9627f9928a63885640c937b7dabf60..28b75194d5ff7eaafbe4da3c5e9d5a3cfc1a04c3 100644 (file)
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -181,8 +181,14 @@ See also `auto-save-file-name-p'."
     name))
 
 ;;; Fix interface to (X-specific) mouse.el
-(defalias 'x-set-selection 'ignore)
-(fset 'x-get-selection '(lambda (&rest rest) ""))
+(defun x-set-selection (type data)
+  (or type (setq type 'PRIMARY))
+  (put 'x-selections type data))
+
+(defun x-get-selection (&optional type data-type)
+  (or type (setq type 'PRIMARY))
+  (get 'x-selections type))
+
 (fmakunbound 'font-menu-add-default)
 (global-unset-key [C-down-mouse-1])
 (global-unset-key [C-down-mouse-2])