From 3c05ee140aa01f957639b6cbd7300c7fbe9ca42a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 30 Apr 2001 15:23:01 +0000 Subject: [PATCH] (sh-font-lock-heredoc): Allow optional backslash at the start of the here-document delimiter. (sh-font-lock-syntactic-keywords): Likewise. --- lisp/progmodes/sh-script.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 21a717c3863..358b1fd22a5 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -829,7 +829,7 @@ See `sh-feature'.") "\\(\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 @@ See `sh-feature'.") ;; 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'. -- 2.39.5