comparison src/minibuf.c @ 12978:88a47d611c4a

(Fdisplay_completion_list): Clear all text properties for the whitespace between completion items.
author Richard M. Stallman <rms@gnu.org>
date Thu, 31 Aug 1995 17:23:50 +0000
parents 9e1a16d1ff73
children eb159c99326b
comparison
equal deleted inserted replaced
12977:046bc1e2acc9 12978:88a47d611c4a
1504 write_string ("Possible completions are:", -1); 1504 write_string ("Possible completions are:", -1);
1505 for (tail = completions, i = 0; !NILP (tail); tail = Fcdr (tail), i++) 1505 for (tail = completions, i = 0; !NILP (tail); tail = Fcdr (tail), i++)
1506 { 1506 {
1507 Lisp_Object tem; 1507 Lisp_Object tem;
1508 int length; 1508 int length;
1509 Lisp_Object startpos, endpos;
1509 1510
1510 elt = Fcar (tail); 1511 elt = Fcar (tail);
1511 /* Compute the length of this element. */ 1512 /* Compute the length of this element. */
1512 if (CONSP (elt)) 1513 if (CONSP (elt))
1513 { 1514 {
1526 } 1527 }
1527 1528
1528 /* This does a bad job for narrower than usual windows. 1529 /* This does a bad job for narrower than usual windows.
1529 Sadly, the window it will appear in is not known 1530 Sadly, the window it will appear in is not known
1530 until after the text has been made. */ 1531 until after the text has been made. */
1532
1533 if (BUFFERP (Vstandard_output))
1534 XSETINT (startpos, BUF_PT (XBUFFER (Vstandard_output)));
1531 1535
1532 /* If the previous completion was very wide, 1536 /* If the previous completion was very wide,
1533 or we have two on this line already, 1537 or we have two on this line already,
1534 don't put another on the same line. */ 1538 don't put another on the same line. */
1535 if (column > 33 || first 1539 if (column > 33 || first
1543 else 1547 else
1544 { 1548 {
1545 if (BUFFERP (Vstandard_output)) 1549 if (BUFFERP (Vstandard_output))
1546 { 1550 {
1547 tem = Findent_to (make_number (35), make_number (2)); 1551 tem = Findent_to (make_number (35), make_number (2));
1552
1548 column = XINT (tem); 1553 column = XINT (tem);
1549 } 1554 }
1550 else 1555 else
1551 { 1556 {
1552 do 1557 do
1554 write_string (" ", -1); 1559 write_string (" ", -1);
1555 column++; 1560 column++;
1556 } 1561 }
1557 while (column < 35); 1562 while (column < 35);
1558 } 1563 }
1564 }
1565
1566 if (BUFFERP (Vstandard_output))
1567 {
1568 XSETINT (endpos, BUF_PT (XBUFFER (Vstandard_output)));
1569 Fset_text_properties (startpos, endpos,
1570 Qnil, Vstandard_output);
1559 } 1571 }
1560 1572
1561 /* Output this element and update COLUMN. */ 1573 /* Output this element and update COLUMN. */
1562 if (CONSP (elt)) 1574 if (CONSP (elt))
1563 { 1575 {