From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Jul 2002 20:29:02 +0000 (+0000)
Subject: (init_callproc): Set up Vshared_game_score_directory.
X-Git-Tag: ttn-vms-21-2-B4~13934
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=637897581124f8f6bc628d7adb85b425747c6f78;p=emacs.git

(init_callproc): Set up Vshared_game_score_directory.
Set to nil if dir does not exist.
(syms_of_callproc): Init unconditionally and simply.
---

diff --git a/src/callproc.c b/src/callproc.c
index 9b1e04ada82..4e44b974804 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1580,6 +1580,10 @@ init_callproc ()
   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 @@ includes this.  */);
   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.