From 4a61097cc203a3042c16fe489aaf053b1ab29ede Mon Sep 17 00:00:00 2001 From: 10sr <8.slashes@gmail.com> Date: Tue, 9 Apr 2024 15:31:15 +0900 Subject: [PATCH] Add --- emacs.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/emacs.el b/emacs.el index 3e14aa6..046e4ce 100644 --- a/emacs.el +++ b/emacs.el @@ -630,6 +630,16 @@ THEM are function and its args." (setq-default fill-column 80) ;; (add-hook 'text-mode-hook 'turn-on-auto-fill) + +;; kill ring +(defun my-kill-ring-save-buffer-file-name () + "Save current buffer file name to kill ring." + (interactive) + (let* ((str (or buffer-file-name + default-directory)) + (str (expand-file-name str))) + (kill-new str))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; title and mode-line