diff options
| author | Karoly Lorentey | 2004-05-23 03:37:58 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-05-23 03:37:58 +0000 |
| commit | 44070fdf1af9b9fd6e5ada81759c9dc749a05ab7 (patch) | |
| tree | 340ecf0e61b8f627c2de6f4643f0395abcb92c9e | |
| parent | 061e4e7fe0d652989615781f1367819b04a4c855 (diff) | |
| download | emacs-44070fdf1af9b9fd6e5ada81759c9dc749a05ab7.tar.gz emacs-44070fdf1af9b9fd6e5ada81759c9dc749a05ab7.zip | |
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
| -rw-r--r-- | lisp/server.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index 7156b7322e3..433d9a7cd26 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -891,7 +891,7 @@ If FRAME is nil or missing, then the selected frame is used." | |||
| 891 | (setq env (server-client-get (car clients) 'environment)) | 891 | (setq env (server-client-get (car clients) 'environment)) |
| 892 | (if (null env) | 892 | (if (null env) |
| 893 | (getenv variable) | 893 | (getenv variable) |
| 894 | (assq variable env))))) | 894 | (cdr (assoc variable env)))))) |
| 895 | 895 | ||
| 896 | (defun server-unload-hook () | 896 | (defun server-unload-hook () |
| 897 | (server-start t) | 897 | (server-start t) |