В Emacs, как вставить имя файла в команду оболочки?

(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, возможно, этот клудж работал бы (это работает на меня на Emacs 23.0.60):

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