From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 31 Aug 1995 17:23:50 +0000 (+0000)
Subject: (Fdisplay_completion_list): Clear all text properties
X-Git-Tag: emacs-19.34~2882
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47d7d104aca43be9524472dfae1d6bb519423180;p=emacs.git

(Fdisplay_completion_list): Clear all text properties
for the whitespace between completion items.
---

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))
 	    {