procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(substitute-env-vars): Quote the arg to rx.

Browse source
This commit is contained in:
Richard M. Stallman 2001-10-24 22:49:12 +00:00
parent b617a66b0f
commit 0209a386fb
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/env.el
View file

@ -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))))