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 --git a/lisp/server.el b/lisp/server.el
index 7156b73..433d9a7 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -891,7 +891,7 @@ If FRAME is nil or missing, then the selected frame is used."
       (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)