diff options
| author | Paul Eggert | 2013-06-15 00:41:42 -0700 |
|---|---|---|
| committer | Paul Eggert | 2013-06-15 00:41:42 -0700 |
| commit | 210272cebb7051a9e06b80cd10f17e6bd66e4a2e (patch) | |
| tree | 836da3a4b9f04edeead4fbbb202c4036576c5745 /src/fns.c | |
| parent | b86a85ca5e26d6d61041756e109b9b0473d51518 (diff) | |
| download | emacs-210272cebb7051a9e06b80cd10f17e6bd66e4a2e.tar.gz emacs-210272cebb7051a9e06b80cd10f17e6bd66e4a2e.zip | |
* fns.c (Fcopy_sequence): Simplify XTYPE calculation.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -445,7 +445,7 @@ with the original. */) | |||
| 445 | if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg)) | 445 | if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg)) |
| 446 | wrong_type_argument (Qsequencep, arg); | 446 | wrong_type_argument (Qsequencep, arg); |
| 447 | 447 | ||
| 448 | return concat (1, &arg, CONSP (arg) ? Lisp_Cons : XTYPE (arg), 0); | 448 | return concat (1, &arg, XTYPE (arg), 0); |
| 449 | } | 449 | } |
| 450 | 450 | ||
| 451 | /* This structure holds information of an argument of `concat' that is | 451 | /* This structure holds information of an argument of `concat' that is |