Mercurial > emacs

changeset 23449:c7a91c0586da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Oct 1998 23:54:54 +0000
parents 84542af4b8d6
children 085606778286
files src/minibuf.c
diffstat 1 files changed, 21 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/minibuf.c	Tue Oct 13 21:10:10 1998 +0000
+++ b/src/minibuf.c	Tue Oct 13 23:54:54 1998 +0000
@@ -1934,15 +1934,13 @@
 
 	  if (BUFFERP (Vstandard_output))
 	    {
-	      int startpos = BUF_PT (XBUFFER (Vstandard_output));
-	      int endpos;
+	      XSETINT (startpos, BUF_PT (XBUFFER (Vstandard_output)));
 
 	      Fprinc (string, Qnil);
 
-	      endpos = BUF_PT (XBUFFER (Vstandard_output));
+	      XSETINT (endpos, BUF_PT (XBUFFER (Vstandard_output)));
 
-	      Fput_text_property (make_number (startpos),
-				  make_number (endpos),
+	      Fput_text_property (startpos, endpos,
 				  Qmouse_face, intern ("highlight"),
 				  Vstandard_output);
 	    }
@@ -1953,7 +1951,24 @@
 
 	  /* Output the annotation for this element.  */
 	  if (CONSP (elt))
-	    Fprinc (Fcar (Fcdr (elt)), Qnil);
+	    {
+	      if (BUFFERP (Vstandard_output))
+		{
+		  XSETINT (startpos, BUF_PT (XBUFFER (Vstandard_output)));
+
+		  Fprinc (Fcar (Fcdr (elt)), Qnil);
+
+		  XSETINT (endpos, BUF_PT (XBUFFER (Vstandard_output)));
+
+		  Fset_text_properties (startpos, endpos, Qnil,
+					Vstandard_output);
+		}
+	      else
+		{
+		  Fprinc (Fcar (Fcdr (elt)), Qnil);
+		}
+	    }
+
 
 	  /* Update COLUMN for what we have output.  */
 	  column += length;