# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 988644181 0
# Node ID 5a240d7bd802847f657494593521c3ffa216ac2f
# Parent  d585b711c8d2f7ef49d0a4bfbf8bbab5d6c85f63
(sh-font-lock-heredoc): Allow
optional backslash at the start of the here-document delimiter.
(sh-font-lock-syntactic-keywords): Likewise.

diff -r d585b711c8d2 -r 5a240d7bd802 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Mon Apr 30 14:57:35 2001 +0000
+++ b/lisp/progmodes/sh-script.el	Mon Apr 30 15:23:01 2001 +0000
@@ -829,7 +829,7 @@
 		"\\(\n\\)")))
       (unless (assoc ere font-lock-syntactic-keywords)
 	(let* (	;; A rough regexp that should find us back.
-	       (sre (concat "<<\\(-\\)?\\s-*['\"]?"
+	       (sre (concat "<<\\(-\\)?\\s-*\\\\?['\"]?"
 			    (regexp-quote string) "['\"]?[ \t\n]"))
 	       (code `(cond
 		       ((save-excursion (re-search-backward ,sre nil t))
@@ -875,7 +875,7 @@
   ;; of the shell command language (under `quoting') but with `$' removed.
   `(("[^|&;<>()`\\\"' \t\n]\\(#+\\)" 1 ,sh-st-symbol)
     ;; Find HEREDOC starters and add a corresponding rule for the ender.
-    ("[^<>]<<\\(-\\)?\\s-*\\(\\(['\"][^'\"]+['\"]\\|\\sw\\|\\s_\\)+\\).*\\(\n\\)"
+    ("[^<>]<<\\(-\\)?\\s-*\\\\?\\(\\(['\"][^'\"]+['\"]\\|\\sw\\|\\s_\\)+\\).*\\(\n\\)"
      4 (sh-font-lock-heredoc
 	(match-beginning 0) (match-string 2) (match-end 1)))
     ;; Distinguish the special close-paren in `case'.