From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 May 1997 19:55:17 +0000 (+0000)
Subject: (mouse-sel-get-selection-function):
X-Git-Tag: emacs-20.1~2274
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a416bfa85ba6111eec3e8775c586ba68113c592e;p=emacs.git

(mouse-sel-get-selection-function):
Look in x-last-selected-text if necessary.
---

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index fdcd9a3e623..e86737c197f 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -201,7 +201,7 @@ for them.")
 (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: