Mercurial > emacs
changeset 37528:5a240d7bd802
(sh-font-lock-heredoc): Allow
optional backslash at the start of the here-document delimiter.
(sh-font-lock-syntactic-keywords): Likewise.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 30 Apr 2001 15:23:01 +0000 |
| parents | d585b711c8d2 |
| children | 473e0b9e5856 |
| files | lisp/progmodes/sh-script.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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'.