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