Function: parseclj--find-opening-token

parseclj--find-opening-token is a byte-compiled function defined in parseclj-parser.el.

Signature

(parseclj--find-opening-token STACK CLOSING-TOKEN)

Documentation

Scan STACK for an opening-token matching CLOSING-TOKEN.

Source Code

;; Defined in ~/.emacs.d/elpa/parseclj-20261002.1230/parseclj-parser.el
(defun parseclj--find-opening-token (stack closing-token)
  "Scan STACK for an opening-token matching CLOSING-TOKEN."
  (let ((token-type (parseclj-lex-token-type closing-token)))
    (cond
     ((eq :rparen token-type) (parseclj-lex-token-type
                               (seq-find (lambda (token)
                                           (member (parseclj-lex-token-type token)
                                                   '(:lparen :lambda)))
                                         stack)))
     ((eq :rbracket token-type) :lbracket)
     ((eq :rbrace token-type) (parseclj-lex-token-type
                               (seq-find (lambda (token)
                                           (member (parseclj-lex-token-type token)
                                                   '(:lbrace :set)))
                                         stack))))))