(Vgame_score_directory): New variable.

(syms_of_callproc) <Vgame_score_directory>: DEFVAR_LISP.

1 files changed, 10 insertions, 1 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 56f8efb4ce7..92e6e479eaf 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -105,7 +105,7 @@ extern char **environ;
 
 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 @@ Emacs's info files; the default value for Info-default-directory-list
 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'.  */);