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; }