[elpa] 163/287: Removed more mark-whole-buffer

[Matthew Fidler]

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

commit b550552b0de8844b23f1711d01b780a35528b765
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jun 19 07:17:50 2014 -0500

    Removed more mark-whole-buffer
---
 ergoemacs-test.el |   20 +++++++++++++++-----
 1 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 37b0701..c9f809a 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -491,7 +491,9 @@ Test next and prior translation."
             (ergoemacs-handle-ctl-c-or-ctl-x 'both))
         (with-temp-buffer
           (insert ergoemacs-test-lorem-ipsum)
-          (mark-whole-buffer)
+          (push-mark (point))
+          (push-mark (point-max) nil t)
+          (goto-char (point-min))
           (with-timeout (0.15 nil)
             (call-interactively 'ergoemacs-ctl-c))
           (goto-char (point-max))
@@ -516,7 +518,9 @@ Test next and prior translation."
       (setq ergoemacs-keyboard-layout "us")
       (ergoemacs-mode 1)
       (insert ergoemacs-test-lorem-ipsum)
-      (mark-whole-buffer)
+      (push-mark (point))
+      (push-mark (point-max) nil t)
+      (goto-char (point-min))
       (execute-kbd-macro macro)
       (setq ret (string= "" (buffer-string)))
       (ergoemacs-mode -1)
@@ -541,7 +545,9 @@ Test next and prior translation."
       (setq ergoemacs-keyboard-layout "us")
       (ergoemacs-mode 1)
       (insert ergoemacs-test-lorem-ipsum)
-      (mark-whole-buffer)
+      (push-mark (point))
+      (push-mark (point-max) nil t)
+      (goto-char (point-min))
       (execute-kbd-macro macro)
       (goto-char (point-max))
       (ergoemacs-paste)
@@ -872,7 +878,9 @@ Issue #186."
       (push-mark)
       (end-of-line)
       (ergoemacs-copy-line-or-region)
-      (mark-whole-buffer)
+      (push-mark (point))
+      (push-mark (point-max) nil t)
+      (goto-char (point-min))
       (ergoemacs-paste)
       (message "`%s`" (buffer-string))
       (setq ret (string= "Lorem ipsum dolor sit amet, consectetur adipisicing 
elit, sed\n"
@@ -890,7 +898,9 @@ Selected mark would not be cleared after paste."
       (push-mark)
       (end-of-line)
       (ergoemacs-copy-line-or-region)
-      (mark-whole-buffer)
+      (push-mark (point))
+      (push-mark (point-max) nil t)
+      (goto-char (point-min))
       (ergoemacs-paste)
       (setq ret (or deactivate-mark (not mark-active))))
     (should ret)))