的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)))