procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(sh-font-lock-heredoc): Allow

Browse source 
optional backslash at the start of the here-document delimiter.
(sh-font-lock-syntactic-keywords): Likewise.
This commit is contained in:
Gerd Moellmann 2001-04-30 15:23:01 +00:00
parent 38d56be353
commit 3c05ee140a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/sh-script.el
View file

@ -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'.