# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976189446 0
# Node ID 41ecc8525dbc56ede17d6eef3531b7da5e1013af
# Parent  61c2da7c4adf84f5aef8e0a2a0835230bc475db3
(x_free_gcs): New function.

diff -r 61c2da7c4adf -r 41ecc8525dbc src/xfns.c
--- a/src/xfns.c	Thu Dec 07 11:43:37 2000 +0000
+++ b/src/xfns.c	Thu Dec 07 11:44:06 2000 +0000
@@ -3936,20 +3936,20 @@
   gc_values.foreground = f->output_data.x->foreground_pixel;
   gc_values.background = f->output_data.x->background_pixel;
   gc_values.line_width = 0;	/* Means 1 using fast algorithm.  */
-  f->output_data.x->normal_gc = XCreateGC (FRAME_X_DISPLAY (f),
-				       FRAME_X_WINDOW (f),
-				       GCLineWidth | GCFont
-				       | GCForeground | GCBackground,
-				       &gc_values);
+  f->output_data.x->normal_gc
+    = XCreateGC (FRAME_X_DISPLAY (f),
+		 FRAME_X_WINDOW (f),
+		 GCLineWidth | GCFont | GCForeground | GCBackground,
+		 &gc_values);
 
   /* Reverse video style.  */
   gc_values.foreground = f->output_data.x->background_pixel;
   gc_values.background = f->output_data.x->foreground_pixel;
-  f->output_data.x->reverse_gc = XCreateGC (FRAME_X_DISPLAY (f),
-					FRAME_X_WINDOW (f),
-					GCFont | GCForeground | GCBackground
-					| GCLineWidth,
-					&gc_values);
+  f->output_data.x->reverse_gc
+    = XCreateGC (FRAME_X_DISPLAY (f),
+		 FRAME_X_WINDOW (f),
+		 GCFont | GCForeground | GCBackground | GCLineWidth,
+		 &gc_values);
 
   /* Cursor has cursor-color background, background-color foreground.  */
   gc_values.foreground = f->output_data.x->background_pixel;
@@ -3984,6 +3984,45 @@
   UNBLOCK_INPUT;
 }
 
+
+/* Free what was was allocated in x_make_gc.  */
+
+void
+x_free_gcs (f)
+     struct frame *f;
+{
+  Display *dpy = FRAME_X_DISPLAY (f);
+
+  BLOCK_INPUT;
+  
+  if (f->output_data.x->normal_gc)
+    {
+      XFreeGC (dpy, f->output_data.x->normal_gc);
+      f->output_data.x->normal_gc = 0;
+    }
+
+  if (f->output_data.x->reverse_gc)
+    {
+      XFreeGC (dpy, f->output_data.x->reverse_gc);
+      f->output_data.x->reverse_gc = 0;
+    }
+  
+  if (f->output_data.x->cursor_gc)
+    {
+      XFreeGC (dpy, f->output_data.x->cursor_gc);
+      f->output_data.x->cursor_gc = 0;
+    }
+
+  if (f->output_data.x->border_tile)
+    {
+      XFreePixmap (dpy, f->output_data.x->border_tile);
+      f->output_data.x->border_tile = 0;
+    }
+
+  UNBLOCK_INPUT;
+}
+
+
 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
        1, 1, 0,
   "Make a new X window, which is called a \"frame\" in Emacs terms.\n\