[elpa] 285/287: Change to M-o

[Matthew Fidler]

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

commit 1650d262c395cd325599276efb89aeace2d44820
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 2 07:55:10 2014 -0500

    Change to M-o
---
 ergoemacs-test.el |   14 +++++++++++---
 1 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 6eb8f95..e39136f 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -751,13 +751,13 @@ Issue #186."
        (kill-buffer (current-buffer))))
     (should (equal ret t))))
 
-(ert-deftest ergoemacs-test-reduction-M-g-works ()
-  "Test Ergoemacs M-g works correctly (Issue #171)."
+(ert-deftest ergoemacs-test-reduction-M-o-works ()
+  "Test Ergoemacs M-o works correctly (Issue #171)."
   (let ((ergoemacs-test-fn t))
     (ergoemacs-test-layout
      :theme "reduction"
      :layout "colemak"
-     (with-timeout (0.2 nil) (ergoemacs-read-key "M-g"))
+     (with-timeout (0.2 nil) (ergoemacs-read-key "M-o"))
      (message "Test FN: %s" ergoemacs-test-fn)
      (should (eq ergoemacs-test-fn (or (command-remapping 
'execute-extended-command (point)) 'execute-extended-command))))))
 
@@ -1007,6 +1007,14 @@ Selected mark would not be cleared after paste."
       (call-interactively 'ergoemacs-end-of-line-or-what)
       (should (= (point) (point-at-eol))))))
 
+;; (ert-deftest ergoemacs-test-5.3.7 ()
+;;   "Test Ergoemacs 5.3.7 keys"
+;;   (let ((ergoemacs-test-fn t))
+;;     (ergoemacs-test-layout
+;;      :version "5.3.7"
+;;      (with-timeout (0.2 nil) (ergoemacs-read-key "M-n"))
+;;      (should (eq ergoemacs-test-fn (or (command-remapping 'keyboard-quit 
(point)) 'keyboard-quit))))))
+
 (provide 'ergoemacs-test)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ergoemacs-test.el ends here