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