mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit b550552b0de8844b23f1711d01b780a35528b765 Author: Matthew L. Fidler <[email protected]> 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)))
