diff --git a/src/scheduler.c b/src/scheduler.c
index 3054b3d7..1b1458f8 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -1031,8 +1031,6 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
   printf("                   back from selected element\n");
   printf("      xschem unselect\n");
   printf("                   unselect selected objects\n");
-  printf("      xschem set_fill n\n");
-  printf("                   set fill style of current layer (rectcolor) to fill pattern n (pixdata)\n");
   printf("      xschem zoom_out\n");
   printf("                   zoom out\n");
   printf("      xschem zoom_in\n");
@@ -1276,11 +1274,6 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
   /*XSetWMHints(display, topwindow, hints_ptr); */
  }
 
- else if(!strcmp(argv[1],"set_fill") && argc==3)
- {
-  set_fill(atoi(argv[2]));
- }
-
  else if(!strcmp(argv[1],"redraw"))
  {
    draw();
diff --git a/src/xinit.c b/src/xinit.c
index 45e11d41..10f915f7 100644
--- a/src/xinit.c
+++ b/src/xinit.c
@@ -294,17 +294,6 @@ void init_color_array(double dim)
 
 }
 
-void set_fill(int n)
-{
-#ifdef __unix__
-     XFreePixmap(display,pixmap[rectcolor]);
-#else
-     Tk_FreePixmap(display, pixmap[rectcolor]);
-#endif
-     pixmap[rectcolor] = XCreateBitmapFromData(display, window, (char*)(pixdata[n]),16,16);
-     XSetStipple(display,gcstipple[rectcolor],pixmap[rectcolor]);
-}
-
 void init_pixdata()
 {
  int i,j, full, empty;
diff --git a/src/xschem.h b/src/xschem.h
index 82b3d3c4..42f02f1b 100644
--- a/src/xschem.h
+++ b/src/xschem.h
@@ -754,7 +754,6 @@ extern void netlist_options(int i);
 extern int  check_lib(char * s);
 extern void select_all(void);
 extern void change_linewidth(double w);
-extern void set_fill(int n);
 extern void schematic_in_new_window(void);
 extern void symbol_in_new_window(void);
 extern void new_window(const char *cell, int symbol);