diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/env.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb86544fa60..6fd7836c914 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2009-02-10 Eric Hanchrow <eric.hanchrow@gmail.com> | ||
| 2 | |||
| 3 | * env.el (getenv): When FRAME is non-nil, pass the frame environment | ||
| 4 | to `getenv-internal', not the frame. (Bug#2259) | ||
| 5 | |||
| 1 | 2009-02-10 Kenichi Handa <handa@m17n.org> | 6 | 2009-02-10 Kenichi Handa <handa@m17n.org> |
| 2 | 7 | ||
| 3 | * descr-text.el (describe-char-display): On terminal, if terminal | 8 | * descr-text.el (describe-char-display): On terminal, if terminal |
diff --git a/lisp/env.el b/lisp/env.el index 8d8bebe09ba..33d5545edae 100644 --- a/lisp/env.el +++ b/lisp/env.el | |||
| @@ -198,7 +198,9 @@ in the environment list of the selected frame." | |||
| 198 | (encode-coding-string | 198 | (encode-coding-string |
| 199 | variable locale-coding-system) | 199 | variable locale-coding-system) |
| 200 | variable) | 200 | variable) |
| 201 | frame))) | 201 | (and frame |
| 202 | (assq 'environment | ||
| 203 | (frame-parameters frame)))))) | ||
| 202 | (if (and enable-multibyte-characters value) | 204 | (if (and enable-multibyte-characters value) |
| 203 | (setq value (decode-coding-string value locale-coding-system))) | 205 | (setq value (decode-coding-string value locale-coding-system))) |
| 204 | (when (interactive-p) | 206 | (when (interactive-p) |