equal
deleted
inserted
replaced
77 (let ( (lvl1 (not (not mode))) (lvl2 (equal mode '(16))) ) |
77 (let ( (lvl1 (not (not mode))) (lvl2 (equal mode '(16))) ) |
78 (setq debug-on-error lvl1) |
78 (setq debug-on-error lvl1) |
79 ;; Get trace when press C-g. |
79 ;; Get trace when press C-g. |
80 (setq debug-on-quit lvl1) |
80 (setq debug-on-quit lvl1) |
81 (setq debug-on-event lvl2) |
81 (setq debug-on-event lvl2) |
82 (setq debug-on-signal lvl2))) |
82 (setq debug-on-signal lvl2) |
|
83 (cond |
|
84 (lvl2 (message "Debugging on quit/event/signal...")) |
|
85 (lvl1 (message "Debugging on quit...")) |
|
86 (t (message "Debugging disabled..."))))) |
83 |
87 |
84 (defun my/eval-buffer () |
88 (defun my/eval-buffer () |
85 "Evaluate entire buffer with re-assigning values to `defvar' / `defcustom'. |
89 "Evaluate entire buffer with re-assigning values to `defvar' / `defcustom'. |
86 Useful during package development." |
90 Useful during package development." |
87 (interactive) |
91 (interactive) |