/* Cursor motion subroutines for GNU Emacs.
- Copyright (C) 1985, 1995, 2001-2011 Free Software Foundation, Inc.
+ Copyright (C) 1985, 1995, 2001-2012 Free Software Foundation, Inc.
based primarily on public domain code written by Chris Torek
This file is part of GNU Emacs.
#include <config.h>
#include <stdio.h>
-#include <setjmp.h>
#include "lisp.h"
#include "frame.h"
if (curX (tty) == FrameCols (tty))
{
if (!MagicWrap (tty) || curY (tty) >= FrameRows (tty) - 1)
- abort ();
+ emacs_abort ();
if (tty->termscript)
putc ('\r', tty->termscript);
putc ('\r', tty->output);
}
totalcost = c * deltay;
if (doit)
- while (--deltay >= 0)
+ do
emacs_tputs (tty, p, 1, cmputc);
+ while (0 < --deltay);
x:
if ((deltax = dstx - srcx) == 0)
goto done;
}
totalcost += c * deltax;
if (doit)
- while (--deltax >= 0)
+ do
emacs_tputs (tty, p, 1, cmputc);
+ while (0 < --deltax);
done:
return totalcost;
}
#if 0
-losecursor ()
+void
+losecursor (void)
{
curY = -1;
}