--- a/init.el	Sat Jan 30 20:27:52 2021 +0200
+++ b/init.el	Sat Jan 30 22:41:51 2021 +0200
@@ -7,6 +7,36 @@
 ;; For load order see README.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "turn on debugger during loading")
+
+(defun my-debug (mode)
+  "With any prefix enables entering into a debuger and shows the
+backtrace when problems occur. Also activates entering into
+debugger on C-g.
+
+With double prefix (or any number) additonally enable debugging
+on events and signals.
+
+Without prefix (or `nil' argument) disables entering into the
+debugger."
+  (interactive "P")
+  (let ( (lvl1 (not (not mode)))
+         (lvl2 (or (equal mode '(16)) (numberp mode))) )
+    (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...")))))
+
+;; Instead of launching Emacs with "--debug-init" I enable entering into
+;; debugger on error & on C-g.
+(my-debug t)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "load-path")
 
 (load "~/.emacs.d/.emacs-defs")
@@ -32,3 +62,8 @@
 (when my-profiler-enabled
   (profiler-report)
   (profiler-stop))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "turn off debugger after loading")
+
+(my-debug nil)