# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862862117 0
# Node ID 3e65698d4ce9f6cce31f8a5c5ebf60fc79299400
# Parent  40d6f66af2bc59de49a916264196e1a0185a784e
(mouse-sel-get-selection-function):
Look in x-last-selected-text if necessary.

diff -r 40d6f66af2bc -r 3e65698d4ce9 lisp/mouse-sel.el
--- a/lisp/mouse-sel.el	Mon May 05 19:53:46 1997 +0000
+++ b/lisp/mouse-sel.el	Mon May 05 19:55:17 1997 +0000
@@ -201,7 +201,7 @@
 (defvar mouse-sel-get-selection-function
   (function (lambda (selection)
 	      (if (eq selection 'PRIMARY)
-		  (x-cut-buffer-or-selection-value)
+		  (or (x-cut-buffer-or-selection-value) x-last-selected-text)
 		(x-get-selection selection))))
   "Function to call to get the selection.
 Called with one argument: