--- a/src/minibuf.c	Mon Aug 13 08:54:52 2007 +0200
+++ b/src/minibuf.c	Mon Aug 13 08:55:10 2007 +0200
@@ -22,6 +22,9 @@
 /* Synched up with: Mule 2.0, FSF 19.28.  Mule-ized except as noted.
    Substantially different from FSF. */
 
+/* #### dmoore - All sorts of things in here can call lisp, like message.
+   Track all this stuff. */
+
 #include <config.h>
 #include "lisp.h"
 
@@ -624,6 +627,7 @@
 clear_echo_area_internal (struct frame *f, Lisp_Object label, int from_print,
 			  int no_restore)
 {
+  /* This function can call lisp */
   if (!NILP (Ffboundp (Qclear_message)))
     {
       Lisp_Object frame;
@@ -643,12 +647,14 @@
 Lisp_Object
 clear_echo_area (struct frame *f, Lisp_Object label, int no_restore)
 {
+  /* This function can call lisp */
   return clear_echo_area_internal (f, label, 0, no_restore);
 }
 
 Lisp_Object
 clear_echo_area_from_print (struct frame *f, Lisp_Object label, int no_restore)
 {
+  /* This function can call lisp */
   return clear_echo_area_internal (f, label, 1, no_restore);
 }
 
@@ -657,6 +663,7 @@
 		  Bytecount offset, Bytecount length,
 		  Lisp_Object label)
 {
+  /* This function can call lisp */
   Lisp_Object obj;
   struct gcpro gcpro1;
   Lisp_Object frame;
@@ -704,6 +711,7 @@
 		   Lisp_Object reloc, Bytecount offset, Bytecount length,
 		   Lisp_Object label)
 {
+  /* This function can call lisp */
   clear_echo_area (f, label, 1);
   echo_area_append (f, nonreloc, reloc, offset, length, label);
 }
@@ -721,6 +729,7 @@
 Lisp_Object
 echo_area_status (struct frame *f)
 {
+  /* This function can call lisp */
   if (!NILP (Ffboundp (Qcurrent_message_label)))
     {
       Lisp_Object frame;
@@ -746,7 +755,7 @@
 message_internal (CONST Bufbyte *nonreloc, Lisp_Object reloc,
 		  Bytecount offset, Bytecount length)
 {
-  /* This can GC! */
+  /* This function can call lisp  */
   if (NILP (Vexecuting_macro))
     echo_area_message (selected_frame (), nonreloc, reloc, offset, length,
 		       Qmessage);
@@ -756,7 +765,7 @@
 message_append_internal (CONST Bufbyte *nonreloc, Lisp_Object reloc,
 			 Bytecount offset, Bytecount length)
 {
-  /* This can GC! */
+  /* This function can call lisp  */
   if (NILP (Vexecuting_macro))
     echo_area_append (selected_frame (), nonreloc, reloc, offset, length,
 		      Qmessage);
@@ -769,6 +778,7 @@
 static void
 message_1 (CONST char *fmt, va_list args)
 {
+  /* This function can call lisp */
   if (fmt)
     {
       struct gcpro gcpro1;
@@ -787,6 +797,7 @@
 static void
 message_append_1 (CONST char *fmt, va_list args)
 {
+  /* This function can call lisp */
   if (fmt)
     {
       struct gcpro gcpro1;
@@ -805,12 +816,14 @@
 void
 clear_message (void)
 {
+  /* This function can call lisp */
   message_internal (0, Qnil, 0, 0);
 }
 
 void
 message (CONST char *fmt, ...)
 {
+  /* This function can call lisp */
   /* I think it's OK to pass the data of Lisp strings as arguments to
      this function.  No GC'ing will occur until the data has already
      been copied. */
@@ -826,6 +839,7 @@
 void
 message_append (CONST char *fmt, ...)
 {
+  /* This function can call lisp */
   va_list args;
 
   va_start (args, fmt);
@@ -838,6 +852,7 @@
 void
 message_no_translate (CONST char *fmt, ...)
 {
+  /* This function can call lisp */
   /* I think it's OK to pass the data of Lisp strings as arguments to
      this function.  No GC'ing will occur until the data has already
      been copied. */