Keybinding emacs debug function

[steve-humphreys]

Have written an emacs debug function with emacs complaining when I try
to set "H-g".

Regards


(defun cycle-debug (n)
  "Enables the Emacs Debugger."

  (pcase n
    (1 (setq debug-on-error t) ) ; calls debugger on signalled errors
    (2 (setq debug-on-error t)
       (setq debug-ignored-errors t) )
    (3 (setq debug-on-error t)   ; case that debugs all errors
       (setq debug-ignored-errors t)
       (setq debug-on-message "unescaped character literals") )
    (_ (setq debug-on-error nil) )))

(defun emacs-debug ()
  "Debugging gungadin"
  (cycle-debug)
  (global-set-key (kbd "H-g") #'cycle-debug) )