Change maintainer to FSF and remove loads of compatibility cruft. (tcl-using-emacs-19, tcl-using-emacs-19-23, tcl-using-xemacs-19) (tcl-version, tcl-maintainer, tcl-use-hairy-comment-detector): Remove. (tcl-mode-map): Remove bindings for tcl-beginning-of-defun, tcl-end-of-defun, tcl-mark-defun, tcl-indent-for-comment, tcl-submit-bug-report. (tcl-mode-syntax-table): Leave \f alone. (inferior-tcl-mode-map): Remove bindings for tcl-beginning-of-defun, tcl-end-of-defun, tcl-submit-bug-report. (tcl-xemacs-menu): Fix up and pass it directly to easymenu. (tcl-add-emacs-menu): Remove. (tcl-fill-mode-map, tcl-fill-inferior-map): Moved into the defvar. (tcl-keyword-list): Add `chain'. (tcl-font-lock-syntactic-keywords): New variable. (tcl-pps-has-arg-6): Remove. (tcl-internal-beginning-of-defun, tcl-internal-end-of-defun) (tcl-internal-mark-defun): Remove. (tcl-set-proc-regexp, tcl-set-font-lock-keywords): Use regexp-opt. (tcl-mode): Use define-derived-mode. Simplify. Set comment-indent-function. (tcl-indent-command): Use line-beginning-position and comment-indent. (tcl-calculate-indent): Renamed from calculate-tcl-indent. (tcl-indent-line): Use tcl-calculate-indent. (tcl-indent-exp): Renamed from indent-tcl-exp. Use new names. (tcl-add-log-defun): Renamed from add-log-tcl-defun. Use match-string. (tcl-filter): Use with-current-buffer, simplify. (inferior-tcl-mode): Use define-derived-mode. (tcl-hairy-in-comment): Renamed tcl-in-comment. (tcl-simple-in-comment, tcl-in-comment): Removed. (tcl-files-alist): New function. (tcl-help-snarf-commands): Use it and return the result directly rather than through a global variable. (tcl-reread-help-files): Fix up the call to tcl-help-snarf-commands. (tcl-help-on-word): Provide the default value to completing-read. (tcl-hilit): Remove. (tcl-hashify-buffer, tcl-popup-menu): Simplify. (tcl-comment-indent): New function. (tcl-submit-bug-report): Remove. (tcl-uncomment-region, tcl-indent-for-comment, add-log-tcl-defun) (indent-tcl-exp, calculate-tcl-indent, tcl-beginning-of-defun) (tcl-end-of-defun, tcl-mark-defun, tcl-mark): Redefine as aliases.