Mercurial > hg > xemacs-beta

comparison src/marker.c @ 3025:facf3239ba30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 d674024a8674 3742ea8250b5
comparison
equal deleted inserted replaced
3024:b7f26b2f78bd 3025:facf3239ba30
395 } 395 }
396 396
397 static Lisp_Object 397 static Lisp_Object
398 copy_marker_1 (Lisp_Object marker, Lisp_Object type, int noseeum) 398 copy_marker_1 (Lisp_Object marker, Lisp_Object type, int noseeum)
399 { 399 {
400 REGISTER Lisp_Object new; 400 REGISTER Lisp_Object new_;
401 401
402 while (1) 402 while (1)
403 { 403 {
404 if (INTP (marker) || MARKERP (marker)) 404 if (INTP (marker) || MARKERP (marker))
405 { 405 {
406 if (noseeum) 406 if (noseeum)
407 new = noseeum_make_marker (); 407 new_ = noseeum_make_marker ();
408 else 408 else
409 new = Fmake_marker (); 409 new_ = Fmake_marker ();
410 Fset_marker (new, marker, 410 Fset_marker (new_, marker,
411 (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil)); 411 (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
412 XMARKER (new)->insertion_type = !NILP (type); 412 XMARKER (new_)->insertion_type = !NILP (type);
413 return new; 413 return new_;
414 } 414 }
415 else 415 else
416 marker = wrong_type_argument (Qinteger_or_marker_p, marker); 416 marker = wrong_type_argument (Qinteger_or_marker_p, marker);
417 } 417 }
418 418