# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1256418939 0
# Node ID cdd9e1b1a30f10533e1da65b1f5e6465688250db
# Parent  26d5ef08acf0b759e3d0f32c7075d223b0b4c6ec
* progmodes/sh-script.el (sh-font-lock-paren): Handle case
patterns that are preceded by an open-paren (Bug#1320).

diff -r 26d5ef08acf0 -r cdd9e1b1a30f lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 24 20:30:44 2009 +0000
+++ b/lisp/ChangeLog	Sat Oct 24 21:15:39 2009 +0000
@@ -1,3 +1,8 @@
+2009-10-24  Chong Yidong  <cyd@stupidchicken.com>
+
+	* progmodes/sh-script.el (sh-font-lock-paren): Handle case
+	patterns that are preceded by an open-paren (Bug#1320).
+
 2009-10-24  Sven Joachim  <svenjoac@gmx.de>
 
 	* files.el (delete-directory): Delete symlinks to directories with
diff -r 26d5ef08acf0 -r cdd9e1b1a30f lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Sat Oct 24 20:30:44 2009 +0000
+++ b/lisp/progmodes/sh-script.el	Sat Oct 24 21:15:39 2009 +0000
@@ -1109,6 +1109,9 @@
 		  (when (memq (char-before) '(?\" ?\'))
 		    (condition-case nil (progn (backward-sexp 1) t)
 		      (error nil)))))
+	  ;; Patterns can be preceded by an open-paren (Bug#1320).
+	  (if (= (char-before (point)) ?\()
+	      (backward-char 1))
           (while (progn
                    (forward-comment (- (point-max)))
                    ;; Maybe we've bumped into an escaped newline.