Mercurial > hg > xemacs-beta
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 |