Mercurial > emacs
changeset 24163:719325fbe6a1
(x_handle_selection_clear): Don't clear the
selection if Emacs still owns it through a different display.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Jan 1999 20:06:34 +0000 |
| parents | 93161ca8b2e5 |
| children | 1f8d4cb55bd6 |
| files | src/xselect.c |
| diffstat | 1 files changed, 21 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xselect.c Sun Jan 24 14:13:32 1999 +0000 +++ b/src/xselect.c Sun Jan 24 20:06:34 1999 +0000 @@ -755,7 +755,7 @@ } } -/* Handle a SelectionClear event EVENT, which indicates that some other +/* Handle a SelectionClear event EVENT, which indicates that some client cleared out our previously asserted selection. This is called from keyboard.c when such an event is found in the queue. */ @@ -770,6 +770,26 @@ Lisp_Object selection_symbol, local_selection_data; Time local_selection_time; struct x_display_info *dpyinfo = x_display_info_for_display (display); + struct x_display_info *t_dpyinfo; + + /* If the new selection owner is also Emacs, + don't clear the new selection. */ + BLOCK_INPUT; + /* Check each display on the same terminal, + to see if this Emacs job now owns the selection + through that display. */ + for (t_dpyinfo = x_display_list; t_dpyinfo; t_dpyinfo = t_dpyinfo->next) + if (t_dpyinfo->kboard == dpyinfo->kboard) + { + Window owner_window + = XGetSelectionOwner (t_dpyinfo->display, selection); + if (x_window_to_frame (t_dpyinfo, owner_window) != 0) + { + UNBLOCK_INPUT; + return; + } + } + UNBLOCK_INPUT; selection_symbol = x_atom_to_symbol (dpyinfo, display, selection);