# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870979399 0
# Node ID ee2a6cdc122698db4d39624c6217fae90f971554
# Parent  a4620c4c08810449e6b7300fa03336f7672643c0
(init_filelock): Function deleted.

diff -r a4620c4c0881 -r ee2a6cdc1226 src/filelock.c
--- a/src/filelock.c	Thu Aug 07 18:42:56 1997 +0000
+++ b/src/filelock.c	Thu Aug 07 18:43:19 1997 +0000
@@ -461,31 +461,6 @@
 
 /* Initialization functions.  */
 
-init_filelock ()
-{
-#if 0
-  char *new_name;
-
-  lock_dir = egetenv ("EMACSLOCKDIR");
-  if (! lock_dir)
-    lock_dir = PATH_LOCK;
-
-  /* Copy the name in case egetenv got it from a Lisp string.  */
-  new_name = (char *) xmalloc (strlen (lock_dir) + 2);
-  strcpy (new_name, lock_dir);
-  lock_dir = new_name;
-
-  /* Make sure it ends with a slash.  */
-  if (lock_dir[strlen (lock_dir) - 1] != '/')
-    strcat (lock_dir, "/");
-
-  superlock_file = (char *) xmalloc ((strlen (lock_dir)
-				      + sizeof (SUPERLOCK_NAME)));
-  strcpy (superlock_file, lock_dir);
-  strcat (superlock_file, SUPERLOCK_NAME);
-#endif
-}
-
 syms_of_filelock ()
 {
   defsubr (&Sunlock_buffer);