Mercurial > emacs
comparison lisp/env.el @ 83567:0f553a433d34
(getenv): Pass frame to getenv-internal.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Sun, 13 May 2007 20:54:15 +0000 |
| parents | b8d9a391daf3 |
| children | 21e8c3e3274f |
comparison
equal
deleted
inserted
replaced
| 83566:ddc474387d53 | 83567:0f553a433d34 |
|---|---|
| 210 in the environment list of the selected frame." | 210 in the environment list of the selected frame." |
| 211 (interactive (list (read-envvar-name "Get environment variable: " t))) | 211 (interactive (list (read-envvar-name "Get environment variable: " t))) |
| 212 (let ((value (getenv-internal (if (multibyte-string-p variable) | 212 (let ((value (getenv-internal (if (multibyte-string-p variable) |
| 213 (encode-coding-string | 213 (encode-coding-string |
| 214 variable locale-coding-system) | 214 variable locale-coding-system) |
| 215 variable)))) | 215 variable) |
| 216 frame))) | |
| 216 (if (and enable-multibyte-characters value) | 217 (if (and enable-multibyte-characters value) |
| 217 (setq value (decode-coding-string value locale-coding-system))) | 218 (setq value (decode-coding-string value locale-coding-system))) |
| 218 (when (interactive-p) | 219 (when (interactive-p) |
| 219 (message "%s" (if value value "Not set"))) | 220 (message "%s" (if value value "Not set"))) |
| 220 value)) | 221 value)) |