 (defvar log4cl-package-regexp)
 (defvar log4cl-file-regexp)
 (defvar log4cl-rest-regexp)
+
+(defvar log4cl-mode-map (make-sparse-keymap))
+
+(define-key log4cl-mode-map "\C-c\C-g" 'log4cl-fast-level-selection)
 
 (setq log4cl-log-level-regexp
       (concat "[[(< ]?"

                         `(["--single-line" nil :visible (and (plusp (log4cl-children-level-count ,info-symbol)))] 
                           ["--space" nil :visible (plusp (log4cl-children-level-count ,info-symbol))] 
                           [:reset
                            ,(if (eq info-symbol 'log4cl-popup-logger)
                                 `(log4cl-set-level ',info-symbol :reset) 
                               (intern (format "log4cl-%s-reset" 
                                               (log4cl-info-symbol-to-string info-symbol))))
                            ;; (log4cl-set-level ,info-symbol :reset)
                            :label "Reset children"
                            :suffix (format "(%d)  " (log4cl-children-level-count ,info-symbol))

  "\\<log4cl-mode-map>\
Support mode integrating Log4CL logging system with SLIME

\\[log4cl-fast-level-selection]		- Set log level fast via keyboard

Only \"standard\" log levels show up in the menu and keyboard bindings.

There are also 8 extra debug levels, DEBU1..DEBU4 are more specific then DEBUG
but less specific then TRACE, and DEBU5..DEBU9 come after TRACE.

To make them show up in the menu, but you can customize the
variable `log4cl-menu-levels'.
"
  nil
  nil
