Fix bug #15260 with building and installing Emacs in non-ASCII directories.

 src/xdisp.c (message3_nolog, message_with_string): Encode the string
 before writing it to the terminal in a non-interactive session.
 src/lread.c (openp): If both FILENAME and SUFFIX are unibyte, make
 sure we concatenate them into a unibyte string.
 src/fileio.c (make_temp_name): Encode PREFIX, and decode the
 resulting temporary name before returning it to the caller.
 (Fexpand_file_name): If NAME is pure-ASCII and DEFAULT_DIRECTORY
 is a unibyte string, convert NAME to a unibyte string to ensure
 that the result is also a unibyte string.
 src/emacs.c (init_cmdargs): Use build_unibyte_string to make sure we
 create unibyte strings from default paths and directory/file
 names.
 src/coding.h (ENCODE_FILE): Do not attempt to encode a unibyte
 string.
 src/callproc.c (init_callproc): Use build_unibyte_string to make
 sure we create unibyte strings from default paths and
 directory/file names.
 src/buffer.c (init_buffer): Don't store default-directory of
 *scratch* in multibyte form.  The original problem which led to
 that is described in
 http://lists.gnu.org/archive/html/emacs-pretest-bug/2004-11/msg00532.html,
 but it was solved long ago.

 lisp/startup.el (normal-top-level): Move setting eol-mnemonic-unix,
 eol-mnemonic-mac, eol-mnemonic-dos, and also setup of the locale
 environment and decoding all of the default-directory's to here
 from command-line.
 (command-line): Decode also argv[0].
 lisp/loadup.el: Error out if default-directory is a multibyte string
 when we are dumping.
 lisp/Makefile.in (emacs): Don't set LC_ALL=C.

 leim/Makefile.in (RUN_EMACS): Don't set LC_ALL=C.

 configure.ac: Don't disallow builds in non-ASCII directories.

1 files changed, 15 insertions, 3 deletions

diff --git a/src/lread.c b/src/lread.c
index b42ac5908e9..618b0cadb53 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1500,7 +1500,8 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
       for (tail = NILP (suffixes) ? list1 (empty_unibyte_string) : suffixes;
            CONSP (tail); tail = XCDR (tail))
         {
-          ptrdiff_t fnlen, lsuffix = SBYTES (XCAR (tail));
+          Lisp_Object suffix = XCAR (tail);
+          ptrdiff_t fnlen, lsuffix = SBYTES (suffix);
           Lisp_Object handler;
 
           /* Concatenate path element/specified name with the suffix.
@@ -1511,7 +1512,7 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
                            ? 2 : 0);
           fnlen = SBYTES (filename) - prefixlen;
           memcpy (fn, SDATA (filename) + prefixlen, fnlen);
-          memcpy (fn + fnlen, SDATA (XCAR (tail)), lsuffix + 1);
+          memcpy (fn + fnlen, SDATA (suffix), lsuffix + 1);
           fnlen += lsuffix;
           /* Check that the file exists and is not a directory.  */
           /* We used to only check for handlers on non-absolute file names:
@@ -1521,7 +1522,18 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
                   handler = Ffind_file_name_handler (filename, Qfile_exists_p);
              It's not clear why that was the case and it breaks things like
              (load "/bar.el") where the file is actually "/bar.el.gz".  */
-          string = make_string (fn, fnlen);
+          /* make_string has its own ideas on when to return a unibyte
+             string and when a multibyte string, but we know better.
+             We must have a unibyte string when dumping, since
+             file-name encoding is shaky at best at that time, and in
+             particular default-file-name-coding-system is reset
+             several times during loadup.  We therefore don't want to
+             encode the file before passing it to file I/O library
+             functions.  */
+          if (!STRING_MULTIBYTE (filename) && !STRING_MULTIBYTE (suffix))
+            string = make_unibyte_string (fn, fnlen);
+          else
+            string = make_string (fn, fnlen);
           handler = Ffind_file_name_handler (string, Qfile_exists_p);
           if ((!NILP (handler) || !NILP (predicate)) && !NATNUMP (predicate))
             {