emacs中是否存在apply-function-to-region-lines？

(defun apply-function-to-region-lines (start end function)
  "Apply FUNCTION to each line in the region from START to END."
  (interactive "r\naFunction to apply: ")
  (save-excursion
    (goto-char start)
    (while (< (point) end)
      (beginning-of-line)
      (let ((line-start (point)))
        (end-of-line)
        (let ((line-end (point)))
          (funcall function line-start line-end)))
      (forward-line))))

;; 使用示例：将每一行转换为大写
(defun uppercase-region-lines (start end)
  "Convert each line in the region from START to END to uppercase."
  (interactive "r")
  (apply-function-to-region-lines start end #'upcase-region))

;; 使用示例：将每一行添加前缀
(defun add-prefix-to-region-lines (start end prefix)
  "Add PREFIX to the beginning of each line in the region from START to END."
  (interactive "r\nsPrefix to add: ")
  (apply-function-to-region-lines start end
                                  (lambda (line-start line-end)
                                    (save-excursion
                                      (goto-char line-start)
                                      (insert prefix)))))