diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-07-25 12:21:01 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-07-25 12:21:01 +0000 |
| commit | 497cfacf276f20bd041c109e30ea4f99c3e43b17 (patch) | |
| tree | a9792ce3bea351c6bc7b98b2c38ba6308ccde1b1 /lisp/mouse-sel.el | |
| parent | 1a0d0b6ab1e8107e7453b7a72e1c040d2da191f5 (diff) | |
| download | emacs-497cfacf276f20bd041c109e30ea4f99c3e43b17.tar.gz | |
(mouse-sel-get-selection-function):
Check `x-last-selected-text-primary'. Don't barf if it or
`x-last-selected-text' aren't bound.
Diffstat (limited to 'lisp/mouse-sel.el')
| -rw-r--r-- | lisp/mouse-sel.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index bba41a0dbf9..bbbb1e54595 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -313,7 +313,9 @@ unless `mouse-sel-default-bindings' is `interprogram-cut-paste'.") (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: |