的Emacs複製當前緩衝區的PWD到剪貼板

Question

我在.emacs文件來獲得當前緩衝區的小緩衝區的路徑如下功能：

(defun show-file-name() 
    "Show the full path file name in the minibuffer." 
    (interactive) 
    (message (buffer-file-name))) 
(defalias 'pwd 'show-file-name) 

我的問題是，我該怎麼修改這個功能到也複製到剪貼板的路徑？

Answer 1

(defun show-file-name() 
    "Show the full path file name in the minibuffer." 
    (interactive) 
    (kill-new (buffer-file-name)) 
    (message (buffer-file-name)))