Fix here-doc highlighting

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 94966f657c16757de28eeb4a29fc27a70be7a323..6bdf4463a6f8620da4300a947bd4d184f1094cef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2014-01-21  Daniel Colascione  <dancol@dancol.org>
+
+       * progmodes/sh-script.el (sh--inside-noncommand-expression):
+       Correctly detect when we're inside an arithmetic expansion form
+       containing nested parenthesis.
+       (sh--maybe-here-document): Use `sh--inside-noncommand-expression`
+       to detect cases where we shouldn't expand "<<" to a heredoc
+       skeleton.
+
 2014-01-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/eldoc.el: Properly remove message in minibuffer case.

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index daf8d29966395454213701104c1fc2fc8a80af7d..f41378f2f5388b8d5a350e91aedd159250cad076 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -975,11 +975,14 @@ See `sh-feature'.")
     (let ((ppss (syntax-ppss pos)))
       (when (nth 1 ppss)
         (goto-char (nth 1 ppss))
-        (pcase (char-after)
-          ;; $((...)) or $[...] or ${...}.
-          (`?\( (and (eq ?\( (char-before))
-                     (eq ?\$ (char-before (1- (point))))))
-          ((or `?\{ `?\[) (eq ?\$ (char-before))))))))
+        (or
+         (pcase (char-after)
+           ;; ((...)) or $((...)) or $[...] or ${...}. Nested
+           ;; parenthesis can occur inside the first of these forms, so
+           ;; parse backward recursively.
+           (`?\( (eq ?\( (char-before)))
+           ((or `?\{ `?\[) (eq ?\$ (char-before))))
+         (sh--inside-noncommand-expression (1- (point))))))))
 
 (defun sh-font-lock-open-heredoc (start string eol)
   "Determine the syntax of the \\n after a <<EOF.
@@ -4265,7 +4268,8 @@ The document is bounded by `sh-here-document-word'."
   (or (not (looking-back "[^<]<<"))
       (save-excursion
        (backward-char 2)
-       (sh-quoted-p))
+        (or (sh-quoted-p)
+            (sh--inside-noncommand-expression (point))))
       (nth 8 (syntax-ppss))
       (let ((tabs (if (string-match "\\`-" sh-here-document-word)
                       (make-string (/ (current-indentation) tab-width) ?\t)