(Fexpand_file_name): Convert the value of $HOME to a multibyte string.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/fileio.c b/src/fileio.c
index fe05cf9d441..2af8124a850 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1378,9 +1378,15 @@ See also the function `substitute-in-file-name'.  */)
 #endif /* VMS */
           || nm[1] == 0)        /* ~ by itself */
         {
+          Lisp_Object tem;
+
           if (!(newdir = (unsigned char *) egetenv ("HOME")))
             newdir = (unsigned char *) "";
           nm++;
+          /* egetenv may return a unibyte string, which will bite us since
+             we expect the directory to be multibyte.  */
+          tem = string_to_multibyte (build_string (newdir));
+          newdir = SDATA (tem);
 #ifdef DOS_NT
           collapse_newdir = 0;
 #endif