diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-04-30 15:23:01 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-04-30 15:23:01 +0000 |
| commit | 3c05ee140aa01f957639b6cbd7300c7fbe9ca42a (patch) | |
| tree | 6d0303383b12bdde19d005ce528ab8aafe66e242 /lisp | |
| parent | 38d56be353507d0b9aebbe63d5fb7f9a17b4b593 (diff) | |
| download | emacs-3c05ee140aa01f957639b6cbd7300c7fbe9ca42a.tar.gz | |
(sh-font-lock-heredoc): Allow
optional backslash at the start of the here-document delimiter.
(sh-font-lock-syntactic-keywords): Likewise.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 4 |
1 files 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'. |