# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1085283478 0
# Node ID 20f9fa3c5131f43ace927c8da62f1332b975db57
# Parent  b1ded6fb31d1d88dd0c360eff8922b4272a36007
Fix environment variables on emacsclient frames.

lisp/server.el (server-getenv): Fix string lookup in alist.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-170

diff -r b1ded6fb31d1 -r 20f9fa3c5131 lisp/server.el
--- a/lisp/server.el	Sun May 23 02:34:53 2004 +0000
+++ b/lisp/server.el	Sun May 23 03:37:58 2004 +0000
@@ -891,7 +891,7 @@
       (setq env (server-client-get (car clients) 'environment))
       (if (null env)
 	  (getenv variable)
-	(assq variable env)))))
+	(cdr (assoc variable env))))))
 
 (defun server-unload-hook ()
   (server-start t)