在Emacs中,如何在shell-command中插入文件名？

我使用shell-command一个批次(默认绑定到M-!),但我经常对我正在编辑的缓冲区做一些事情.而不是键入缓冲区名称(并且shell命令中没有文件名完成功能,唉!),每当我按下键时,有一个快捷键(比如f3)为我插入该名称是很好的.

问题是我不想全局绑定密钥(我在其他上下文中使用f3进行其他操作),只有在shell-command提示时才在迷你缓冲区中使用.编写一个lisp函数来插入当前缓冲区名称很容易,但是我应该修改哪个模式的键映射来将键绑定到该函数？

或者,是否有任何lisp代码/包在shell-command中提供文件名完成,类似于bash的做法？我知道正常的Mx shell完成了,但是在迷你缓冲区中输入命令的便利性很难放弃;)

编辑:

这就是我想要的,取自怀远的回答,其中一些修正来自http://osdir.com/ml/emacs.sources/2002-04/msg00022.html

(define-key minibuffer-local-map
  [f3] (lambda () (interactive) 
       (insert (buffer-name (current-buffer-not-mini)))))

(defun current-buffer-not-mini ()
  "Return current-buffer if current buffer is not the *mini-buffer*
  else return buffer before minibuf is activated."
  (if (not (window-minibuffer-p)) (current-buffer)
      (if (eq (get-lru-window) (next-window))
          (window-buffer (previous-window)) (window-buffer (next-window)))))

huaiyuan.. 10

(define-key minibuffer-local-map
  [f3] (lambda () (interactive) (insert (buffer-name))))

编辑:

正如评论部分和其他地方所指出的,上面的代码片段不起作用.(对不起,我应该在发布之前对其进行测试.:)已经发布了一些修复程序; 这是另一个:

(define-key minibuffer-local-map [f3]
  (lambda () (interactive) 
     (insert (buffer-name (window-buffer (minibuffer-selected-window))))))

关于发布时的文件名完成shell-command,也许这个kludge会起作用(它适用于我在Emacs 23.0.60上):

(require 'shell)
(define-key minibuffer-local-map (kbd "C-i") 'comint-dynamic-complete)

David Hanak.. 7

以下是如何解决怀远的解决方案:

(define-key minibuffer-local-map [f3]
  (lambda() (interactive) (insert (buffer-file-name (nth 1 (buffer-list))))))

如果"其他"缓冲区没有设置文件名并且(buffer-file-name)返回nil,您可能应该添加某种错误检查.

(define-key minibuffer-local-map
  [f3] (lambda () (interactive) (insert (buffer-name))))

编辑:

正如评论部分和其他地方所指出的,上面的代码片段不起作用.(对不起,我应该在发布之前对其进行测试.:)已经发布了一些修复程序; 这是另一个:

(define-key minibuffer-local-map [f3]
  (lambda () (interactive) 
     (insert (buffer-name (window-buffer (minibuffer-selected-window))))))

关于发布时的文件名完成shell-command,也许这个kludge会起作用(它适用于我在Emacs 23.0.60上):

(require 'shell)
(define-key minibuffer-local-map (kbd "C-i") 'comint-dynamic-complete)

以下是如何解决怀远的解决方案:

(define-key minibuffer-local-map [f3]
  (lambda() (interactive) (insert (buffer-file-name (nth 1 (buffer-list))))))

如果"其他"缓冲区没有设置文件名并且(buffer-file-name)返回nil,您可能应该添加某种错误检查.