changeset 17671:3e65698d4ce9

(mouse-sel-get-selection-function): Look in x-last-selected-text if necessary.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 May 1997 19:55:17 +0000
parents 40d6f66af2bc
children 3e14521699ff
files lisp/mouse-sel.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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: