Mercurial > hg > xemacs-beta

comparison src/callint.c @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
165 165
166 /* Modify EXPR by quotifying each element (except the first). */ 166 /* Modify EXPR by quotifying each element (except the first). */
167 static Lisp_Object 167 static Lisp_Object
168 quotify_args (Lisp_Object expr) 168 quotify_args (Lisp_Object expr)
169 { 169 {
170 REGISTER Lisp_Object tail; 170 Lisp_Object tail;
171 REGISTER struct Lisp_Cons *ptr; 171 Lisp_Cons *ptr;
172 for (tail = expr; CONSP (tail); tail = ptr->cdr) 172 for (tail = expr; CONSP (tail); tail = ptr->cdr)
173 { 173 {
174 ptr = XCONS (tail); 174 ptr = XCONS (tail);
175 ptr->car = Fquote_maybe (ptr->car); 175 ptr->car = Fquote_maybe (ptr->car);
176 } 176 }