Lines Matching +defs:help +defs:map
30 ;; If you plan to use the interface to the TclX help files, you must
31 ;; set the variable tcl-help-directory-list to point to the topmost
32 ;; directories containing the TclX help files. Eg:
34 ;; (setq tcl-help-directory-list '("/usr/local/lib/tclx/help"))
97 ;; (this would help catch some potential bugs).
100 ;; * Consider writing code to find help files automatically (for
172 (defcustom tcl-help-directory-list nil
173 "*List of topmost directories containing TclX help files."
178 "*If not nil, use smart way to find current word, for Tcl help feature."
219 (defvar tcl-mode-map
220 (let ((map (make-sparse-keymap)))
221 (define-key map "{" 'tcl-electric-char)
222 (define-key map "}" 'tcl-electric-brace)
223 (define-key map "[" 'tcl-electric-char)
224 (define-key map "]" 'tcl-electric-char)
225 (define-key map ";" 'tcl-electric-char)
226 (define-key map "#" 'tcl-electric-hash) ;Remove? -stef
227 (define-key map "\e\C-q" 'tcl-indent-exp)
228 (define-key map "\177" 'backward-delete-char-untabify)
229 (define-key map "\t" 'tcl-indent-command)
230 (define-key map "\M-\C-x" 'tcl-eval-defun)
231 (define-key map "\C-c\C-i" 'tcl-help-on-word)
232 (define-key map "\C-c\C-v" 'tcl-eval-defun)
233 (define-key map "\C-c\C-f" 'tcl-load-file)
234 (define-key map "\C-c\C-t" 'inferior-tcl)
235 (define-key map "\C-c\C-x" 'tcl-eval-region)
236 (define-key map "\C-c\C-s" 'switch-to-tcl)
237 map)
267 (defvar inferior-tcl-mode-map
270 (let ((map (make-sparse-keymap)))
271 ;; Will inherit from `comint-mode-map' thanks to define-derived-mode.
272 (define-key map "\t" 'comint-dynamic-complete)
273 (define-key map "\M-?" 'comint-dynamic-list-filename-completions)
274 (define-key map "\177" 'backward-delete-char-untabify)
275 (define-key map "\M-\C-x" 'tcl-eval-defun)
276 (define-key map "\C-c\C-i" 'tcl-help-on-word)
277 (define-key map "\C-c\C-v" 'tcl-eval-defun)
278 (define-key map "\C-c\C-f" 'tcl-load-file)
279 (define-key map "\C-c\C-t" 'inferior-tcl)
280 (define-key map "\C-c\C-x" 'tcl-eval-region)
281 (define-key map "\C-c\C-s" 'switch-to-tcl)
282 map)
285 (easy-menu-define tcl-mode-menu tcl-mode-map "Menu used in `tcl-mode'."
303 ["Tcl help" tcl-help-on-word tcl-help-directory-list]))
574 word when looking up help on a Tcl command.
581 \\{tcl-mode-map}"
1143 \\{inferior-tcl-mode-map}"
1269 (defvar tcl-help-saved-dirs nil
1270 "Saved help directories.
1271 If `tcl-help-directory-list' changes, this allows `tcl-help-on-word'
1274 (defvar tcl-help-alist nil
1286 (defun tcl-help-snarf-commands (dirlist)
1293 (defun tcl-reread-help-files ()
1296 (message "Building Tcl help file index...")
1297 (setq tcl-help-saved-dirs tcl-help-directory-list)
1298 (setq tcl-help-alist (tcl-help-snarf-commands tcl-help-directory-list))
1299 (message "Building Tcl help file index...done"))
1321 (if (assoc (tcl-word-no-props) tcl-help-alist)
1327 (defun tcl-help-on-word (command &optional arg)
1328 "Get help on Tcl command. Default is word at point.
1333 (if (not (equal tcl-help-directory-list tcl-help-saved-dirs))
1334 (tcl-reread-help-files))
1343 tcl-help-alist nil t nil nil word)))
1345 (if (not (equal tcl-help-directory-list tcl-help-saved-dirs))
1346 (tcl-reread-help-files))
1352 (let* ((help (get-buffer-create "*Tcl help*"))
1353 (cell (assoc command tcl-help-alist))
1355 (set-buffer help)
1363 (insert "Tcl command " command " not in help\n")))
1366 (display-buffer help)))