diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-31 17:23:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-31 17:23:50 +0000 |
| commit | b613d6fe3daa113090d5dee24e7ceae436418c13 (patch) | |
| tree | 4ef2e4539e38bd59d32b5677790a4f7db2b373d1 /src/minibuf.c | |
| parent | 0b769f3605ec64756d2e3714855ffe16cec9e22e (diff) | |
| download | emacs-b613d6fe3daa113090d5dee24e7ceae436418c13.tar.gz | |
(Fdisplay_completion_list): Clear all text properties
for the whitespace between completion items.
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 39be2789da9..e03b4820801 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1506,6 +1506,7 @@ It can find the completion buffer in `standard-output'.") { Lisp_Object tem; int length; + Lisp_Object startpos, endpos; elt = Fcar (tail); /* Compute the length of this element. */ @@ -1529,6 +1530,9 @@ It can find the completion buffer in `standard-output'.") Sadly, the window it will appear in is not known until after the text has been made. */ + if (BUFFERP (Vstandard_output)) + XSETINT (startpos, BUF_PT (XBUFFER (Vstandard_output))); + /* If the previous completion was very wide, or we have two on this line already, don't put another on the same line. */ @@ -1545,6 +1549,7 @@ It can find the completion buffer in `standard-output'.") if (BUFFERP (Vstandard_output)) { tem = Findent_to (make_number (35), make_number (2)); + column = XINT (tem); } else @@ -1558,6 +1563,13 @@ It can find the completion buffer in `standard-output'.") } } + if (BUFFERP (Vstandard_output)) + { + XSETINT (endpos, BUF_PT (XBUFFER (Vstandard_output))); + Fset_text_properties (startpos, endpos, + Qnil, Vstandard_output); + } + /* Output this element and update COLUMN. */ if (CONSP (elt)) { |