From 811e9bacd8e24097bc65f1dfa79a5f6ac51071d9 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 9 Mar 2011 17:30:22 -0800 Subject: [PATCH] * xselect.c (x_disown_buffer_selections): Remove; not used. --- src/ChangeLog | 2 ++ src/xselect.c | 20 -------------------- 2 files changed, 2 insertions(+), 20 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 33fa9806be2..5a84813fd80 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2011-03-10 Paul Eggert + * xselect.c (x_disown_buffer_selections): Remove; not used. + * lisp.h (GCPRO1_VAR, UNGCPRO_VAR): New macros, so that the caller can use some name other than gcpro1. (GCPRO1, UNGCPRO): Reimplement in terms of the new macros. diff --git a/src/xselect.c b/src/xselect.c index a502a74f904..9fedb7126e1 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -2131,26 +2131,6 @@ Disowning it means there is no such selection. */) return Qt; } -/* Get rid of all the selections in buffer BUFFER. - This is used when we kill a buffer. */ - -void -x_disown_buffer_selections (Lisp_Object buffer) -{ - Lisp_Object tail; - struct buffer *buf = XBUFFER (buffer); - - for (tail = Vselection_alist; CONSP (tail); tail = XCDR (tail)) - { - Lisp_Object elt, value; - elt = XCAR (tail); - value = XCDR (elt); - if (CONSP (value) && MARKERP (XCAR (value)) - && XMARKER (XCAR (value))->buffer == buf) - Fx_disown_selection_internal (XCAR (elt), Qnil); - } -} - DEFUN ("x-selection-owner-p", Fx_selection_owner_p, Sx_selection_owner_p, 0, 1, 0, doc: /* Whether the current Emacs process owns the given X Selection. -- 2.39.5