313 |
(defvar mouse-sel-get-selection-function |
(defvar mouse-sel-get-selection-function |
314 |
(lambda (selection) |
(lambda (selection) |
315 |
(if (eq selection 'PRIMARY) |
(if (eq selection 'PRIMARY) |
316 |
(or (x-cut-buffer-or-selection-value) x-last-selected-text) |
(or (x-cut-buffer-or-selection-value) |
317 |
|
(bound-and-true-p x-last-selected-text) |
318 |
|
(bound-and-true-p x-last-selected-text-primary)) |
319 |
(x-get-selection selection))) |
(x-get-selection selection))) |
320 |
"Function to call to get the selection. |
"Function to call to get the selection. |
321 |
Called with one argument: |
Called with one argument: |