From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Jul 1997 06:51:51 +0000 (+0000)
Subject: (lock_file_1): Don't crash if Fuser_login_name or
X-Git-Tag: emacs-20.1~1191
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=662c2ef22a23cc19de6cdd1c151e08795ffd5b17;p=emacs.git

(lock_file_1): Don't crash if Fuser_login_name or
Fsystem_name don't return strings.
(current_lock_owner): Likewise.
---

diff --git a/src/filelock.c b/src/filelock.c
index d92e0476bad..5000f87a615 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -133,10 +133,20 @@ lock_file_1 (lfname, force)
      int force;
 {
   register int err;
-  char *user_name = (char *) XSTRING (Fuser_login_name (Qnil))->data;
-  char *host_name = (char *) XSTRING (Fsystem_name ())->data;
-  char *lock_info_str = alloca (strlen (user_name) + strlen (host_name)
-                                + LOCK_PID_MAX + 5);
+  char *user_name;
+  char *host_name;
+  char *lock_info_str;
+
+  if (STRINGP (Fuser_login_name (Qnil)))
+    user_name = XSTRING (Fuser_login_name (Qnil))->data;
+  else
+    user_name = "";
+  if (STRINGP (Fsystem_name ()))
+    host_name = XSTRING (Fsystem_name ())->data;
+  else
+    host_name = "";
+  lock_info_str = alloca (strlen (user_name) + strlen (host_name)
+			  + LOCK_PID_MAX + 5);
 
   sprintf (lock_info_str, "%s@%s.%lu", user_name, host_name,
            (unsigned long) getpid ());
@@ -225,7 +235,8 @@ current_lock_owner (owner, lfname)
   xfree (lfinfo);
   
   /* On current host?  */
-  if (strcmp (owner->host, XSTRING (Fsystem_name ())->data) == 0)
+  if (STRINGP (Fsystem_name ())
+      && strcmp (owner->host, XSTRING (Fsystem_name ())->data) == 0)
     {
       if (owner->pid == getpid ())
         ret = 2; /* We own it.  */