From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Jun 1996 15:06:04 +0000 (+0000)
Subject: (x-set-selection, x-get-selection): Define them to really use TYPE.
X-Git-Tag: emacs-19.34~512
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bffcf8740278b5dc68ff6f755aab08295e45f22c;p=emacs.git

(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 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])