Mercurial > emacs

comparison src/callint.c @ 54891:6258852d3607

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fix_command): Use XDCR.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 14 Apr 2004 20:45:02 +0000
parents 77a99ef5c0ae
children 7b6b4d9ae726
comparison
equal deleted inserted replaced
54890:ab70a3ddd144 54891:6258852d3607
207 if (EQ (car, Qlist)) 207 if (EQ (car, Qlist))
208 { 208 {
209 Lisp_Object intail, valtail; 209 Lisp_Object intail, valtail;
210 for (intail = Fcdr (input), valtail = values; 210 for (intail = Fcdr (input), valtail = values;
211 CONSP (valtail); 211 CONSP (valtail);
212 intail = Fcdr (intail), valtail = Fcdr (valtail)) 212 intail = Fcdr (intail), valtail = XCDR (valtail))
213 { 213 {
214 Lisp_Object elt; 214 Lisp_Object elt;
215 elt = Fcar (intail); 215 elt = Fcar (intail);
216 if (CONSP (elt)) 216 if (CONSP (elt))
217 { 217 {