 keywords, such as 'namespace'.  Inherits from `tcl-builtin-arg1-face' by
 default, but is provided for finer-grained control.
 {jpw: 6/05}"
+  :group 'tcl)
+
+
+(defcustom jpw-tcl-allow-comment-unindent t
+  "When set to non-nil, allows the function `jpw-tcl-comment-indent-command'
+to \"indent backward\".  By default, `jpw-tcl-comment-indent-command' ignores
+comments with internal indentation deeper than the previous line.
+{jpw: 7/06}"
   :group 'tcl)
 
 

    (setq next-to-last-key (aref last-100-keys i))
    (if (and (equal (vector last-key) [tab])
             (equal last-key next-to-last-key))
        (if (> (current-column) (current-indentation))
            (save-excursion 
              (back-to-indentation)
              (indent-relative)
              )
          ;; else:  We're in the indentation region.
          ;; The excursion doesn't quite work, possibly due to the change in
          ;; the indentation.  So, we'll fake it and just move to the end of
          ;; the indentation.
          (back-to-indentation)
          (indent-relative)
          (back-to-indentation)
          )
      ;; else:  Not a back-to-back [tab] keypress.
      ;; Indent normally.
      (tcl-indent-command arg)
      );; end if
    );;end let
  )


(defun tcl-enhance-indentation () 
  ;; Fix the binding of TAB to the normal, std. value.
  (global-set-key [tab] 'indent-for-tab-command)
  (set (make-local-variable 'indent-line-function) 
       'tcl-indent-command-toggler)
  )

;;
;; Some enhancements for the default TCL-mode that comes with Emacs
;;
;;  Copyright  2005-2006 John P. Weiss
;;  
;;  This package is free software; you can redistribute it and/or modify
;;  it under the terms of the Artistic License, included as the file
