[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r112995: * fns.c (Fcopy_sequence): Simplify XTYPE ca
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] trunk r112995: * fns.c (Fcopy_sequence): Simplify XTYPE calculation. |
Date: |
Sat, 15 Jun 2013 07:42:12 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112995
revision-id: address@hidden
parent: address@hidden
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Sat 2013-06-15 00:41:42 -0700
message:
* fns.c (Fcopy_sequence): Simplify XTYPE calculation.
modified:
src/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1438
src/fns.c fns.c-20091113204419-o5vbwnq5f7feedwu-203
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2013-06-13 22:24:52 +0000
+++ b/src/ChangeLog 2013-06-15 07:41:42 +0000
@@ -1,3 +1,7 @@
+2013-06-15 Paul Eggert <address@hidden>
+
+ * fns.c (Fcopy_sequence): Simplify XTYPE calculation.
+
2013-06-13 Stefan Monnier <address@hidden>
* lread.c (syms_of_lread):
=== modified file 'src/fns.c'
--- a/src/fns.c 2013-06-13 22:24:52 +0000
+++ b/src/fns.c 2013-06-15 07:41:42 +0000
@@ -445,7 +445,7 @@
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r112995: * fns.c (Fcopy_sequence): Simplify XTYPE calculation.,
Paul Eggert <=