63 ;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'. |
63 ;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'. |
64 ;; Also '-q' prevent loading your init file. |
64 ;; Also '-q' prevent loading your init file. |
65 (setq inhibit-default-init nil) ; t/nil |
65 (setq inhibit-default-init nil) ; t/nil |
66 |
66 |
67 (defun my-debug (mode) |
67 (defun my-debug (mode) |
68 "With prefix enable debug backtrace when problems occur else disable." |
68 "With prefix enable enter to debuger and show backtrace when |
|
69 problems occur, with double prefix enable debugging on event and |
|
70 signal, else disable breaking to debugger." |
69 (interactive "P") |
71 (interactive "P") |
70 (when mode |
72 (let ( (lvl1 (not (not mode))) (lvl2 (equal mode '(16))) ) |
71 ;; (setq debug-on-signal t) |
73 (setq debug-on-error lvl1) |
72 (setq mode t)) |
74 ;; Get trace when press C-g. |
73 (setq debug-on-error mode) |
75 (setq debug-on-quit lvl1) |
74 ;; Get trace when press C-g. |
76 (setq debug-on-event lvl2) |
75 (setq debug-on-quit mode) |
77 (setq debug-on-signal lvl2))) |
76 ;; (setq debug-on-signal mode) |
|
77 ) |
|
78 |
78 |
79 (my-debug nil) |
79 (my-debug nil) |
80 |
80 |
81 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
81 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
82 (message "user info") |
82 (message "user info") |