From aa7b87b0b22bac620f917bf8678a9cf26078897f Mon Sep 17 00:00:00 2001
From: Andrew Innes <andrewi@gnu.org>
Date: Sat, 30 Jan 1999 18:48:57 +0000
Subject: [PATCH] (init_environment): Change argv[0] to contain the full path
 to Emacs.

---
 src/w32.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/w32.c b/src/w32.c
index d50cff56793..865e2b00221 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -639,7 +639,7 @@ char *get_emacs_configuration (void);
 extern Lisp_Object Vsystem_configuration;
 
 void
-init_environment ()
+init_environment (char ** argv)
 {
   int len;
   static const char * const tempdirs[] = {
@@ -758,7 +758,7 @@ init_environment ()
 
   {
     char *p;
-    char modname[MAX_PATH];
+    static char modname[MAX_PATH];
 
     if (!GetModuleFileName (NULL, modname, MAX_PATH))
       abort ();
@@ -767,6 +767,10 @@ init_environment ()
     *p = 0;
 
     SetCurrentDirectory (modname);
+
+    /* Ensure argv[0] has the full path to Emacs.  */
+    *p = '\\';
+    argv[0] = modname;
   }
 
   init_user_info ();
-- 
2.39.2