Question

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

我只有这个：

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

我该怎么办呢？

Answer 1

这对我有用：

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

Answer 2

这个具有使用“shell命令”迷你缓冲历史而不是一般迷你缓冲历史的优点。

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

Answer 3

对@killdash9 的回答的逐步改进，即：

确实替换了缓冲区内容（并且不会将输出附加到缓冲区的头部）
努力恢复光标位置。

使用 emacs 27.1 测试

(defun shell-command-on-buffer ()
  (interactive)
  (let ((line (line-number-at-pos)))
    ;; replace buffer with output of shell command
    (shell-command-on-region (point-min) (point-max) (read-shell-command "Shell command on buffer: ") nil t)
    ;; restore cursor position
    (goto-line line)
    (recenter-top-bottom)))

缓冲区上的Emacs shell命令

3 个答案: