(defun re-search-forward-lb-la (lb-regexp regexp la-regexp
&optional bound noerror count)
(when (and (save-excursion
(re-search-backward lb-regexp nil t))
(= (match-end 0) (point)))
(goto-char (match-beginning 0)))
(let ((lb-depth (regexp-opt-depth (concat "\\(" lb-regexp "\\)"))))
(when (re-search-forward (concat "\\(" lb-regexp "\\)"
"\\(" regexp "\\)"
"\\(" la-regexp "\\)")
bound noerror count)
(goto-char (match-beginning (1+ lb-depth)))
(re-search-forward regexp bound noerror count))))