comparison lisp/progmodes/sh-script.el @ 90984:a1be62cbd32a

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 814-815) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-232

90983:8cdd8b5fa891

(defun sh-font-lock-here-doc (limit)
  "Search for a heredoc marker."
  ;; This looks silly, but it's because `sh-here-doc-re' keeps changing.
  (re-search-forward sh-here-doc-re limit t))

(defun sh-quoted-subshell (limit)
  "Search for a subshell embedded in a string.
Find all the unescaped \" characters within said subshell, remembering that
subshells can nest."
  ;; FIXME: This can (and often does) match multiple lines, yet it makes no
  ;; effort to handle multiline cases correctly, so it ends up being

          (?\` (case state
                 (backquote (setq state (pop states)))
                 (t (push state states) (setq state 'backquote))))
          (?\$ (if (not (eq (char-after (1+ (point))) ?\())
                   nil
                 (case state
                   (t (push state states) (setq state 'code)))))
          (?\( (case state
                 (double-quote nil)
                 (t (push state states) (setq state 'code))))
          (?\) (case state
                 (double-quote nil)
                 (t (setq state (pop states)))))
          (t (error "Internal error in sh-quoted-subshell")))
        (forward-char 1)))
    t))
            

(defun sh-is-quoted-p (pos)

      nil t))
    ;; Distinguish the special close-paren in `case'.
    (")" 0 (sh-font-lock-paren (match-beginning 0)))
    ;; highlight (possibly nested) subshells inside "" quoted regions correctly.
    ;; This should be at the very end because it uses syntax-ppss.
    (sh-quoted-subshell)))

(defun sh-font-lock-syntactic-face-function (state)
  (let ((q (nth 3 state)))
    (if q
        (if (characterp q)

90984:a1be62cbd32a

(defun sh-font-lock-here-doc (limit)
  "Search for a heredoc marker."
  ;; This looks silly, but it's because `sh-here-doc-re' keeps changing.
  (re-search-forward sh-here-doc-re limit t))

(defun sh-font-lock-quoted-subshell (limit)
  "Search for a subshell embedded in a string.
Find all the unescaped \" characters within said subshell, remembering that
subshells can nest."
  ;; FIXME: This can (and often does) match multiple lines, yet it makes no
  ;; effort to handle multiline cases correctly, so it ends up being

          (?\` (case state
                 (backquote (setq state (pop states)))
                 (t (push state states) (setq state 'backquote))))
          (?\$ (if (not (eq (char-after (1+ (point))) ?\())
                   nil
                 (forward-char 1)
                 (case state
                   (t (push state states) (setq state 'code)))))
          (?\( (case state
                 (double-quote nil)
                 (t (push state states) (setq state 'code))))
          (?\) (case state
                 (double-quote nil)
                 (t (setq state (pop states)))))
          (t (error "Internal error in sh-font-lock-quoted-subshell")))
        (forward-char 1)))
    t))
            

(defun sh-is-quoted-p (pos)

      nil t))
    ;; Distinguish the special close-paren in `case'.
    (")" 0 (sh-font-lock-paren (match-beginning 0)))
    ;; highlight (possibly nested) subshells inside "" quoted regions correctly.
    ;; This should be at the very end because it uses syntax-ppss.
    (sh-font-lock-quoted-subshell)))

(defun sh-font-lock-syntactic-face-function (state)
  (let ((q (nth 3 state)))
    (if q
        (if (characterp q)