From bffcf8740278b5dc68ff6f755aab08295e45f22c Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 7 Jun 1996 15:06:04 +0000
Subject: [PATCH] (x-set-selection, x-get-selection): Define them to really use
 TYPE.

---
 lisp/w32-fns.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index e649101c5a9..28b75194d5f 100644
--- 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])
-- 
2.39.2