Mercurial > hg > xemacs-beta

comparison src/indent.c @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 131b0175ea99
children 8eaf7971accc
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
437 last_known_column_buffer = buf; 437 last_known_column_buffer = buf;
438 last_known_column = col; 438 last_known_column = col;
439 last_known_column_point = BUF_PT (buf); 439 last_known_column_point = BUF_PT (buf);
440 last_known_column_modified = BUF_MODIFF (buf); 440 last_known_column_modified = BUF_MODIFF (buf);
441 441
442 return (make_int (col)); 442 return make_int (col);
443 } 443 }
444 444
445 #if 0 /* #### OK boys, this function needs to be present, I think. 445 #if 0 /* #### OK boys, this function needs to be present, I think.
446 It was there before the 19.12 redisplay rewrite. */ 446 It was there before the 19.12 redisplay rewrite. */
447 447
448 xxDEFUN ("compute-motion", Fcompute_motion, Scompute_motion, 7, 7, 0 /* 448 xxDEFUN ("compute-motion", Fcompute_motion, 7, 7, 0, /*
449 "Scan through the current buffer, calculating screen position. 449 "Scan through the current buffer, calculating screen position.
450 Scan the current buffer forward from offset FROM, 450 Scan the current buffer forward from offset FROM,
451 assuming it is at position FROMPOS--a cons of the form (HPOS . VPOS)-- 451 assuming it is at position FROMPOS--a cons of the form (HPOS . VPOS)--
452 to position TO or position TOPOS--another cons of the form (HPOS . VPOS)-- 452 to position TO or position TOPOS--another cons of the form (HPOS . VPOS)--
453 and return the ending buffer position and screen location. 453 and return the ending buffer position and screen location.
482 For example, to find the buffer position of column COL of line LINE 482 For example, to find the buffer position of column COL of line LINE
483 of a certain window, pass the window's starting location as FROM 483 of a certain window, pass the window's starting location as FROM
484 and the window's upper-left coordinates as FROMPOS. 484 and the window's upper-left coordinates as FROMPOS.
485 Pass the buffer's (point-max) as TO, to limit the scan to the end of the 485 Pass the buffer's (point-max) as TO, to limit the scan to the end of the
486 visible section of the buffer, and pass LINE and COL as TOPOS. 486 visible section of the buffer, and pass LINE and COL as TOPOS.
487 */ ) 487 */
488 (from, frompos, to, topos, width, offsets, window) 488 (from, frompos, to, topos, width, offsets, window))
489 Lisp_Object from, frompos, to, topos;
490 Lisp_Object width, offsets, window;
491 { 489 {
492 Lisp_Object bufpos, hpos, vpos, prevhpos, contin; 490 Lisp_Object bufpos, hpos, vpos, prevhpos, contin;
493 struct position *pos; 491 struct position *pos;
494 int hscroll, tab_offset; 492 int hscroll, tab_offset;
495 struct window *w = decode_window (window); 493 struct window *w = decode_window (window);
523 XSETINT (bufpos, pos->bufpos); 521 XSETINT (bufpos, pos->bufpos);
524 XSETINT (hpos, pos->hpos); 522 XSETINT (hpos, pos->hpos);
525 XSETINT (vpos, pos->vpos); 523 XSETINT (vpos, pos->vpos);
526 XSETINT (prevhpos, pos->prevhpos); 524 XSETINT (prevhpos, pos->prevhpos);
527 525
528 return list5 (bufpos, 526 return list5 (bufpos, hpos, vpos, prevhpos,
529 hpos,
530 vpos,
531 prevhpos,
532 pos->contin ? Qt : Qnil); 527 pos->contin ? Qt : Qnil);
533
534 } 528 }
535 529
536 #endif /* 0 */ 530 #endif /* 0 */
537 531
538 /***************************************************************************** 532 /*****************************************************************************