Mercurial > emacs
changeset 52047:0be309c83b20
(mouse-sel-get-selection-function):
Check `x-last-selected-text-primary'. Don't barf if it or
`x-last-selected-text' aren't bound.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 25 Jul 2003 12:18:46 +0000 |
| parents | 6718a30c3752 |
| children | eeb5d4fd97e1 |
| files | lisp/mouse-sel.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse-sel.el Fri Jul 25 12:18:04 2003 +0000 +++ b/lisp/mouse-sel.el Fri Jul 25 12:18:46 2003 +0000 @@ -313,7 +313,9 @@ (defvar mouse-sel-get-selection-function (lambda (selection) (if (eq selection 'PRIMARY) - (or (x-cut-buffer-or-selection-value) x-last-selected-text) + (or (x-cut-buffer-or-selection-value) + (bound-and-true-p x-last-selected-text) + (bound-and-true-p x-last-selected-text-primary)) (x-get-selection selection))) "Function to call to get the selection. Called with one argument: