(Fx_get_cut_buffer_internal): Fix memory leak.

diff --git a/src/xselect.c b/src/xselect.c
index 7573be8..ce106f3 100644 (file)
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -2392,9 +2392,16 @@ DEFUN ("x-get-cut-buffer-internal", Fx_get_cut_buffer_internal,
 
   x_get_window_property (display, window, buffer_atom, &data, &bytes,
                         &type, &format, &size, 0);
-  if (!data || !format)
+
+  if (!data)
     return Qnil;
 
+  if (!format)
+    {
+      xfree (data);
+      return Qnil;
+    }
+
   if (format != 8 || type != XA_STRING)
     signal_error ("Cut buffer doesn't contain 8-bit data",
                  list2 (x_atom_to_symbol (display, type),