(dir_warning): New function.

(init_lread): Use dir_warning.

diff --git a/src/lread.c b/src/lread.c
index b74f15548837f0eca3f58bffc8382e3f87539a4e..647735c855508967e904505b00d8a105543930e6 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2435,9 +2435,8 @@ init_lread ()
            {
              dirfile = Fdirectory_file_name (dirfile);
              if (access (XSTRING (dirfile)->data, 0) < 0)
-               fprintf (stderr,
-                        "Warning: Lisp directory `%s' does not exist.\n",
-                        XSTRING (Fcar (path_tail))->data);
+               dir_warning ("Warning: Lisp directory `%s' does not exist.\n",
+                            XCONS (path_tail)->car);
            }
        }
     }
@@ -2459,6 +2458,21 @@ init_lread ()
   load_descriptor_list = Qnil;
 }
 
+/* Print a warning, using format string FORMAT, that directory DIRNAME
+   does not exist.  Print it on stderr and put it in *Message*.  */
+
+dir_warning (format, dirname)
+     char *format;
+     Lisp_Object dirname;
+{
+  char *buffer
+    = (char *) alloca (XSTRING (dirname)->size + strlen (format) + 5);
+
+  fprintf (stderr, format, XSTRING (dirname)->data);
+  sprintf (buffer, format, XSTRING (dirname)->data);
+  message_dolog (buffer, strlen (buffer), 0);
+}
+
 void
 syms_of_lread ()
 {