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 | 73bb4c3428ed8487aa41529ff7aabf5007bf0223 (patch) | |
tree | d8baf68b397b0d24fbe5a516226b0fbcf41b9c5c /lisp/env.el | |
parent | 7d27b1a584a44d446c63e2a6580eb9ec17168d2a (diff) | |
download | emacs-73bb4c3428ed8487aa41529ff7aabf5007bf0223.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)))) |