equal
deleted
inserted
replaced
39 |
39 |
40 (defun my-debug (mode) |
40 (defun my-debug (mode) |
41 "With prefix enable debug backtrace when problems occur else disable." |
41 "With prefix enable debug backtrace when problems occur else disable." |
42 (interactive "P") |
42 (interactive "P") |
43 (when mode |
43 (when mode |
|
44 ;; (setq debug-on-signal t) |
44 (setq mode t)) |
45 (setq mode t)) |
45 (setq debug-on-error mode) |
46 (setq debug-on-error mode) |
46 (setq debug-on-signal mode) |
|
47 ;; Get trace when press C-g. |
47 ;; Get trace when press C-g. |
48 (setq debug-on-quit mode) |
48 (setq debug-on-quit mode) |
49 ) |
49 ) |
50 |
50 |
51 (my-debug nil) |
51 (my-debug nil) |