From 7d7bbefd049fc22cf3bf333592abf57a3bde8766 Mon Sep 17 00:00:00 2001 From: Dmitry Antipov Date: Tue, 10 Jul 2012 20:53:26 +0400 Subject: Use XCAR and XCDR instead of Fcar and Fcdr where possible. * admin/coccinelle/list_loop.cocci: Semantic patch to convert from Fcdr to XCDR and consistently use CONSP in the list iteration loops. * admin/coccinelle/vector_contents.cocci: Fix indentation. * src/callint.c, src/coding.c, src/doc.c, src/editfns.c, src/eval.c, * src/font.c, src/fontset.c, src/frame.c, src/gnutls.c, src/minibuf.c, * src/msdos.c, src/textprop.c, src/w32fns.c, src/w32menu.c, src/window.c, * src/xmenu.c: Changed to use XCAR and XCDR where argument type is known to be a Lisp_Cons. --- src/textprop.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/textprop.c') diff --git a/src/textprop.c b/src/textprop.c index 4562cc0bd18..efce7259ce5 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -271,7 +271,7 @@ interval_has_some_properties_list (Lisp_Object list, INTERVAL i) /* Go through each element of LIST. */ for (tail1 = list; CONSP (tail1); tail1 = XCDR (tail1)) { - sym = Fcar (tail1); + sym = XCAR (tail1); /* Go through i's plist, looking for tail1 */ for (tail2 = i->plist; CONSP (tail2); tail2 = XCDR (XCDR (tail2))) -- cgit v1.2.1