 (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 "[[(< ]?"

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

Commands to configure the Root Logger
\\[log4cl-root-off]		- Set log level to OFF 
\\[log4cl-root-fatal]		- Set log level to FATAL 
\\[log4cl-root-error]		- Set log level to ERROR
\\[log4cl-root-warn]		- Set log level to WARN
\\[log4cl-root-info]		- Set log level to INFO
\\[log4cl-root-debug]		- Set log level to DEBUG
\\[log4cl-root-trace]		- Set log level to TRACE
\\[log4cl-root-reset]		- Clear log level on any child loggers

\\[log4cl-root-debu1]		- Set log level to DEBU1

Commands to configure the current package logger
\\[log4cl-package-off]		- Set log level to OFF 
\\[log4cl-package-fatal]	- Set log level to FATAL 
\\[log4cl-package-error]	- Set log level to ERROR
\\[log4cl-package-warn]		- Set log level to WARN
\\[log4cl-package-info]		- Set log level to INFO
\\[log4cl-package-debug]	- Set log level to DEBUG
\\[log4cl-package-trace]	- Set log level to TRACE
\\[log4cl-package-reset]	- Clear log level on any child loggers

Commands to configure the file Logger
\\[log4cl-file-off]		- Set log level to OFF 
\\[log4cl-file-fatal]		- Set log level to FATAL 
\\[log4cl-file-error]		- Set log level to ERROR
\\[log4cl-file-warn]		- Set log level to WARN
\\[log4cl-file-info]		- Set log level to INFO
\\[log4cl-file-debug]		- Set log level to DEBUG
\\[log4cl-file-trace]		- Set log level to TRACE
\\[log4cl-file-reset]		- Clear log level on any child loggers

Commands to configure the current form Logger
\\[log4cl-defun-off]		- Set log level to OFF 
\\[log4cl-defun-fatal]		- Set log level to FATAL 
\\[log4cl-defun-error]		- Set log level to ERROR
\\[log4cl-defun-warn]		- Set log level to WARN
\\[log4cl-defun-info]		- Set log level to INFO
\\[log4cl-defun-debug]		- Set log level to DEBUG
\\[log4cl-defun-trace]		- Set log level to TRACE
\\[log4cl-defun-reset]		- Clear log level on any child loggers

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.

By default they do not show up in the menus, but you can customize the variable
`log4cl-menu-levels' to show them.
"
  nil
  nil

(defun log4cl-make-levels-menu (info-symbol &optional nodisplay noinherit)
  "Create a levels menu for logger specified in the value of the INFO-SYMBOL"
  (let* ((C
          ;; For menubar loggers `log4cl-check-connection' is done in parent menu
          (if (eq info-symbol 'log4cl-popup-logger)
              `(and ,info-symbol)
            `(and (log4cl-check-connection) ,info-symbol)))
         (menu `(nil :active ,C
                     ,@(unless nodisplay
                         `( 
                           [nil nil :label (log4cl-logger-display-name ,info-symbol)]
                           "--single-line"))
                     ;; inherit
                     ,@(unless noinherit 
