X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/8af8e70ee535bd2d657a034e1452f78925c9ca38..fb39b937b0628f4592b07d0aa61a41cf696abd30:/src/cm.c
diff --git a/src/cm.c b/src/cm.c
index 6379955b48..eda6430baf 100644
--- a/src/cm.c
+++ b/src/cm.c
@@ -1,5 +1,5 @@
/* 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.
@@ -20,7 +20,6 @@ along with GNU Emacs. If not, see . */
#include
#include
-#include
#include "lisp.h"
#include "frame.h"
@@ -119,7 +118,7 @@ cmcheckmagic (struct tty_display_info *tty)
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);
@@ -214,8 +213,9 @@ calccost (struct tty_display_info *tty,
}
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;
@@ -296,14 +296,16 @@ fail:
}
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;
}