Commit 497cfacf authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(mouse-sel-get-selection-function):

Check `x-last-selected-text-primary'.  Don't barf if it or
`x-last-selected-text' aren't bound.
parent 1a0d0b6a
2003-07-25 John Paul Wallington <jpw@gnu.org>
* server.el (server-start): Check `server-process' is non-nil
before killing it to avoid killing current buffer's process.
* simple.el (choose-completion-string): Use `minibufferp';
test `completion-reference-buffer' if `buffer' arg is nil.
(push-mark): Use `when' and `unless'.
(pop-mark): Use `when'.
* mouse-sel.el (mouse-sel-get-selection-function):
Check `x-last-selected-text-primary'. Don't barf if it or
`x-last-selected-text' aren't bound.
2003-07-25 Kevin Rodgers <ihs_4664@yahoo.com> (tiny change)
 
* menu-bar.el (menu-bar-tools-menu): Minor change in strings.
......
......@@ -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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment