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

diff --git a/src/ChangeLog b/src/ChangeLog
index 33fa9806be28e512e902d0968b44f42e1ba1f3de..5a84813fd804607e616f94d865a0e1aaa59c0e08 100644 (file)
--- 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 a502a74f904e1e72c20e3a2c2c232bd9df781202..9fedb7126e1132d571f855cef5421a285e667ed6 100644 (file)
--- 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.