--- a/.emacs-my	Thu Apr 02 19:51:29 2015 +0300
+++ b/.emacs-my	Fri Apr 10 22:20:51 2015 +0300
@@ -65,16 +65,16 @@
 (setq inhibit-default-init nil)         ; t/nil
 
 (defun my-debug (mode)
-  "With prefix enable debug backtrace when problems occur else disable."
+  "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")
-  (when mode
-    ;; (setq debug-on-signal t)
-    (setq mode t))
-  (setq debug-on-error mode)
-  ;; Get trace when press C-g.
-  (setq debug-on-quit mode)
-  ;; (setq debug-on-signal mode)
-  )
+  (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)))
 
 (my-debug nil)