comparison src/filelock.c @ 298:70ad99077275 r21-0b47

Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents c5d627a313b1
children 6240c7796c7a
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
38 /* FSFmacs uses char *lock_dir and char *superlock_file instead of 38 /* FSFmacs uses char *lock_dir and char *superlock_file instead of
39 the Lisp variables we use. */ 39 the Lisp variables we use. */
40 40
41 /* The name of the directory in which we keep lock files, with a '/' 41 /* The name of the directory in which we keep lock files, with a '/'
42 appended. */ 42 appended. */
43 Lisp_Object Vlock_directory, Vconfigure_lock_directory; 43 Lisp_Object Vlock_directory;
44 44
45 #if 0 /* FSFmacs */ 45 #if 0 /* FSFmacs */
46 /* Look in startup.el */ 46 /* Look in startup.el */
47 /* The name of the file in the lock directory which is used to 47 /* The name of the file in the lock directory which is used to
48 arbitrate access to the entire directory. */ 48 arbitrate access to the entire directory. */
531 } 531 }
532 532
533 void 533 void
534 complex_vars_of_filelock (void) 534 complex_vars_of_filelock (void)
535 { 535 {
536 DEFVAR_LISP ("configure-lock-directory", &Vconfigure_lock_directory /*
537 For internal use by the build procedure only.
538 configure's idea of what LOCK-DIRECTORY will be.
539 */ );
540 #ifdef PATH_LOCK
541 Vconfigure_lock_directory =
542 Ffile_name_as_directory (build_string (PATH_LOCK));
543 #else
544 Vconfigure_lock_directory = Qnil;
545 #endif
546 DEFVAR_LISP ("configure-superlock-file", &Vconfigure_superlock_file /* 536 DEFVAR_LISP ("configure-superlock-file", &Vconfigure_superlock_file /*
547 For internal use by the build procedure only. 537 For internal use by the build procedure only.
548 configure's idea of what SUPERLOCK-FILE will be. 538 configure's idea of what SUPERLOCK-FILE will be.
549 */ ); 539 */ );
550 #ifdef PATH_SUPERLOCK 540 #ifdef PATH_SUPERLOCK