From 8b6f8a99981fc349096fe8e8041bbc6621df4745 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 7 Aug 1997 18:43:19 +0000
Subject: [PATCH] (init_filelock): Function deleted.

---
 src/filelock.c | 25 -------------------------
 1 file changed, 25 deletions(-)

diff --git a/src/filelock.c b/src/filelock.c
index d36245971e3..c478233d7e1 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -461,31 +461,6 @@ t if it is locked by you, else a string of the name of the locker.")
 
 /* 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);
-- 
2.39.2