diff options
| author | Richard M. Stallman | 1999-02-21 19:56:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-21 19:56:08 +0000 |
| commit | 8c29413d718ee9bfb3e281b456f564915381e395 (patch) | |
| tree | 8ac0d55633c639a267d405fc4418536210cc27b5 /src | |
| parent | 8f6df9b587967f54a9594923a6fa53b60c207afa (diff) | |
| download | emacs-8c29413d718ee9bfb3e281b456f564915381e395.tar.gz emacs-8c29413d718ee9bfb3e281b456f564915381e395.zip | |
(print_error_message): Don't crash if (cdr data) is not a list.
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) | |||
| 1054 | 1054 | ||
| 1055 | /* For file-error, make error message by concatenating | 1055 | /* For file-error, make error message by concatenating |
| 1056 | all the data items. They are all strings. */ | 1056 | all the data items. They are all strings. */ |
| 1057 | if (!NILP (file_error) && !NILP (tail)) | 1057 | if (!NILP (file_error) && CONSP (tail)) |
| 1058 | errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr; | 1058 | errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr; |
| 1059 | 1059 | ||
| 1060 | if (STRINGP (errmsg)) | 1060 | if (STRINGP (errmsg)) |