--- a/.emacs-my Sat Jan 30 20:27:52 2021 +0200
+++ b/.emacs-my Sat Jan 30 22:41:51 2021 +0200
@@ -139,22 +139,6 @@
;; Prevent Emacs from loading 'default.el', which is loaded after '.emacs'.
(setq inhibit-default-init nil) ; t/nil
-(defun my-debug (mode)
- "With prefix enable enter to debuger and show backtrace when
-problems occur, with double prefix enable debugging on event and
-signal, else disable breaking to debugger."
- (interactive "P")
- (let ( (lvl1 (not (not mode))) (lvl2 (equal mode '(16))) )
- (setq debug-on-error lvl1)
- ;; Get trace when press C-g.
- (setq debug-on-quit lvl1)
- (setq debug-on-event lvl2)
- (setq debug-on-signal lvl2)
- (cond
- (lvl2 (message "Debugging on quit/event/signal..."))
- (lvl1 (message "Debugging on quit..."))
- (t (message "Debugging disabled...")))))
-
(defun my-eval-buffer ()
"Evaluate entire buffer with re-assigning values to `defvar' / `defcustom'.
Useful during package development."
@@ -177,8 +161,6 @@
(insert-file-contents (locate-file library load-path '("" ".el")))
(my-eval-buffer)))
-(my-debug nil)
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "user info")