mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit eb4af2ab5b380677581c57892c0e5419f87e6e79 Author: Matthew L. Fidler <[email protected]> Date: Thu Jun 26 10:25:47 2014 -0500 Fix order of operations --- ergoemacs-test.el | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ergoemacs-test.el b/ergoemacs-test.el index 19322c9..ea88647 100644 --- a/ergoemacs-test.el +++ b/ergoemacs-test.el @@ -953,7 +953,7 @@ Selected mark would not be cleared after paste." (insert (format "(define-key ergoemacs-test-major-mode-map (kbd \"C-c C-c\") #'(lambda() (interactive (with-temp-file \"%s\" (insert \"Ok\")))))" w-file)) (insert "(setq ergoemacs-test-macro (edmacro-parse-keys \"C-c C-c\" t))(ergoemacs-test-major-mode)") - (insert "(with-timeout (1.5 nil) (execute-kbd-macro ergoemacs-test-macro))") + (insert "(with-timeout (0.5 nil) (execute-kbd-macro ergoemacs-test-macro))") (insert (format "(if (file-exists-p \"%s\") (message \"Passed\") (message \"Failed\"))" w-file)) (insert ") (error (message \"Error %s\" err)))") (unless (boundp 'wait-for-me) @@ -961,8 +961,8 @@ Selected mark would not be cleared after paste." (message "%s" (shell-command-to-string (format "%s %s -Q -l %s" - (if (boundp 'wait-for-me) "" "--batch") - emacs-exe temp-file))) + emacs-exe (if (boundp 'wait-for-me) "" "--batch") + temp-file))) (delete-file temp-file) (should (file-exists-p w-file)) (when (file-exists-p w-file)
