(add_to_log): Renamed from display_message.

Don't display messages in echo area.

diff --git a/src/xfaces.c b/src/xfaces.c
index 2bd29a0..c3610cc 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -396,7 +396,7 @@ static int load_pixmap P_ ((struct frame *, Lisp_Object, unsigned *, unsigned *)
 static char *xstrdup P_ ((char *));
 static unsigned char *xstrlwr P_ ((unsigned char *));
 static void signal_error P_ ((char *, Lisp_Object));
-static void display_message P_ ((struct frame *, char *, Lisp_Object, Lisp_Object));
+static void add_to_log P_ ((struct frame *, char *, Lisp_Object, Lisp_Object));
 static struct frame *frame_or_selected_frame P_ ((Lisp_Object, int));
 static void load_face_font_or_fontset P_ ((struct frame *, struct face *, char *, int));
 static void load_face_colors P_ ((struct frame *, struct face *, Lisp_Object *));
@@ -590,13 +590,15 @@ signal_error (s, arg)
    otherwise also end in an infinite recursion.  */
 
 static void
-display_message (f, format, arg1, arg2)
+add_to_log (f, format, arg1, arg2)
      struct frame *f;
      char *format;
      Lisp_Object arg1, arg2;
 {
   Lisp_Object args[3];
   Lisp_Object nargs;
+  Lisp_Object msg;
+  char *buffer;
   extern int waiting_for_input;
 
   /* Function note_mouse_highlight calls face_at_buffer_position which
@@ -610,15 +612,12 @@ display_message (f, format, arg1, arg2)
   args[0] = build_string (format);
   args[1] = arg1;
   args[2] = arg2;
-  
-  if (f->face_cache->used >= BASIC_FACE_ID_SENTINEL)
-    Fmessage (nargs, args);
-  else
-    {
-      Lisp_Object msg = Fformat (nargs, args);
-      char *buffer = LSTRDUPA (msg);
-      message_dolog (buffer, strlen (buffer), 1, 0);
-    }
+  msg = Fformat (nargs, args);
+
+  /* Log the error, but don't display it in the echo area.  This
+     proves to be annoying in many cases.  */
+  buffer = LSTRDUPA (msg);
+  message_dolog (buffer, strlen (buffer), 1, 0);
 }
 
 
@@ -941,7 +940,7 @@ load_pixmap (f, name, w_ptr, h_ptr)
 
   if (bitmap_id < 0)
     {
-      display_message (f, "Invalid or undefined bitmap %s", name, Qnil);
+      add_to_log (f, "Invalid or undefined bitmap %s", name, Qnil);
       bitmap_id = 0;
 
       if (w_ptr)
@@ -1059,11 +1058,11 @@ load_face_font_or_fontset (f, face, font_name, fontset)
        }
     }
   else if (fontset >= 0)
-    display_message (f, "Unable to load ASCII font of fontset %d",
-                    make_number (fontset), Qnil);
+    add_to_log (f, "Unable to load ASCII font of fontset %d",
+               make_number (fontset), Qnil);
   else if (font_name)
-    display_message (f, "Unable to load font %s",
-                    build_string (font_name), Qnil);
+    add_to_log (f, "Unable to load font %s",
+               build_string (font_name), Qnil);
 }
 
 #endif /* HAVE_X_WINDOWS */
@@ -1184,7 +1183,7 @@ load_color (f, face, name, target_index)
      to the values in an existing cell. */
   if (!defined_color (f, XSTRING (name)->data, &color, 1))
     {
-      display_message (f, "Unable to load color %s", name, Qnil);
+      add_to_log (f, "Unable to load color %s", name, Qnil);
       
       switch (target_index)
        {
@@ -1405,7 +1404,7 @@ load_color (f, face, name, target_index)
       if (INTEGERP (color))
        return (unsigned long)XINT (color);
 
-      display_message (f, "Unable to load color %s", name, Qnil);
+      add_to_log (f, "Unable to load color %s", name, Qnil);
       
       switch (target_index)
        {
@@ -2831,7 +2830,7 @@ merge_face_vector_with_property (f, to, prop)
                to[LFACE_BACKGROUND_INDEX] = color_name;
            }
          else
-           display_message (f, "Invalid face color", color_name, Qnil);
+           add_to_log (f, "Invalid face color", color_name, Qnil);
        }
       else if (SYMBOLP (first)
               && *XSYMBOL (first)->name->data == ':')
@@ -2847,16 +2846,14 @@ merge_face_vector_with_property (f, to, prop)
                  if (STRINGP (value))
                    to[LFACE_FAMILY_INDEX] = value;
                  else
-                   display_message (f, "Illegal face font family",
-                                    value, Qnil);
+                   add_to_log (f, "Illegal face font family", value, Qnil);
                }
              else if (EQ (keyword, QCheight))
                {
                  if (INTEGERP (value))
                    to[LFACE_HEIGHT_INDEX] = value;
                  else
-                   display_message (f, "Illegal face font height",
-                                    value, Qnil);
+                   add_to_log (f, "Illegal face font height", value, Qnil);
                }
              else if (EQ (keyword, QCweight))
                {
@@ -2864,7 +2861,7 @@ merge_face_vector_with_property (f, to, prop)
                      && face_numeric_weight (value) >= 0)
                    to[LFACE_WEIGHT_INDEX] = value;
                  else
-                   display_message (f, "Illegal face weight", value, Qnil);
+                   add_to_log (f, "Illegal face weight", value, Qnil);
                }
              else if (EQ (keyword, QCslant))
                {
@@ -2872,7 +2869,7 @@ merge_face_vector_with_property (f, to, prop)
                      && face_numeric_slant (value) >= 0)
                    to[LFACE_SLANT_INDEX] = value;
                  else
-                   display_message (f, "Illegal face slant", value, Qnil);
+                   add_to_log (f, "Illegal face slant", value, Qnil);
                }
              else if (EQ (keyword, QCunderline))
                {
@@ -2881,7 +2878,7 @@ merge_face_vector_with_property (f, to, prop)
                      || STRINGP (value))
                    to[LFACE_UNDERLINE_INDEX] = value;
                  else
-                   display_message (f, "Illegal face underline", value, Qnil);
+                   add_to_log (f, "Illegal face underline", value, Qnil);
                }
              else if (EQ (keyword, QCoverline))
                {
@@ -2890,7 +2887,7 @@ merge_face_vector_with_property (f, to, prop)
                      || STRINGP (value))
                    to[LFACE_OVERLINE_INDEX] = value;
                  else
-                   display_message (f, "Illegal face overline", value, Qnil);
+                   add_to_log (f, "Illegal face overline", value, Qnil);
                }
              else if (EQ (keyword, QCstrike_through))
                {
@@ -2899,8 +2896,7 @@ merge_face_vector_with_property (f, to, prop)
                      || STRINGP (value))
                    to[LFACE_STRIKE_THROUGH_INDEX] = value;
                  else
-                   display_message (f, "Illegal face strike-through",
-                                    value, Qnil);
+                   add_to_log (f, "Illegal face strike-through", value, Qnil);
                }
              else if (EQ (keyword, QCbox))
                {
@@ -2912,7 +2908,7 @@ merge_face_vector_with_property (f, to, prop)
                      || NILP (value))
                    to[LFACE_BOX_INDEX] = value;
                  else
-                   display_message (f, "Illegal face box", value, Qnil);
+                   add_to_log (f, "Illegal face box", value, Qnil);
                }
              else if (EQ (keyword, QCinverse_video)
                       || EQ (keyword, QCreverse_video))
@@ -2920,24 +2916,21 @@ merge_face_vector_with_property (f, to, prop)
                  if (EQ (value, Qt) || NILP (value))
                    to[LFACE_INVERSE_INDEX] = value;
                  else
-                   display_message (f, "Illegal face inverse-video",
-                                    value, Qnil);
+                   add_to_log (f, "Illegal face inverse-video", value, Qnil);
                }
              else if (EQ (keyword, QCforeground))
                {
                  if (STRINGP (value))
                    to[LFACE_FOREGROUND_INDEX] = value;
                  else
-                   display_message (f, "Illegal face foreground",
-                                    value, Qnil);
+                   add_to_log (f, "Illegal face foreground", value, Qnil);
                }
              else if (EQ (keyword, QCbackground))
                {
                  if (STRINGP (value))
                    to[LFACE_BACKGROUND_INDEX] = value;
                  else
-                   display_message (f, "Illegal face background",
-                                    value, Qnil);
+                   add_to_log (f, "Illegal face background", value, Qnil);
                }
              else if (EQ (keyword, QCstipple))
                {
@@ -2946,7 +2939,7 @@ merge_face_vector_with_property (f, to, prop)
                  if (!NILP (pixmap_p))
                    to[LFACE_STIPPLE_INDEX] = value;
                  else
-                   display_message (f, "Illegal face stipple", value, Qnil);
+                   add_to_log (f, "Illegal face stipple", value, Qnil);
 #endif
                }
              else if (EQ (keyword, QCwidth))
@@ -2955,11 +2948,11 @@ merge_face_vector_with_property (f, to, prop)
                      && face_numeric_swidth (value) >= 0)
                    to[LFACE_SWIDTH_INDEX] = value;
                  else
-                   display_message (f, "Illegal face width", value, Qnil);
+                   add_to_log (f, "Illegal face width", value, Qnil);
                }
              else
-               display_message (f, "Invalid attribute %s in face property",
-                                keyword, Qnil);
+               add_to_log (f, "Invalid attribute %s in face property",
+                           keyword, Qnil);
 
              prop = XCDR (XCDR (prop));
            }
@@ -2981,8 +2974,7 @@ merge_face_vector_with_property (f, to, prop)
       /* PROP ought to be a face name.  */
       Lisp_Object lface = lface_from_face_name (f, prop, 0);
       if (NILP (lface))
-       display_message (f, "Invalid face text property value: %s",
-                        prop, Qnil);
+       add_to_log (f, "Invalid face text property value: %s", prop, Qnil);
       else
        merge_face_vectors (XVECTOR (lface)->contents, to);
     }