# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1002595976 0
# Node ID e6ba84d673591baa638da9ac5751a63564b84c86
# Parent  25d48943cd5816d045bae67baaedabc172e16103
(rfn-eshadow-regexp): Deal correctly with escaped dollar-signs.

diff -r 25d48943cd58 -r e6ba84d67359 lisp/rfn-eshadow.el
--- a/lisp/rfn-eshadow.el	Tue Oct 09 02:26:00 2001 +0000
+++ b/lisp/rfn-eshadow.el	Tue Oct 09 02:52:56 2001 +0000
@@ -129,10 +129,10 @@
 	 ;; This horrible regexp considers the following patterns as
 	 ;; starting an absolute pathname, when following a `/' or an `\':
 	 ;;   L:  /  //  ~  $  \\  \\\\
-	 "\\(.*[^/]+/+?\\|/*?\\|\\)\\([$~]\\|[][\\^a-z]:\\|//?\\([^][\\^a-z/$~]\\|[^/$~][^:]\\|[^/$~]?\\'\\)\\)")
+	 "\\(.*[^/]+/+?\\|/*?\\|\\)\\(~\\|$[^$]\\|$\\'\\|[][\\^a-z]:\\|//?\\([^][\\^a-z/$~]\\|[^/$~][^:]\\|[^/$~]?\\'\\)\\)")
 	(t
 	 ;; default is for unix-style filenames
-	 "\\(.*/\\)[/$~]"))
+	 "\\(.*/\\)\\([/~]\\|$[^$]\\|$\\'\\)"))
   "Regular expression used to match shadowed filenames.
 There should be at least one regexp group; the end of the first one
 is used as the end of the shadowed portion of the filename.")