Mercurial > emacs
comparison lisp/server.el @ 83130:20f9fa3c5131
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sun, 23 May 2004 03:37:58 +0000 |
| parents | d153d9579f9b |
| children | 24e9d5ea9a88 |
comparison
equal
deleted
inserted
replaced
| 83129:b1ded6fb31d1 | 83130:20f9fa3c5131 |
|---|---|
| 889 (if (null clients) | 889 (if (null clients) |
| 890 (getenv variable) | 890 (getenv variable) |
| 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) |
| 898 (remove-hook 'delete-tty-after-functions 'server-handle-delete-tty) | 898 (remove-hook 'delete-tty-after-functions 'server-handle-delete-tty) |
| 899 (remove-hook 'suspend-tty-functions 'server-handle-suspend-tty) | 899 (remove-hook 'suspend-tty-functions 'server-handle-suspend-tty) |