解决方法
没有一个.但这是Emacs!所以在这里:
(defun my-shell-command-on-current-file (command &optional output-buffer error-buffer) "Run a shell command on the current file (or marked dired files). In the shell command,the file(s) will be substituted wherever a '%' is." (interactive (list (read-from-minibuffer "Shell command: " nil nil nil 'shell-command-history) current-prefix-arg shell-command-default-error-buffer)) (cond ((buffer-file-name) (setq command (replace-regexp-in-string "%" (buffer-file-name) command nil t))) ((and (equal major-mode 'dired-mode) (save-excursion (dired-move-to-filename))) (setq command (replace-regexp-in-string "%" (mapconcat 'identity (dired-get-marked-files) " ") command nil t)))) (shell-command command output-buffer error-buffer)) (global-set-key (kbd "M-!") 'my-shell-command-on-current-file)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。