diff options
| author | Richard M. Stallman | 1997-05-05 19:55:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-05 19:55:17 +0000 |
| commit | a416bfa85ba6111eec3e8775c586ba68113c592e (patch) | |
| tree | 6bb32177366c613357408d7c23098a5ba1f7bc72 | |
| parent | d854d8397ff55f5c21824ea3e8656712c26e3047 (diff) | |
| download | emacs-a416bfa85ba6111eec3e8775c586ba68113c592e.tar.gz emacs-a416bfa85ba6111eec3e8775c586ba68113c592e.zip | |
(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.") | |||
| 201 | (defvar mouse-sel-get-selection-function | 201 | (defvar mouse-sel-get-selection-function |
| 202 | (function (lambda (selection) | 202 | (function (lambda (selection) |
| 203 | (if (eq selection 'PRIMARY) | 203 | (if (eq selection 'PRIMARY) |
| 204 | (x-cut-buffer-or-selection-value) | 204 | (or (x-cut-buffer-or-selection-value) x-last-selected-text) |
| 205 | (x-get-selection selection)))) | 205 | (x-get-selection selection)))) |
| 206 | "Function to call to get the selection. | 206 | "Function to call to get the selection. |
| 207 | Called with one argument: | 207 | Called with one argument: |