Mercurial > hg > xemacs-beta
diff src/filelock.c @ 267:966663fcf606 r20-5b32
Import from CVS: tag r20-5b32
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:26:29 +0200 |
parents | 3d6bfa290dbd |
children | c5d627a313b1 |
line wrap: on
line diff
--- a/src/filelock.c Mon Aug 13 10:25:39 2007 +0200 +++ b/src/filelock.c Mon Aug 13 10:26:29 2007 +0200 @@ -40,7 +40,7 @@ /* The name of the directory in which we keep lock files, with a '/' appended. */ -Lisp_Object Vlock_directory; +Lisp_Object Vlock_directory, Vconfigure_lock_directory; #if 0 /* FSFmacs */ /* Look in startup.el */ @@ -51,7 +51,7 @@ /* The name of the superlock file. This is SUPERLOCK_NAME appended to Vlock_directory. */ -Lisp_Object Vsuperlock_file; +Lisp_Object Vsuperlock_file, Vconfigure_superlock_file; Lisp_Object Qask_user_about_supersession_threat; Lisp_Object Qask_user_about_lock; @@ -523,25 +523,34 @@ DEFVAR_LISP ("lock-directory", &Vlock_directory /* Don't change this */ ); + Vlock_directory = Qnil; DEFVAR_LISP ("superlock-file", &Vsuperlock_file /* Don't change this */ ); + Vsuperlock_file = Qnil; } void complex_vars_of_filelock (void) { + DEFVAR_LISP ("configure-lock-directory", &Vconfigure_lock_directory /* +For internal use by the build procedure only. +configure's idea of what LOCK-DIRECTORY will be. +*/ ); #ifdef PATH_LOCK - Vlock_directory = + Vconfigure_lock_directory = Ffile_name_as_directory (build_string (PATH_LOCK)); #else - Vlock_directory = Qnil; + Vconfigure_lock_directory = Qnil; #endif + DEFVAR_LISP ("configure-superlock-file", &Vconfigure_superlock_file /* +For internal use by the build procedure only. +configure's idea of what SUPERLOCK-FILE will be. +*/ ); #ifdef PATH_SUPERLOCK - Vsuperlock_file = - Ffile_name_as_directory (build_string (PATH_SUPERLOCK)); + Vconfigure_superlock_file = build_string (PATH_SUPERLOCK); #else - Vsuperlock_file = Qnil; + Vconfigure_superlock_file = Qnil; #endif /* All the rest done dynamically by startup.el */ }