[elpa] 66/287: Make ergoemacs-clean toggle debug on error

[Matthew Fidler]

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

commit 7ecfd1b8f41f2c5443391ea3539634b9c673db8c
Author: Matthew L. Fidler <address@hidden>
Date:   Tue Jun 10 17:48:06 2014 +0800

    Make ergoemacs-clean toggle debug on error
---
 ergoemacs-functions.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index a4d5df7..4f7c7d1 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -188,11 +188,11 @@
      ((save-excursion
         (set-buffer (get-buffer-create "*ergoemacs-clean*"))
         (and (boundp 'ergoemacs-terminal) (not ergoemacs-terminal)))
-      (setq cmd (format "%s --debug-init -Q -L \"%s\" 
--load=\"ergoemacs-mode\" --load=\"ergoemacs-test\"  --eval \"(ergoemacs-mode 
1)\"" emacs-exe
+      (setq cmd (format "%s --debug-init -Q -L \"%s\" 
--load=\"ergoemacs-mode\" --load=\"ergoemacs-test\"  --eval \"(progn (setq 
debug-on-error t) (ergoemacs-mode 1))\"" emacs-exe
                         (expand-file-name (file-name-directory (locate-library 
"ergoemacs-mode"))))))
      ((and (eq system-type 'windows-nt) (executable-find "cmd"))
       ; Needs some work....
-      (setq cmd (format "%s -nw --debug-init -Q -L \"%s\" 
--load=\"ergoemacs-mode\" --load=\"ergoemacs-test\" --eval \"(ergoemacs-mode 
1)\""
+      (setq cmd (format "%s -nw --debug-init -Q -L \"%s\" 
--load=\"ergoemacs-mode\" --load=\"ergoemacs-test\" --eval \"(progn (setq 
debug-on-error t) (ergoemacs-mode 1))\""
                         emacs-exe
                         (expand-file-name (file-name-directory (locate-library 
"ergoemacs-mode")))))
       (set (make-local-variable 'ergoemacs-batch-file)
@@ -201,7 +201,7 @@
         (insert cmd))
       (setq default-directory (file-name-directory ergoemacs-batch-file)))
      ((executable-find "xterm")
-      (setq cmd (format "%s -e %s -nw --debug-init -Q -L \"%s\" 
--load=\"ergoemacs-mode\" --load=\"ergoemacs-test\" --eval \"(ergoemacs-mode 
1)\""
+      (setq cmd (format "%s -e %s -nw --debug-init -Q -L \"%s\" 
--load=\"ergoemacs-mode\" --load=\"ergoemacs-test\" --eval \"(progn (setq 
debug-on-error t) (ergoemacs-mode 1))\""
                         (executable-find "xterm") emacs-exe
                         (expand-file-name (file-name-directory (locate-library 
"ergoemacs-mode")))))))
     (insert "Command\n" cmd "\n\n")