Eliminate unused procedure x_error_message.

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 46650613cbe85f21535323ddb23a78df47c91828..8f18356521579af2c965bd88d77455129376ed28 100644 (file)
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.82 2005/11/12 22:53:33 cph Exp $
+$Id: x11base.c,v 1.83 2005/11/13 03:47:00 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1998,2000,2001 Massachusetts Institute of Technology
@@ -335,13 +335,6 @@ any_x_errors_p (Display * display)
 {
   return ((x_error_code (display)) != 0);
 }
-
-static SCHEME_OBJECT
-x_error_message (void)
-{
-  return
-    (char_pointer_to_string_no_gc ((unsigned char *) (x_error_info.message)));
-}
 \f
 /* Defaults and Attributes */