Mercurial > emacs

diff lisp/mouse-sel.el @ 52047:0be309c83b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 4398c7a41151
children 695cf19ef79e
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: