在Emacs中,如何在shell命令中插入文件名?

我大量使用shell命令(默认绑定到M-!),但我经常对当前正在编辑的缓冲区进行操作。与其键入缓冲区名称(在shell命令中没有文件名完成,唉!),不如有一个快捷键,比如f3,在我每次按键时为我插入该名称。

或者,是否有任何lisp代码/包在shell命令中提供文件名补全,类似于bash的做法?我知道普通的M-x shell是可以完成的,但是在minibuffer中输入命令的便利性是很难放弃的;)

编辑:

这是我想要的,从 huaiyuan 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)))))