    for section-char = (aref section 0)
    for section-map = (make-sparse-keymap)
    do (progn
-        (dolist (level '("parent" "off" "fatal" "error" "warn" "info" "debug"
+        (dolist (level '("unset" "off" "fatal" "error" "warn" "info" "debug"
                          "debu1" "debu2" "debu3" "debu4" "trace"
                          "debu5" "debu6" "debu7" "debu8" "debu9"
                          "reset"))
           (let ((level-char (aref level (if (string-match "debu[0-9]" level)
                                             4 0)))
                 (cmd (unless (and (equal section "root")
-                                  (equal level "parent")) 
+                                  (equal level "unset")) 
                        (intern (format "log4cl-%s-%s" section level)))))
             (when cmd 
               (define-key section-map (read-kbd-macro (format "C-%c" level-char)) cmd)

(define-globalized-minor-mode global-log4cl-mode log4cl-mode turn-on-log4cl-mode)

(provide 'log4cl)

  "Create the easy-menu menu item that toggles the log level"
  (let* ((S `(eql ,level (log4cl-logger-level ,info-symbol)))
         (T (if level (log4cl-level-name level)
              `(format "Inherit - %s"
                       (log4cl-level-name
                        (log4cl-logger-inherited-level ,info-symbol)))))
         (cmd 
