From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 27 Apr 1997 03:18:20 +0000 (+0000)
Subject: (get_user_app): Free the gethomedir value.
X-Git-Tag: emacs-20.1~2373
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fa18fb28a99909edbf7f489322ae5620cc964ec;p=emacs.git

(get_user_app): Free the gethomedir value.
---

diff --git a/src/xrdb.c b/src/xrdb.c
index be1b9cbab1d..9105f6ea763 100644
--- a/src/xrdb.c
+++ b/src/xrdb.c
@@ -403,6 +403,7 @@ get_user_app (class)
 {
   char *path;
   char *file = 0;
+  char *free_it = 0;
 
   /* Check for XUSERFILESEARCHPATH.  It is a path of complete file
      names, not directories.  */
@@ -417,16 +418,20 @@ get_user_app (class)
       
       /* Check in the home directory.  This is a bit of a hack; let's
 	 hope one's home directory doesn't contain any %-escapes.  */
-      || (path = gethomedir (),
-	  ((file = search_magic_path (path, class, "%L/%N", 0))
-	   || (file = search_magic_path (path, class, "%N", 0)))))
+      || (free_it = gethomedir (),
+	  ((file = search_magic_path (free_it, class, "%L/%N", 0))
+	   || (file = search_magic_path (free_it, class, "%N", 0)))))
     {
       XrmDatabase db = XrmGetFileDatabase (file);
       free (file);
+      if (free_it)
+	free (free_it);
       return db;
     }
-  else
-    return NULL;
+
+  if (free_it)
+    free (free_it);
+  return NULL;
 }