From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Oct 1996 18:13:52 +0000 (+0000)
Subject: (mouse-sel-set-selection-function): Doc fix.
X-Git-Tag: emacs-20.1~3473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a6231f5fcbe2915a0458dade891c71c249dd016;p=emacs.git

(mouse-sel-set-selection-function): Doc fix.
Use x-select-text, for the primary selection.
(mouse-sel-get-selection-function):
Use x-cut-buffer-or-selection-value, for the primary selection.
---

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index d3a63095bbc..fdcd9a3e623 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -185,17 +185,24 @@ where   SELECTION-NAME          = name of selection
  				  type for this selection should be stored.")
     
 (defvar mouse-sel-set-selection-function 
-  (if (fboundp 'x-set-selection)
-      'x-set-selection)
+  (function (lambda (selection value)
+	      (if (eq selection 'PRIMARY)
+		  (x-select-text value)
+		(x-set-selection selection value))))
   "Function to call to set selection.
 Called with two arguments:
 
   SELECTION, the name of the selection concerned, and
-  VALUE, the text to store.")
+  VALUE, the text to store.
+This sets the selection as well as the cut buffer for the older applications.
+Use (setq mouse-sel-set-selection-function 'x-set-selection) if you don't care
+for them.")
 
 (defvar mouse-sel-get-selection-function
-  (if (fboundp 'x-get-selection)
-      'x-get-selection)
+  (function (lambda (selection)
+	      (if (eq selection 'PRIMARY)
+		  (x-cut-buffer-or-selection-value)
+		(x-get-selection selection))))
   "Function to call to get the selection.
 Called with one argument: