From: Andrew Innes <andrewi@gnu.org>
Date: Sat, 30 Jan 1999 18:48:57 +0000 (+0000)
Subject: (init_environment): Change argv[0] to contain the full path to Emacs.
X-Git-Tag: emacs-20.4~720
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa7b87b0b22bac620f917bf8678a9cf26078897f;p=emacs.git

(init_environment): Change argv[0] to contain the full path to Emacs.
---

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 ();