# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 831147545 0
# Node ID 493eee82953222de75a9251b9638447a5e02e9a7
# Parent  e48968f04ea7f6861cd9fda023541ad7fc418a5f
(REG_ROOT): Don't use a trailing backslash.
(env_vars): Rename field emacs_path to emacs_dir.
(main): Add link to runemacs instead of emacs.

diff -r e48968f04ea7 -r 493eee829532 nt/addpm.c
--- a/nt/addpm.c	Thu May 02 22:33:51 1996 +0000
+++ b/nt/addpm.c	Fri May 03 18:19:05 1996 +0000
@@ -44,7 +44,7 @@
 	DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
 		              CF_TEXT, XTYP_EXECUTE, 30000, NULL)
 
-#define REG_ROOT "SOFTWARE\\GNU\\Emacs\\"
+#define REG_ROOT "SOFTWARE\\GNU\\Emacs"
 
 static struct entry
 {
@@ -53,14 +53,14 @@
 } 
 env_vars[] = 
 {
-  {"emacs_path", NULL},
-  {"EMACSLOADPATH", "%emacs_path%\\lisp"},
+  {"emacs_dir", NULL},
+  {"EMACSLOADPATH", "%emacs_dir%\\lisp"},
   {"SHELL", "cmd"},
-  {"EMACSDATA", "%emacs_path%\\etc"},
-  {"EMACSPATH", "%emacs_path%\\bin"},
-  {"EMACSLOCKDIR", "%emacs_path%\\lock"},
-  {"INFOPATH", "%emacs_path%\\info"},
-  {"EMACSDOC", "%emacs_path%\\etc"},
+  {"EMACSDATA", "%emacs_dir%\\etc"},
+  {"EMACSPATH", "%emacs_dir%\\bin"},
+  {"EMACSLOCKDIR", "%emacs_dir%\\lock"},
+  {"INFOPATH", "%emacs_dir%\\info"},
+  {"EMACSDOC", "%emacs_dir%\\etc"},
   {"TERM", "cmd"}
 };
 
@@ -128,7 +128,7 @@
     {
       DdeCommand ("[CreateGroup (Gnu Emacs)]");
       DdeCommand ("[ReplaceItem (Emacs)]");
-      sprintf (additem, "[AddItem (%s\\bin\\emacs.%s, Emacs%c%s)]",
+      sprintf (additem, "[AddItem (%s\\bin\\runemacs.%s, Emacs%c%s)]",
 	       argv[1], lpext, (argc>2 ? ',' : ' '),
 	       (argc>2 ? argv[2] : ""));
       DdeCommand (additem);