Mercurial > hg > xemacs-beta
diff src/indent.c @ 149:538048ae2ab8 r20-3b1
Import from CVS: tag r20-3b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:36:16 +0200 |
parents | 131b0175ea99 |
children | 8eaf7971accc |
line wrap: on
line diff
--- a/src/indent.c Mon Aug 13 09:35:15 2007 +0200 +++ b/src/indent.c Mon Aug 13 09:36:16 2007 +0200 @@ -439,13 +439,13 @@ last_known_column_point = BUF_PT (buf); last_known_column_modified = BUF_MODIFF (buf); - return (make_int (col)); + return make_int (col); } #if 0 /* #### OK boys, this function needs to be present, I think. It was there before the 19.12 redisplay rewrite. */ -xxDEFUN ("compute-motion", Fcompute_motion, Scompute_motion, 7, 7, 0 /* +xxDEFUN ("compute-motion", Fcompute_motion, 7, 7, 0, /* "Scan through the current buffer, calculating screen position. Scan the current buffer forward from offset FROM, assuming it is at position FROMPOS--a cons of the form (HPOS . VPOS)-- @@ -484,10 +484,8 @@ and the window's upper-left coordinates as FROMPOS. Pass the buffer's (point-max) as TO, to limit the scan to the end of the visible section of the buffer, and pass LINE and COL as TOPOS. -*/ ) - (from, frompos, to, topos, width, offsets, window) - Lisp_Object from, frompos, to, topos; - Lisp_Object width, offsets, window; +*/ + (from, frompos, to, topos, width, offsets, window)) { Lisp_Object bufpos, hpos, vpos, prevhpos, contin; struct position *pos; @@ -525,12 +523,8 @@ XSETINT (vpos, pos->vpos); XSETINT (prevhpos, pos->prevhpos); - return list5 (bufpos, - hpos, - vpos, - prevhpos, + return list5 (bufpos, hpos, vpos, prevhpos, pos->contin ? Qt : Qnil); - } #endif /* 0 */