Mercurial > emacs

changeset 12978:88a47d611c4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 046bc1e2acc9
children 15f32c044bb8
files src/minibuf.c
diffstat 1 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/minibuf.c	Thu Aug 31 15:05:39 1995 +0000
+++ b/src/minibuf.c	Thu Aug 31 17:23:50 1995 +0000
@@ -1506,6 +1506,7 @@
 	{
 	  Lisp_Object tem;
 	  int length;
+	  Lisp_Object startpos, endpos;
 
 	  elt = Fcar (tail);
 	  /* Compute the length of this element.  */
@@ -1529,6 +1530,9 @@
 	     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 @@
 	      if (BUFFERP (Vstandard_output))
 		{
 		  tem = Findent_to (make_number (35), make_number (2));
+		  
 		  column = XINT (tem);
 		}
 	      else
@@ -1558,6 +1563,13 @@
 		}
 	    }
 
+	  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))
 	    {