From: Andrew Innes <andrewi@gnu.org>
Date: Sun, 2 May 1999 10:28:55 +0000 (+0000)
Subject: (w32_get_string_resource): Check for name in current
X-Git-Tag: emacs-20.4~277
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49fb6381cae006086974b6c3fa6d03bf52935d8b;p=emacs.git

(w32_get_string_resource): Check for name in current
user area, and if not found look in the local machine area.
---

diff --git a/src/w32reg.c b/src/w32reg.c
index d32032c76e2..6a8413fdc08 100644
--- a/src/w32reg.c
+++ b/src/w32reg.c
@@ -40,13 +40,16 @@ w32_get_string_resource (name, class, dwexptype)
   DWORD dwType;
   DWORD cbData;
   BOOL ok = FALSE;
+  HKEY hive = HKEY_CURRENT_USER;
   
+ trykey:
+
   BLOCK_INPUT;
   
-  /* Check both the current user and the local machine to see if we have any resources */
-  
-  if (RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS
-      || RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
+  /* Check both the current user and the local machine to see if we have
+     any resources */
+
+  if (RegOpenKeyEx (hive, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
     {
       char *keyname;
       
@@ -76,13 +79,19 @@ w32_get_string_resource (name, class, dwexptype)
   
   if (!ok) 
     {
-      if (lpvalue) xfree (lpvalue);
+      if (lpvalue)
+	{
+	  xfree (lpvalue);
+	  lpvalue = NULL;
+	}
+      if (hive == HKEY_CURRENT_USER)
+	{
+	  hive = HKEY_LOCAL_MACHINE;
+	  goto trykey;
+	}
       return (NULL);
     } 
-  else 
-    {
-      return (lpvalue);
-    }
+  return (lpvalue);
 }
 
 /* Retrieve the string resource specified by NAME with CLASS from