diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-05 19:55:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-05 19:55:17 +0000 |
| commit | 5e9ee7703282c0d202204022e9e2ef13c3182b6a (patch) | |
| tree | 9ea530ffe16afdf2a2da83a15f5eca6f1909bfc7 | |
| parent | 36f696d1d464d0c1f569195bdf485435d418bf32 (diff) | |
| download | emacs-5e9ee7703282c0d202204022e9e2ef13c3182b6a.tar.gz | |
(mouse-sel-get-selection-function):
Look in x-last-selected-text if necessary.
| -rw-r--r-- | lisp/mouse-sel.el | 2 |
1 files changed, 1 insertions, 1 deletions
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: |