# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 919626968 0
# Node ID d4edd0f4edfa0676f5befc32fbbb061f40d5a716
# Parent  f9d5fff966f0755dc561e9a57c707157b0cb7805
(print_error_message): Don't crash if (cdr data) is not a list.

diff -r f9d5fff966f0 -r d4edd0f4edfa src/print.c
--- a/src/print.c	Sun Feb 21 16:36:07 1999 +0000
+++ b/src/print.c	Sun Feb 21 19:56:08 1999 +0000
@@ -1054,7 +1054,7 @@
 
   /* For file-error, make error message by concatenating
      all the data items.  They are all strings.  */
-  if (!NILP (file_error) && !NILP (tail))
+  if (!NILP (file_error) && CONSP (tail))
     errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr;
 
   if (STRINGP (errmsg))