Mercurial > emacs
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 { |