Function: web-mode-block-foreach

web-mode-block-foreach is a natively compiled function defined in web-mode.el.

Signature

(web-mode-block-foreach REG-BEG REG-END FUNC)

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-block-foreach (reg-beg reg-end func)
  (let ((i 0) (continue t) (block-beg reg-beg) (block-end nil))
    (while continue
      (setq block-end nil)
      (unless (get-text-property block-beg 'block-beg)
        (setq block-beg (web-mode-block-next-position block-beg)))
      (when (and block-beg (< block-beg reg-end))
        (setq block-end (web-mode-block-end-position block-beg)))
      (cond
        ((> (setq i (1+ i)) 2000)
         (message "process-blocks ** warning (%S) **" (point))
         (setq continue nil))
        ((or (null block-end) (> block-end reg-end))
         (setq continue nil))
        (t
         (setq block-end (1+ block-end))
         (funcall func block-beg block-end)
         (setq block-beg block-end)
         ) ;t
        ) ;cond
      ) ;while
    ))