From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 May 2003 11:16:22 +0000 (+0000)
Subject: (substitute-env-vars): Fix typo.
X-Git-Tag: ttn-vms-21-2-B4~9905
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cccc806de7b564dcb5305aba07a41998414d9129;p=emacs.git

(substitute-env-vars): Fix typo.
---

diff --git a/lisp/env.el b/lisp/env.el
index eae724d148d..6aef5457a1c 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -63,12 +63,14 @@ If it is also not t, RET does not exit if it does non-null completion."
 `$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)