From 47d7d104aca43be9524472dfae1d6bb519423180 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 31 Aug 1995 17:23:50 +0000 Subject: [PATCH] (Fdisplay_completion_list): Clear all text properties for the whitespace between completion items. --- src/minibuf.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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)) { -- 2.39.2