bug#909: not finding etc/charsets/ should give some error/warning

[Glenn Morris]

Dan Nicolaescu wrote:

> It would be great if some warning/error would be shown if
> etc/charsets/* is not found.

*** charset.c   3 Jun 2008 04:22:55 -0000       1.163
--- charset.c   10 Sep 2008 21:00:06 -0000
***************
*** 2044,2052 ****
  void
  init_charset ()
  {
!   Vcharset_map_path
!     = Fcons (Fexpand_file_name (build_string ("charsets"), Vdata_directory),
!            Qnil);
  }
  
  
--- 2044,2055 ----
  void
  init_charset ()
  {
!   Lisp_Object tempdir;
!   tempdir = Fexpand_file_name (build_string ("charsets"), Vdata_directory);
!   if (access (SDATA (tempdir), 0) < 0)
!     dir_warning ("Warning: charsets directory (%s) does not exist.\n",
!                tempdir);
! 
!   Vcharset_map_path = Fcons (tempdir, Qnil);
  }