Mercurial > emacs
changeset 16471:51916440738f
(mouse-sel-set-selection-function): Doc fix.
Use x-select-text, for the primary selection.
(mouse-sel-get-selection-function):
Use x-cut-buffer-or-selection-value, for the primary selection.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Oct 1996 18:13:52 +0000 |
| parents | b050d980c422 |
| children | dbfab9e8b6d8 |
| files | lisp/mouse-sel.el |
| diffstat | 1 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse-sel.el Sat Oct 26 18:12:01 1996 +0000 +++ b/lisp/mouse-sel.el Sat Oct 26 18:13:52 1996 +0000 @@ -185,17 +185,24 @@ type for this selection should be stored.") (defvar mouse-sel-set-selection-function - (if (fboundp 'x-set-selection) - 'x-set-selection) + (function (lambda (selection value) + (if (eq selection 'PRIMARY) + (x-select-text value) + (x-set-selection selection value)))) "Function to call to set selection. Called with two arguments: SELECTION, the name of the selection concerned, and - VALUE, the text to store.") + VALUE, the text to store. +This sets the selection as well as the cut buffer for the older applications. +Use (setq mouse-sel-set-selection-function 'x-set-selection) if you don't care +for them.") (defvar mouse-sel-get-selection-function - (if (fboundp 'x-get-selection) - 'x-get-selection) + (function (lambda (selection) + (if (eq selection 'PRIMARY) + (x-cut-buffer-or-selection-value) + (x-get-selection selection)))) "Function to call to get the selection. Called with one argument: