bound bba-copy-buffer-name to C-c C-F

- copy current buffer name to clipboard with C-c C-S-f

diff --git a/bba.org b/bba.org
index ebd3d49331a1e22c78dd3387b42234239f5f0bbb..90a862cfcc7dbe2b1632e7b6f1b9f39fed002647 100644 (file)
--- 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 ()