From 2563919d135f98d7619e7ecc37eb5ae40d7f0eed Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Mon, 21 Mar 2016 18:04:34 +0100
Subject: [PATCH] bound bba-copy-buffer-name to C-c C-F

- copy current buffer name to clipboard with C-c C-S-f
---
 bba.org | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bba.org b/bba.org
index ebd3d493..90a862cf 100644
--- a/bba.org
+++ b/bba.org
@@ -2082,7 +2082,9 @@ line or somewhere else.
 #+BEGIN_SRC emacs-lisp
   (defun bba-copy-buffer-name ()
     (interactive)
-    (kill-new (buffer-file-name)))
+    (kill-new (buffer-file-name))
+    (message ( format "stored '%s' in kill-ring" buffer-file-name))
+    )
 #+END_SRC
 
 
@@ -2338,7 +2340,7 @@ function to convert groups of spaces to hard tabs.
   (define-key global-map "\C-c\S-f" (lambda()
                                    (interactive)
                                    (message (buffer-file-name))))
-
+  (define-key global-map (kbd "C-c C-S-f") 'bba-copy-buffer-name)
   (if (<= emacs-major-version 23)
       (progn
         (define-key global-map "\C-cw" (lambda ()
-- 
2.47.3