From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 15 Jun 2013 07:41:42 +0000 (-0700)
Subject: * fns.c (Fcopy_sequence): Simplify XTYPE calculation.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~99
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=210272cebb7051a9e06b80cd10f17e6bd66e4a2e;p=emacs.git

* fns.c (Fcopy_sequence): Simplify XTYPE calculation.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 827092e7f8a..ec0fbc493cb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-15  Paul Eggert  <eggert@cs.ucla.edu>
+
+	* fns.c (Fcopy_sequence): Simplify XTYPE calculation.
+
 2013-06-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* lread.c (syms_of_lread):
diff --git a/src/fns.c b/src/fns.c
index 06d4e358f10..7a230e61a3c 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -445,7 +445,7 @@ with the original.  */)
   if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg))
     wrong_type_argument (Qsequencep, arg);
 
-  return concat (1, &arg, CONSP (arg) ? Lisp_Cons : XTYPE (arg), 0);
+  return concat (1, &arg, XTYPE (arg), 0);
 }
 
 /* This structure holds information of an argument of `concat' that is