equal
deleted
inserted
replaced
31 (message "debugging") |
31 (message "debugging") |
32 |
32 |
33 ;; Shut off message buffer by setting nil. |
33 ;; Shut off message buffer by setting nil. |
34 (setq message-log-max 512) |
34 (setq message-log-max 512) |
35 |
35 |
36 ;; Set the debug option to enable a backtrace when a problem occurs. |
|
37 (setq debug-on-error nil) ; t/nil |
|
38 (setq debug-on-signal nil) |
|
39 |
|
40 ;; Get trace when press C-g. |
|
41 (setq debug-on-quit nil) ; t/nil |
|
42 |
|
43 ;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'. |
36 ;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'. |
44 ;; Also '-q' prevent loading your init file. |
37 ;; Also '-q' prevent loading your init file. |
45 (setq inhibit-default-init nil) ; t/nil |
38 (setq inhibit-default-init nil) ; t/nil |
|
39 |
|
40 (defun my-debug (mode) |
|
41 "With prefix enable debug backtrace when problems occur else disable." |
|
42 (interactive "P") |
|
43 (when mode |
|
44 (setq mode t)) |
|
45 (setq debug-on-error mode) |
|
46 (setq debug-on-signal mode) |
|
47 ;; Get trace when press C-g. |
|
48 (setq debug-on-quit mode) |
|
49 ) |
|
50 |
|
51 (my-debug nil) |
46 |
52 |
47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
48 (message "user info") |
54 (message "user info") |
49 |
55 |
50 (setq user-full-name "Oleksandr Gavenko") |
56 (setq user-full-name "Oleksandr Gavenko") |