mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 84197bb784fd23c8d4b4a9e4a98552e6cc738b6c Author: Xah Lee <[email protected]> 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")
