diff options
| author | Richard M. Stallman | 2001-10-24 22:49:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-10-24 22:49:12 +0000 |
| commit | 0209a386fbff465d69133ec159bd519be3fc0d78 (patch) | |
| tree | de4d88b790404bf731b5ff56c48455bec4b43fe7 | |
| parent | b617a66b0fa73a3c11cf70eeb768dd6b3114e562 (diff) | |
| download | emacs-0209a386fbff465d69133ec159bd519be3fc0d78.tar.gz emacs-0209a386fbff465d69133ec159bd519be3fc0d78.zip | |
(substitute-env-vars): Quote the arg to rx.
| -rw-r--r-- | lisp/env.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/env.el b/lisp/env.el index e19f9f7f5da..1da48e05ea9 100644 --- a/lisp/env.el +++ b/lisp/env.el | |||
| @@ -59,9 +59,9 @@ the entire variable name in braces. Use `$$' to insert a single | |||
| 59 | dollar sign." | 59 | dollar sign." |
| 60 | (let ((start 0)) | 60 | (let ((start 0)) |
| 61 | (while (string-match | 61 | (while (string-match |
| 62 | (rx (or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) | 62 | (rx '(or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) |
| 63 | (and "${" (submatch (minimal-match (0+ anything))) "}") | 63 | (and "${" (submatch (minimal-match (0+ anything))) "}") |
| 64 | "$$")) | 64 | "$$")) |
| 65 | string start) | 65 | string start) |
| 66 | (cond ((match-beginning 1) | 66 | (cond ((match-beginning 1) |
| 67 | (let ((value (getenv (match-string 1 string)))) | 67 | (let ((value (getenv (match-string 1 string)))) |