comparison src/fns.c @ 3025:facf3239ba30

[xemacs-hg @ 2005-10-25 11:16:19 by ben] rename new->new_, convert 'foo to `foo' EmacsFrame.c, ExternalClient.c, ExternalShell.c, chartab.c, cmdloop.c, compiler.h, console.c, database.c, device-msw.c, device-x.c, device.c, doc.c, dragdrop.c, eval.c, event-msw.c, event-stream.c, events.c, extents.c, file-coding.c, fns.c, frame-tty.c, frame.c, gpmevent.c, gutter.c, hash.c, imgproc.c, indent.c, keymap.c, lisp-union.h, macros.c, malloc.c, marker.c, menubar-x.c, menubar.c, mule-charset.c, number.c, process.c, profile.h, ralloc.c, redisplay.c, select-common.h, select.c, syntax.c, sysfile.h, sysproc.h, systime.h, syswindows.h, toolbar.c, tooltalk.c, tparam.c, unexaix.c, unexalpha.c, unexconvex.c, unexec.c, unexhp9k800.c, unexmips.c, unicode.c, window.c: new -> new_. 'foo -> `foo'. lwlib-internal.h: redo assert macros to follow lisp.h and not trigger warnings. lwlib.c, xlwtabs.c: new -> new_.
author ben
date Tue, 25 Oct 2005 11:16:49 +0000
parents 6fa9919a9a0b
children 73288faa5759 3742ea8250b5
comparison
equal deleted inserted replaced
3024:b7f26b2f78bd 3025:facf3239ba30
3346 Destructively replace the list OLD with NEW. 3346 Destructively replace the list OLD with NEW.
3347 This is like (copy-sequence NEW) except that it reuses the 3347 This is like (copy-sequence NEW) except that it reuses the
3348 conses in OLD as much as possible. If OLD and NEW are the same 3348 conses in OLD as much as possible. If OLD and NEW are the same
3349 length, no consing will take place. 3349 length, no consing will take place.
3350 */ 3350 */
3351 (old, new)) 3351 (old, new_))
3352 { 3352 {
3353 Lisp_Object oldtail = old, prevoldtail = Qnil; 3353 Lisp_Object oldtail = old, prevoldtail = Qnil;
3354 3354
3355 EXTERNAL_LIST_LOOP_2 (elt, new) 3355 EXTERNAL_LIST_LOOP_2 (elt, new_)
3356 { 3356 {
3357 if (!NILP (oldtail)) 3357 if (!NILP (oldtail))
3358 { 3358 {
3359 CHECK_CONS (oldtail); 3359 CHECK_CONS (oldtail);
3360 XCAR (oldtail) = elt; 3360 XCAR (oldtail) = elt;