comparison lisp/progmodes/sh-script.el @ 37528:5a240d7bd802

(sh-font-lock-heredoc): Allow optional backslash at the start of the here-document delimiter. (sh-font-lock-syntactic-keywords): Likewise.

37527:d585b711c8d2

		"^" (if quoted "[ \t]*")
		(regexp-quote (replace-regexp-in-string "['\"]" "" string))
		"\\(\n\\)")))
      (unless (assoc ere font-lock-syntactic-keywords)
	(let* (	;; A rough regexp that should find us back.
	       (sre (concat "<<\\(-\\)?\\s-*['\"]?"
			    (regexp-quote string) "['\"]?[ \t\n]"))
	       (code `(cond
		       ((save-excursion (re-search-backward ,sre nil t))
			;; This ^STRING$ is indeed following a <<STRING
			sh-here-doc-syntax)

  ;; word.  In the shell, words are separated by metacharacters.
  ;; The list of special chars is taken from the single-unix spec
  ;; 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\\)"
     4 (sh-font-lock-heredoc
	(match-beginning 0) (match-string 2) (match-end 1)))
    ;; Distinguish the special close-paren in `case'.
    (")" 0 (sh-font-lock-paren (match-beginning 0)))))

37528:5a240d7bd802

		"^" (if quoted "[ \t]*")
		(regexp-quote (replace-regexp-in-string "['\"]" "" string))
		"\\(\n\\)")))
      (unless (assoc ere font-lock-syntactic-keywords)
	(let* (	;; A rough regexp that should find us back.
	       (sre (concat "<<\\(-\\)?\\s-*\\\\?['\"]?"
			    (regexp-quote string) "['\"]?[ \t\n]"))
	       (code `(cond
		       ((save-excursion (re-search-backward ,sre nil t))
			;; This ^STRING$ is indeed following a <<STRING
			sh-here-doc-syntax)

  ;; word.  In the shell, words are separated by metacharacters.
  ;; The list of special chars is taken from the single-unix spec
  ;; 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\\)"
     4 (sh-font-lock-heredoc
	(match-beginning 0) (match-string 2) (match-end 1)))
    ;; Distinguish the special close-paren in `case'.
    (")" 0 (sh-font-lock-paren (match-beginning 0)))))