在dired中调用相同shell命令的函数

在dired中调用相同shell命令的函数可以使用Emacs的lisp编程语言来实现。下面是一个示例代码，可以在dired模式下使用M-x dired-call-shell-command-on-files来调用相同的shell命令：

(defun dired-call-shell-command-on-files (command)
  "Call a shell command on the marked files in dired."
  (interactive "MCommand: ")
  (let ((files (dired-get-marked-files)))
    (with-temp-buffer
      (insert (mapconcat 'identity files " "))
      (shell-command-on-region (point-min) (point-max) command nil t))
    (message "Shell command `%s' called on %d files." command (length files))))

这个函数会读取dired模式下标记的文件，并将它们作为参数传递给一个shell命令。在函数中，我们使用dired-get-marked-files函数来获取标记的文件列表，并使用with-temp-buffer来创建一个临时缓冲区，将文件名插入到缓冲区中。然后，我们使用shell-command-on-region函数来调用shell命令，并将缓冲区中的文件名作为参数传递给命令。最后，我们使用message函数来显示一个消息，告诉用户命令已经成功执行。

这个函数可以用于任何需要在多个文件上执行相同shell命令的情况，例如，在多个文件上执行压缩或解压缩操作，或者在多个文件上执行格式转换操作等等。