(defun my-copy-file-path ()
"show the full path file name in the minibuffer and copy to kill ring."
  (interactive)
	(when buffer-file-name
	(kill-new (file-truename buffer-file-name))
	(message (buffer-file-name))))

参考

20130802 Emacs で開いているファイルのフルパスをミニバッファに表示とコピーするための emacs lisp の関数のメモ