(sh-font-lock-paren): Handle continued lines in patterns.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4190ab3168d18cf274b9535aef01eae01b4142e..5615c03547b43873a80f638030a9049e8d4b7feb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/sh-script.el (sh-font-lock-paren): Handle continued lines
+       in patterns.
+
 2005-11-21  Juri Linkov  <juri@jurta.org>
 
        * custom.el (defcustom): Update link types in docstring.

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index bc4ca59f96a586e786e9c80ad5d36ff3e18d50fe..f6928a7255494167c294fb18663b4bf27a822f3c 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -986,7 +986,11 @@ Point is at the beginning of the next line."
                  (when (memq (char-before) '(?\" ?\'))
                    (condition-case nil (progn (backward-sexp 1) t)
                      (error nil)))))
-         (forward-comment (- (point-max)))
+          (while (progn
+                   (forward-comment (- (point-max)))
+                   ;; Maybe we've bumped into an escaped newline.
+                   (sh-is-quoted-p (point)))
+            (backward-char 1))
          (when (eq (char-before) ?|)
            (backward-char 1) t)))
     (when (save-excursion (backward-char 2) (looking-at ";;\\|in"))