在Emacs的kill ring中插入一些东西

Question

我想写一个函数，它将当前缓冲区的文件名插入到终止环中，这样我就可以将它拉到另一个窗口的终端中。我如何以编程方式将字符串插入杀戮环?

(<SOME FUNCTION> (buffer-file-name))

是否有一个(内置)函数，或者我需要插入我想要的字符串到一个缓冲区，然后杀死它?

我试过这样做:

(defun path ()
  (interactive)
  (save-excursion
    (let ((begin (mark)))
      (insert (buffer-file-name))
      (kill-region begin (mark)))))

Answer 1

这里有一个函数:

(defun copy-buffer-name ()
  (interactive)
  (kill-new (buffer-file-name)))