# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027283342 0
# Node ID 736bbb2f87117f9d19e8bdf5ae0a2aac82a6e2da
# Parent  44651cb24a247cdd5141c820b3c22cceeb152b84
(init_callproc): Set up Vshared_game_score_directory.
Set to nil if dir does not exist.
(syms_of_callproc): Init unconditionally and simply.

diff -r 44651cb24a24 -r 736bbb2f8711 src/callproc.c
--- a/src/callproc.c	Sun Jul 21 20:25:32 2002 +0000
+++ b/src/callproc.c	Sun Jul 21 20:29:02 2002 +0000
@@ -1580,6 +1580,10 @@
   else
     Vtemp_file_name_pattern = build_string ("/tmp/emacsXXXXXX");
 #endif
+
+  Vshared_game_score_directory = build_string (PATH_GAME);
+  if (NILP (Ffile_directory_p (Vshared_game_score_directory)))
+    Vshared_game_score_directory = Qnil;
 }
 
 void
@@ -1640,11 +1644,7 @@
   DEFVAR_LISP ("shared-game-score-directory", &Vshared_game_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
-  Vshared_game_score_directory = build_string(HAVE_SHARED_GAME_DIR);
-#else
-  Vshared_game_score_directory = Qnil;
-#endif
+  Vshared_game_score_directory = build_string (PATH_GAME);
 
   DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern,
 	       doc: /* Pattern for making names for temporary files.