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