Function: scheme-syntax-propertize-sexp-comment

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

Signature

(scheme-syntax-propertize-sexp-comment _ END)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/scheme.el.gz
(defun scheme-syntax-propertize-sexp-comment (_ end)
  (let ((state (syntax-ppss)))
    (when (eq 2 (nth 7 state))
      ;; It's a sexp-comment.  Tell parse-partial-sexp where it ends.
      (condition-case nil
          (progn
            (goto-char (+ 2 (nth 8 state)))
            ;; FIXME: this doesn't handle the case where the sexp
            ;; itself contains a #; comment.
            (forward-sexp 1)
            (put-text-property (1- (point)) (point)
                               'syntax-table (string-to-syntax "> cn")))
        (scan-error (goto-char end))))))