From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Feb 1999 19:56:08 +0000 (+0000)
Subject: (print_error_message): Don't crash if (cdr data) is not a list.
X-Git-Tag: emacs-20.4~581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c29413d718ee9bfb3e281b456f564915381e395;p=emacs.git

(print_error_message): Don't crash if (cdr data) is not a list.
---

diff --git a/src/print.c b/src/print.c
index a24826f24c4..69a3d68f428 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1054,7 +1054,7 @@ print_error_message (data, stream)
 
   /* 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))