diff options
author | Martin Polden <martin.polden@gmail.com> | 2017-05-25 23:09:42 +0200 |
---|---|---|
committer | Martin Polden <martin.polden@gmail.com> | 2017-05-25 23:09:42 +0200 |
commit | 4887297e7e0276c4694108fedc6e0f8c90013216 (patch) | |
tree | 2d398deb5b3ca627beb193c96c13c439ab23839b /lisp/init-editing.el | |
parent | dd7a6dd7815899bb20fababffde0f04b7c6a2551 (diff) |
Make C-c f add filename to kill ring
Diffstat (limited to 'lisp/init-editing.el')
-rw-r--r-- | lisp/init-editing.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/init-editing.el b/lisp/init-editing.el index 29e52db..7670885 100644 --- a/lisp/init-editing.el +++ b/lisp/init-editing.el @@ -35,9 +35,11 @@ ("C-h C-k" . find-function-on-key))) (defun show-file-name () - "Show the full path file name in the minibuffer." + "Show the full path file name in the minibuffer and add it to the kill ring." (interactive) - (message buffer-file-name)) + (when buffer-file-name + (message buffer-file-name) + (kill-new (file-truename buffer-file-name)))) ;; source: ;; http://emacsredux.com/blog/2013/05/04/rename-file-and-buffer/ |