diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-10-24 22:49:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-10-24 22:49:12 +0000 |
| commit | 0209a386fbff465d69133ec159bd519be3fc0d78 (patch) | |
| tree | de4d88b790404bf731b5ff56c48455bec4b43fe7 /lisp/env.el | |
| parent | b617a66b0fa73a3c11cf70eeb768dd6b3114e562 (diff) | |
| download | emacs-0209a386fbff465d69133ec159bd519be3fc0d78.tar.gz | |
(substitute-env-vars): Quote the arg to rx.
Diffstat (limited to 'lisp/env.el')
| -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 dollar sign." (let ((start 0)) (while (string-match - (rx (or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) - (and "${" (submatch (minimal-match (0+ anything))) "}") - "$$")) + (rx '(or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) + (and "${" (submatch (minimal-match (0+ anything))) "}") + "$$")) string start) (cond ((match-beginning 1) (let ((value (getenv (match-string 1 string)))) |