From a416bfa85ba6111eec3e8775c586ba68113c592e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 5 May 1997 19:55:17 +0000 Subject: (mouse-sel-get-selection-function): Look in x-last-selected-text if necessary. --- lisp/mouse-sel.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/mouse-sel.el') 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: -- cgit v1.2.1