diff options
| author | Kim F. Storm | 2006-07-12 13:21:39 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-07-12 13:21:39 +0000 |
| commit | ca29b4169d9a0087ae5b90f80f4806c5e90c4bd5 (patch) | |
| tree | f540344e79caa0321ac01571b9fcbcbcf284d7e7 /src | |
| parent | 29100ceab859e7c13a6549cf0afe57355474b933 (diff) | |
| download | emacs-ca29b4169d9a0087ae5b90f80f4806c5e90c4bd5.tar.gz emacs-ca29b4169d9a0087ae5b90f80f4806c5e90c4bd5.zip | |
(sun_item_create): Use CHECK_LIST_CONS.
Diffstat (limited to 'src')
| -rw-r--r-- | src/sunfns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/sunfns.c b/src/sunfns.c index 1c04f1108a8..336f02221cf 100644 --- a/src/sunfns.c +++ b/src/sunfns.c | |||
| @@ -363,7 +363,7 @@ sun_item_create (Pair) | |||
| 363 | Lisp_Object String; | 363 | Lisp_Object String; |
| 364 | Lisp_Object Value; | 364 | Lisp_Object Value; |
| 365 | 365 | ||
| 366 | if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair); | 366 | CHECK_LIST_CONS (Pair, Pair); |
| 367 | String = Fcar(Pair); | 367 | String = Fcar(Pair); |
| 368 | CHECK_STRING(String); | 368 | CHECK_STRING(String); |
| 369 | Value = Fcdr(Pair); | 369 | Value = Fcdr(Pair); |