缓冲区上的Emacs shell命令

我想设置一个功能,它相当于标记整个缓冲区,并运行C-u M- |提示输入命令,将缓冲区传递给命令并用输出替换缓冲区.然后可能将它设置为shift-f5或其他东西.

我只有这个：

(defun shell-command-on-buffer ()
  (interactive)
  (mark-whole-buffer))

我该怎么办呢？

这对我有用：

(defun shell-command-on-buffer (command)
  (interactive "sShell command on buffer: ")
  (shell-command-on-region (point-min) (point-max) command t))