# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1018466151 0
# Node ID 7b98c268f335c509dc2c762092907d47e5da7c56
# Parent  2fd94b88c732459996e4dc4cc08c4a33e5143799
(Vgame_score_directory): New variable.
(syms_of_callproc) <Vgame_score_directory>: DEFVAR_LISP.

diff -r 2fd94b88c732 -r 7b98c268f335 src/callproc.c
--- a/src/callproc.c	Wed Apr 10 19:14:38 2002 +0000
+++ b/src/callproc.c	Wed Apr 10 19:15:51 2002 +0000
@@ -105,7 +105,7 @@
 
 Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes;
 Lisp_Object Vdata_directory, Vdoc_directory;
-Lisp_Object Vconfigure_info_directory;
+Lisp_Object Vconfigure_info_directory, Vgame_score_directory;
 Lisp_Object Vtemp_file_name_pattern;
 
 Lisp_Object Vshell_file_name;
@@ -1626,6 +1626,15 @@
 includes this.  */);
   Vconfigure_info_directory = build_string (PATH_INFO);
 
+  DEFVAR_LISP ("game-score-directory", &Vgame_score_directory,
+	       doc: /* Directory of score files for games which come with GNU Emacs.
+If this variable is nil, then Emacs is unable to use a shared directory.  */);
+#ifdef HAVE_SHARED_GAME_DIR
+  Vgame_score_directory = build_string(HAVE_SHARED_GAME_DIR);
+#else
+  Vgame_score_directory = Qnil;
+#endif
+
   DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern,
 	       doc: /* Pattern for making names for temporary files.
 This is used by `call-process-region'.  */);