Mercurial > emacs
diff lisp/mouse-sel.el @ 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 | 83f275dcd93a |
children | 3e65698d4ce9 |
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: