   "{jpw: 6/05}"
   (interactive "p")
   (let* ( (last-100-keys (recent-keys))
-          (i (- (length last-100-keys) 1))
+          (i (1- (length last-100-keys)))
           (last-key (aref last-100-keys i))
           next-to-last-key
          );; end bindings
-    (setq i (- i 1))
+    (setq i (1- i))
     (setq next-to-last-key (aref last-100-keys i))
     (if (and (equal (vector last-key) [tab])
              (equal last-key next-to-last-key))


(defun tcl-enhance-indentation () 
  ;; Fix the binding of TAB to the normal, std. value.
  (define-key tcl-mode-map "\t" 'indent-for-tab-command)
  (set (make-local-variable 'indent-line-function) 
       'tcl-indent-command-toggler)
  )
(add-hook 'tcl-mode-hook 'tcl-enhance-indentation)



They may be added at a later date.
{jpw: 6/05}")

(defconst tcl-builtins-re-1
  (eval-when-compile
    (regexp-opt (append tcl-core-builtins
                        tcl-file-builtins))
    )
  "Minimal fontification of builtins.  Only `tcl-core-builtins' and
`tcl-file-builtins' are included.
{jpw: 6/05}")

(defconst tcl-builtins-re-2
  (eval-when-compile
    (regexp-opt (append tcl-core-builtins
                        tcl-text-builtins
                        tcl-list-builtins
                        tcl-file-builtins))
    )
  "Medium fontification of builtins.  Adds `tcl-text-builtins' and
`tcl-list-builtins' to the set of builtins in `tcl-builtins-re-1'.
{jpw: 6/05}")

(defconst tcl-builtins-re-3
  (eval-when-compile
    (regexp-opt (append tcl-core-builtins
                        tcl-text-builtins
                        tcl-list-builtins
                        tcl-io-builtins
                        tclLib-text-builtins
                        tcl-file-builtins))
    )
  "Even more colorful fontification of builtins.  Adds `tcl-io-builtins' and
`tclLib-text-builtins' to the set of builtins in `tcl-builtins-re-2'.
{jpw: 6/05}")

(defconst tcl-builtins-re-4
  (eval-when-compile
    (regexp-opt (append tcl-core-builtins
                        tcl-text-builtins
                        tcl-list-builtins
                        tcl-io-builtins
                        tclLib-all-builtins
                        tcl-file-builtins))
    )
  "An alternative to `tcl-builtins-re-3' that uses `tclLib-all-builtins'
instead of just `tclLib-text-builtins'.
{jpw: 6/05}")

(defconst tcl-builtins-re-5
  (eval-when-compile
    (regexp-opt (append tcl-core-builtins
                        tcl-text-builtins
                        tcl-list-builtins
                        tcl-io-builtins
                        tclLib-all-builtins
                        tcl-misc-builtins
                        tcl-file-builtins))
    )
  "Fontifies all of the builtins (i.e. everything in `tcl-builtins-re-4'
plus `tcl-misc-builtins'.
{jpw: 6/05}")


;;------------------------------------------------------------
