# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1059135526 0
# Node ID 0be309c83b20d97b85a41a071cdb86970910020e
# Parent  6718a30c3752cb7eeaa3ac84030d3c813de627b9
(mouse-sel-get-selection-function):
Check `x-last-selected-text-primary'.  Don't barf if it or
`x-last-selected-text' aren't bound.

diff -r 6718a30c3752 -r 0be309c83b20 lisp/mouse-sel.el
--- a/lisp/mouse-sel.el	Fri Jul 25 12:18:04 2003 +0000
+++ b/lisp/mouse-sel.el	Fri Jul 25 12:18:46 2003 +0000
@@ -313,7 +313,9 @@
 (defvar mouse-sel-get-selection-function
   (lambda (selection)
     (if (eq selection 'PRIMARY)
-	(or (x-cut-buffer-or-selection-value) x-last-selected-text)
+	(or (x-cut-buffer-or-selection-value)
+	    (bound-and-true-p x-last-selected-text)
+	    (bound-and-true-p x-last-selected-text-primary))
       (x-get-selection selection)))
   "Function to call to get the selection.
 Called with one argument: