anchor.diff:          (cond ((syntax-escape-char-p c)
                  (incf i))
                 ((and (syntax-string-quote-char-p c)
  -                    (or (not block-comment-p)
  -                        (eql c (parallel-string-quote line))))
  +                    (eql c (if (not multiple-lines-p)
  +                               parallel-char
  +                               (parallel-string-quote line))))
                  (line-put-property line
                                     start-col
                                     (1+ i)
  
positive.code:                 ((syntax-string-quote-char-p c)
                   (line-put-property line i (1+ i) *string-color*)
                   (multiple-value-bind (j found-term-p)
                       (syntax-scan-string line (1+ i) nil)
                     (setq i j)
                     (unless found-term-p
                       (setf (line-start-string-p line) t)
  
negative.code:             (return-from parallel-string-quote
                (pdebug (schar str (1+ pos))))))))))
  
  (defun syntax-scan-string (line col multiple-lines-p parallel-char)
    (let ((str (line-str line))
          (start-col col))
      (do ((i col (1+ i)))
  