* xselect.c (x_disown_buffer_selections): Remove; not used.

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  <eggert@cs.ucla.edu>
 
+        * 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.