# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1221189088 0
# Node ID d8cad3d1e47ce4fe231b0df70e3e290a5d801265
# Parent  0db92e8539a8df9a6ad88935594f1f7e762b36f8
(init_charset): Warn if etc/charsets not found.  (Bug#909)

diff -r 0db92e8539a8 -r d8cad3d1e47c src/charset.c
--- a/src/charset.c	Fri Sep 12 03:09:30 2008 +0000
+++ b/src/charset.c	Fri Sep 12 03:11:28 2008 +0000
@@ -1,6 +1,6 @@
 /* Basic character set support.
-   Copyright (C) 2001, 2002, 2003, 2004, 2005,
-                 2006, 2007, 2008 Free Software Foundation, Inc.
+   Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+     2008  Free Software Foundation, Inc.
    Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
      2005, 2006, 2007, 2008
      National Institute of Advanced Industrial Science and Technology (AIST)
@@ -2044,9 +2044,18 @@
 void
 init_charset ()
 {
-  Vcharset_map_path
-    = Fcons (Fexpand_file_name (build_string ("charsets"), Vdata_directory),
-	     Qnil);
+  Lisp_Object tempdir;
+  tempdir = Fexpand_file_name (build_string ("charsets"), Vdata_directory);
+  if (access (SDATA (tempdir), 0) < 0)
+    {
+      dir_warning ("Error: charsets directory (%s) does not exist.\n\
+Emacs will not function correctly without the character map files.\n\
+Please check your installation!\n",
+                   tempdir);
+      /* TODO should this be a fatal error?  (Bug#909)  */
+    }
+
+  Vcharset_map_path = Fcons (tempdir, Qnil);
 }