From: David Kastrup <dak@gnu.org>
Date: Sun, 13 May 2007 20:54:15 +0000 (+0000)
Subject: (getenv): Pass frame to getenv-internal.
X-Git-Tag: emacs-pretest-23.0.90~11236^2~140
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30ad056271fff9c57e25aff6ac00eb2243efd6f9;p=emacs.git

(getenv): Pass frame to getenv-internal.
---

diff --git a/lisp/env.el b/lisp/env.el
index 33d4287312f..346bd3be75e 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -212,7 +212,8 @@ in the environment list of the selected frame."
   (let ((value (getenv-internal (if (multibyte-string-p variable)
 				    (encode-coding-string
 				     variable locale-coding-system)
-				  variable))))
+				  variable)
+				frame)))
     (if (and enable-multibyte-characters value)
 	(setq value (decode-coding-string value locale-coding-system)))
     (when (interactive-p)