(get_system_name): Don't crash if Vsystem_name does not contain a string.

3d976a9a · Richard M. Stallman · 662c2ef2 · 3d976a9a
Commit 3d976a9a authored Jul 12, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/editfns.c src/editfns.c +4 -1

No files found.
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -747,7 +747,10 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
 char *
 get_system_name ()
 {
-  return (char *) XSTRING (Vsystem_name)->data;
+  if (STRINGP (Vsystem_name))
+    return (char *) XSTRING (Vsystem_name)->data;
+  else
+    return "";
 }

 DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0,