--- a/src/minibuf.c	Mon Aug 13 09:21:56 2007 +0200
+++ b/src/minibuf.c	Mon Aug 13 09:23:06 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"
 
@@ -647,6 +650,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;
@@ -666,12 +670,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);
 }
 
@@ -680,6 +686,7 @@
 		  Bytecount offset, Bytecount length,
 		  Lisp_Object label)
 {
+  /* This function can call lisp */
   Lisp_Object obj;
   struct gcpro gcpro1;
   Lisp_Object frame;
@@ -727,6 +734,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);
 }
@@ -744,6 +752,7 @@
 Lisp_Object
 echo_area_status (struct frame *f)
 {
+  /* This function can call lisp */
   if (!NILP (Ffboundp (Qcurrent_message_label)))
     {
       Lisp_Object frame;
@@ -769,7 +778,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);
@@ -779,7 +788,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);
@@ -792,6 +801,7 @@
 static void
 message_1 (CONST char *fmt, va_list args)
 {
+  /* This function can call lisp */
   if (fmt)
     {
       struct gcpro gcpro1;
@@ -810,6 +820,7 @@
 static void
 message_append_1 (CONST char *fmt, va_list args)
 {
+  /* This function can call lisp */
   if (fmt)
     {
       struct gcpro gcpro1;
@@ -828,12 +839,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. */
@@ -849,6 +862,7 @@
 void
 message_append (CONST char *fmt, ...)
 {
+  /* This function can call lisp */
   va_list args;
 
   va_start (args, fmt);
@@ -861,6 +875,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. */