Function: web-mode-blade-skip

web-mode-blade-skip is a natively compiled function defined in web-mode.el.

Signature

(web-mode-blade-skip POS)

Source Code

;; Defined in /nix/store/2qgnz1rp30nzfz6w0apx4kdm14if1bbs-emacs-packages-deps/share/emacs/site-lisp/elpa/web-mode-20260831.219/web-mode.el
(defun web-mode-blade-skip (pos)
  (let (regexp char inc continue found (reg-beg pos) (reg-end (point-max)))
    ;;(message "pos=%S" pos)
    (goto-char pos)
    (forward-char)
    (skip-chars-forward "a-zA-Z0-9_-")
    (skip-chars-forward " ")
    (when (eq (char-after) ?\()
      (setq regexp "[\"'()]"
            inc 0)
      (while (and (not found) (re-search-forward regexp reg-end t))
        (setq char (char-before))
        ;;(message "point=%S char=%c inc=%S" (point) char inc)
        (cond
         ((eq char ?\()
          (setq inc (1+ inc)))
         ((eq char ?\))
          (cond
           ((and (not (eobp))
                 (< inc 2))
            (forward-char)
            (setq inc (1- inc))
            (setq found t)
            )
           ((> inc 0)
            (setq inc (1- inc)))
           )
          )
         ((eq char ?\')
          (setq continue t)
          (while (and continue (search-forward "'" reg-end t))
            (setq continue (web-mode-string-continue-p reg-beg))
            )
          )
         ((eq char ?\")
          (setq continue t)
          (while (and continue (search-forward "\"" reg-end t))
            (setq continue (web-mode-string-continue-p reg-beg))
            )
          )
         ) ;cond
        ;;(message "inc=%S found=%S" inc found)
        ) ;while
      ) ; when
    ;;(message "point=%S inc=%S" (point) inc)
    (when found (backward-char))
  ))