Function: scheme-syntax-propertize-regexp

scheme-syntax-propertize-regexp is a byte-compiled function defined in scheme.el.gz.

Signature

(scheme-syntax-propertize-regexp END)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/scheme.el.gz
(defun scheme-syntax-propertize-regexp (end)
  (let* ((state (syntax-ppss))
         (within-str (nth 3 state))
         (start-delim-pos (nth 8 state)))
    (when (and within-str
               (char-equal ?# (char-after start-delim-pos)))
      (while (and (re-search-forward "/" end 'move)
                  (eq -1
                      (% (save-excursion
                           (backward-char)
                           (skip-chars-backward "\\\\"))
                         2))))
      (when (< (point) end)
       (put-text-property (match-beginning 0) (match-end 0)
                          'syntax-table (string-to-syntax "|"))))))