From 54a3d3687be95275eca32473ee3c6f2cd8f65e4a Mon Sep 17 00:00:00 2001
From: Takafumi Arakaki <aka.tkf@gmail.com>
Date: Sun, 17 Jun 2012 12:52:09 +0200
Subject: [PATCH] Add messaging in ein:notebook-copy-cell-command

---
 ein-notebook.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ein-notebook.el b/ein-notebook.el
index e73a2d8..c74d6ef 100644
--- a/ein-notebook.el
+++ b/ein-notebook.el
@@ -461,8 +461,11 @@ kill-ring of Emacs (kill-ring for texts)."
   (interactive)
   (ein:notebook-with-cells-in-region
     (deactivate-mark)
-    (ein:kill-new
-     (mapcar (lambda (c) (ein:cell-deactivate (ein:cell-copy c))) cells))))
+    (let ((cells (mapcar
+                  (lambda (c)
+                    (ein:cell-deactivate (ein:cell-copy c))) cells)))
+      (ein:log 'info "%s cells are copied." (length  cells))
+      (ein:kill-new cells))))
 
 (defun ein:notebook-insert-clone-below (notebook cell pivot)
   (let ((clone (ein:cell-copy cell)))