.emacs-my
changeset 1711 621215ccccf9
parent 1710 03f26aaabbfa
child 1717 3c60aeba5004
--- 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")