# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054120582 0
# Node ID 92f5fdc30889159796725be045b96166126e06c7
# Parent  7192dc1bfcf4c78c575bc6c12c39031773d15af5
(substitute-env-vars): Fix typo.

diff -r 7192dc1bfcf4 -r 92f5fdc30889 lisp/env.el
--- a/lisp/env.el	Wed May 28 11:14:07 2003 +0000
+++ b/lisp/env.el	Wed May 28 11:16:22 2003 +0000
@@ -63,12 +63,14 @@
 `$FOO' where FOO is an environment variable name means to substitute
 the value of that variable.  The variable name should be terminated
 with a character not a letter, digit or underscore; otherwise, enclose
-the entire variable name in braces.  Use `$$' to insert a single
-dollar sign."
+the entire variable name in braces.  For instance, in `ab$cd-x',
+`$cd' is treated as an environment variable.
+
+Use `$$' to insert a single dollar sign."
   (let ((start 0))
     (while (string-match
 	    (eval-when-compile
-	      (rx (or (and "$" (submatch (1+ (regexp "[:alnum:]_"))))
+	      (rx (or (and "$" (submatch (1+ (regexp "[[:alnum:]_]"))))
 		      (and "${" (submatch (minimal-match (0+ anything))) "}")
 		      "$$")))
 	    string start)