The compressed tar files can be downloaded here:
To install the Info files of a particular release, say 8.0,
* UserCmd: (UserCmd.info). Tcl/Tk 8.0 Applications: tclsh, wish * TclCmd: (TclCmd.info). Tcl 8.0 Commands: commands built into `tclsh'. * TkCmd: (TkCmd.info). Tk 8.0 Commands: additional commands built into `wish' * TclLib: (TclLib.info). Tcl 8.0 Library: C functions which a Tcl extended C program may use. * TkLib: (TkLib.info). Tk 8.0 Library: additional C functions which a Tk extended C program may use. * Keywords: (Keywords.info). Tcl/Tk 8.0 KeywordsNote: If you are using the recent versions of XEmacs and you put the Info files in a directory which has no dir file, then XEmacs's Info will be able to automatically generate the info menu.
(require 'tcl) (defun tcl-info (cmd) "Find Info for Tcl/Tk command CMD, default to word at point." (interactive (let* ((def (tcl-word-no-props)) (s (read-string (format "Find info for Tcl/Tk cmd (default %s): " def)))) (list (if (equal s "") def s)))) (let ((buf (current-buffer)) (pool '("TclCmd" "TkCmd")) b2 f ) (if (or (null cmd) (equal cmd "")) (setq cmd "Top")) (while (setq f (pop pool)) (condition-case msg (progn (Info-find-node f cmd t) (pop-to-buffer (setq b2 (get-buffer "*info*")) t) (pop-to-buffer buf) (setq pool nil)) (error (if pool nil (kill-buffer b2) (beep) (message "%s for Tcl/Tk cmd" (car (cdr msg))) ))))) ) (defun tcl-info-at-point () "Find Info for Tcl/Tk command at point" (interactive) (tcl-info (tcl-word-no-props)) ) (define-key tcl-mode-map 'f1 'tcl-info-at-point)