]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix previous change.
authorRichard M. Stallman <rms@gnu.org>
Tue, 13 Oct 1998 23:54:54 +0000 (23:54 +0000)
committerRichard M. Stallman <rms@gnu.org>
Tue, 13 Oct 1998 23:54:54 +0000 (23:54 +0000)
src/minibuf.c

index 9066f4d6d3e3594e495b1fb16651548f6dedf2cb..b1950352d0dc48bece04a2b26b329f8ea83d9a95 100644 (file)
@@ -1934,15 +1934,13 @@ It can find the completion buffer in `standard-output'.")
 
          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 @@ It can find the completion buffer in `standard-output'.")
 
          /* 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;