Function: parseclj-lex-string*

parseclj-lex-string* is a byte-compiled function defined in parseclj-lex.el.

Signature

(parseclj-lex-string*)

Documentation

Helper for string/regex lexing.

Returns either the string, or an error token

Source Code

;; Defined in ~/.emacs.d/elpa/parseclj-20261002.1230/parseclj-lex.el
(defun parseclj-lex-string* ()
  "Helper for string/regex lexing.
Returns either the string, or an error token"
  (let ((pos (point)))
    (forward-char)
    (while (not (or (equal (char-after (point)) ?\") (parseclj-lex-at-eof-p)))
      (if (equal (char-after (point)) ?\\)
          (forward-char 2)
        (forward-char)))
    (when (equal (char-after (point)) ?\")
      (forward-char)
      (buffer-substring-no-properties pos (point)))))