[elpa] 212/287: modified ergoemacs-cut-all so it doesn't join previous cut.

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 84197bb784fd23c8d4b4a9e4a98552e6cc738b6c
Author: Xah Lee <address@hidden>
Date:   Tue Jun 24 21:00:44 2014 -0700

    modified ergoemacs-cut-all so it doesn't join previous cut.
---
 ergoemacs-functions.el |   16 +++++++---------
 1 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 4b3278b..e21432e 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -285,21 +285,19 @@ C-u C=u deletes old byte compilde `ergoemacs-mode' files."
    (ergoemacs-with-global
     (ergoemacs-real-key-binding (kbd "M-TAB")))))
 
-
-
 (defun ergoemacs-copy-all ()
-  "Put the whole buffer content into the kill-ring.
-If narrow-to-region is in effect, then copy that region only."
+  "Put the whole buffer content into the `kill-ring'.
+If `narrow-to-region' is in effect, then copy that region only."
   (interactive)
   (kill-new (buffer-string))
-  (message "Buffer content copied copy-region-as-kill"))
+  (message "Buffer content copied."))
 
 (defun ergoemacs-cut-all ()
-  "Cut the whole buffer content into the kill-ring.
-If narrow-to-region is in effect, then cut that region only."
+  "Cut the whole buffer content into the `kill-ring'.
+If `narrow-to-region' is in effect, then cut that region only."
   (interactive)
-  (kill-region (point-min) (point-max))
-  (message "Buffer content cut"))
+  (kill-new (buffer-string))
+  (delete-region (point-min) (point-max)))
 
 (defvar cua-mode)
 (declare-function cua-copy-rectangle "cua-rect.el")