* progmodes/sh-script.el (sh-font-lock-paren): Handle case

patterns that are preceded by an open-paren (Bug#1320).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5387cfd080e6310f3530284a090b30100c3e6857..96db1cd60756b30ac77728d67772d43996cf5a68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 47eec4ee13f81c044e7be309cd6bb031a357eae9..ef37b3bfa0dad5f16ad4f4b76aa06144f9ff56ad 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1109,6 +1109,9 @@ subshells can nest."
                  (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.