# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1153283501 0
# Node ID 93069e336ae9358ddc30daf8b545575a60aa48d2
# Parent  0429cbee770ada203bd09d44e831fb887bd19406
(sh-quoted-subshell): Fix last change.

diff -r 0429cbee770a -r 93069e336ae9 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jul 19 02:22:51 2006 +0000
+++ b/lisp/ChangeLog	Wed Jul 19 04:31:41 2006 +0000
@@ -1,3 +1,7 @@
+2006-07-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/sh-script.el (sh-quoted-subshell): Fix last change.
+
 2006-07-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* progmodes/sh-script.el (sh-font-lock-keywords-1):
diff -r 0429cbee770a -r 93069e336ae9 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Wed Jul 19 02:22:51 2006 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Jul 19 04:31:41 2006 +0000
@@ -985,7 +985,7 @@
   ;; FIXME: This can (and often does) match multiple lines, yet it makes no
   ;; effort to handle multiline cases correctly, so it ends up being
   ;; rather flakey.
-  (if (re-search-forward "\"\\(?:\\(?:.\\|\n\\)*?[^\\]\\(\\\\\\\\\\)*\\)?\\(\\$(\\|`\\)" limit t)
+  (if (re-search-forward "\"\\(?:\\(?:.\\|\n\\)*?[^\\]\\(\\\\\\\\\\)*\\)??\\(\\$(\\|`\\)" limit t)
       ;; bingo we have a $( or a ` inside a ""
       (let ((char (char-after (point)))
             (continue t)