# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1179089655 0
# Node ID 0f553a433d342865d80532a5c71c705a6646c0eb
# Parent  ddc474387d5381bbf77e4e8f492b62f0fee8f722
(getenv): Pass frame to getenv-internal.

diff -r ddc474387d53 -r 0f553a433d34 lisp/env.el
--- a/lisp/env.el	Sun May 13 13:26:57 2007 +0000
+++ b/lisp/env.el	Sun May 13 20:54:15 2007 +0000
@@ -212,7 +212,8 @@
   (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)