diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-29 09:10:48 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-29 09:10:48 +0000 |
| commit | 1fd520b6b36ab4ad6769711ebe8ed9145abcfe1e (patch) | |
| tree | 77830162974280ded4d47ac9339111324f6d9582 /lisp/env.el | |
| parent | 8997e990e4eca3d822e79b399907f7eada82dda6 (diff) | |
| download | emacs-1fd520b6b36ab4ad6769711ebe8ed9145abcfe1e.tar.gz | |
(substitute-env-vars): Don't quote argument to `rx';
it's a macro.
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 1da48e05ea9..e19f9f7f5da 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)))) |