Mercurial > emacs
changeset 98152:d8cad3d1e47c
(init_charset): Warn if etc/charsets not found. (Bug#909)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 12 Sep 2008 03:11:28 +0000 |
| parents | 0db92e8539a8 |
| children | 3fc27537d293 |
| files | src/charset.c |
| diffstat | 1 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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); }