   "Perform \"normal\" indenting on the first stroke of the TAB key.
 Back-to-back TAB keystrokes, however, indent relative to the current
 position.
-{jpw: 6/05}"
+{jpw: 7/06}"
   (interactive "p")
   (let* ( (last-100-keys (recent-keys))
           (i (1- (length last-100-keys)))


The latter is skipped if the previous line isn't a comment or is a comment
containing only whitespace.
{jpw: 6/05}"
  (interactive "p")
  (tcl-indent-command arg)
  (back-to-indentation)

  (local-set-key [tab] 'indent-for-tab-command)
  (set (make-local-variable 'indent-line-function) 
       'tcl-indent-command-toggler)
  (unless comment-end-skip
    (set (make-local-variable 'comment-end-skip) 
         "[ 	]*\\(\\s>\\|\n\\)"))
  )
(remove-hook 'tcl-mode-hook 'tcl-enhance-indentation)
(add-hook 'tcl-mode-hook 'tcl-enhance-indentation)
