From 9296c0e8d1ac4eb49caf304fe40f229957e21b88 Mon Sep 17 00:00:00 2001
From: Geoff Voelker <voelker@cs.washington.edu>
Date: Wed, 3 Sep 1997 02:18:15 +0000
Subject: [PATCH] (env_vars): Put site-lisp before lisp in EMACSLOADPATH. Quote
 group name.  Allow different icons to be specified.

(env_vars): No longer set INFOPATH.
---
 nt/addpm.c | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/nt/addpm.c b/nt/addpm.c
index 56718f9a76b..40e57826e43 100644
--- a/nt/addpm.c
+++ b/nt/addpm.c
@@ -54,12 +54,14 @@ static struct entry
 env_vars[] = 
 {
   {"emacs_dir", NULL},
-  {"EMACSLOADPATH", "%emacs_dir%/lisp;%emacs_dir%/site-lisp"},
+  {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/lisp"},
   {"SHELL", "%emacs_dir/bin/cmdproxy.exe%"},
   {"EMACSDATA", "%emacs_dir%/etc"},
   {"EMACSPATH", "%emacs_dir%/bin"},
   {"EMACSLOCKDIR", "%emacs_dir%/lock"},
-  {"INFOPATH", "%emacs_dir%/info"},
+  /* We no longer set INFOPATH because Info-default-directory-list
+     is then ignored.  */
+  /*  {"INFOPATH", "%emacs_dir%/info"},  */
   {"EMACSDOC", "%emacs_dir%/etc"},
   {"TERM", "cmd"}
 };
@@ -111,7 +113,7 @@ main (argc, argv)
   HSZ ProgMan;
   char modname[MAX_PATH];
   char additem[MAX_PATH*2 + 100];
-  char *lpext;
+  char *prog_name;
   char *emacs_path;
   char *p;
 
@@ -160,19 +162,23 @@ main (argc, argv)
       }
     }
 
-  lpext = add_registry (emacs_path) ? "exe" : "bat";
+  prog_name = add_registry (emacs_path) ? "runemacs.exe" : "emacs.bat";
 
   DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
 
   ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
 
-  if (HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL))
+  HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL);
+  if (HConversation != 0)
     {
-      DdeCommand ("[CreateGroup (Gnu Emacs)]");
+      DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
       DdeCommand ("[ReplaceItem (Emacs)]");
-      sprintf (additem, "[AddItem (%s\\bin\\runemacs.%s, Emacs%c%s)]",
-	       emacs_path, lpext, (argc>2 ? ',' : ' '),
-	       (argc>2 ? argv[2] : ""));
+      if (argc > 2)
+	sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]",
+		 emacs_path, prog_name, argv[2]);
+      else
+	sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]",
+		 emacs_path, prog_name);
       DdeCommand (additem);
 
       DdeDisconnect (HConversation);
-- 
2.39.2