Mercurial > hg > xemacs-beta

comparison lisp/modes/tcl.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents cca96a509cfe
children 28f395d8dc7a
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
563 ;; FIXME. 563 ;; FIXME.
564 (define-key tcl-mode-map "\e\C-e" 'tcl-end-of-defun) 564 (define-key tcl-mode-map "\e\C-e" 'tcl-end-of-defun)
565 ;; FIXME. 565 ;; FIXME.
566 (define-key tcl-mode-map "\e\C-h" 'tcl-mark-defun) 566 (define-key tcl-mode-map "\e\C-h" 'tcl-mark-defun)
567 (define-key tcl-mode-map "\e\C-q" 'indent-tcl-exp) 567 (define-key tcl-mode-map "\e\C-q" 'indent-tcl-exp)
568 (define-key tcl-mode-map "\177" 'backward-delete-char-untabify) 568 ;; GDF - Don't mess with the DEL key
569 ;; (define-key tcl-mode-map "\177" 'backward-delete-char-untabify)
569 (define-key tcl-mode-map "\t" 'tcl-indent-command) 570 (define-key tcl-mode-map "\t" 'tcl-indent-command)
570 (define-key tcl-mode-map "\M-;" 'tcl-indent-for-comment) 571 (define-key tcl-mode-map "\M-;" 'tcl-indent-for-comment)
571 (define-key tcl-mode-map "\M-\C-x" 'tcl-eval-defun) 572 (define-key tcl-mode-map "\M-\C-x" 'tcl-eval-defun)
572 (define-key tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report) 573 (define-key tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report)
573 (and (fboundp 'comment-region) 574 (and (fboundp 'comment-region)
588 (define-key inferior-tcl-mode-map "\t" 'comint-dynamic-complete) 589 (define-key inferior-tcl-mode-map "\t" 'comint-dynamic-complete)
589 (define-key inferior-tcl-mode-map "\M-?" 590 (define-key inferior-tcl-mode-map "\M-?"
590 'comint-dynamic-list-filename-completions) 591 'comint-dynamic-list-filename-completions)
591 (define-key inferior-tcl-mode-map "\e\C-a" 'tcl-beginning-of-defun) 592 (define-key inferior-tcl-mode-map "\e\C-a" 'tcl-beginning-of-defun)
592 (define-key inferior-tcl-mode-map "\e\C-e" 'tcl-end-of-defun) 593 (define-key inferior-tcl-mode-map "\e\C-e" 'tcl-end-of-defun)
593 (define-key inferior-tcl-mode-map "\177" 'backward-delete-char-untabify) 594 ;; GDF - Don't mess with the DEL key
595 ;; (define-key inferior-tcl-mode-map "\177" 'backward-delete-char-untabify)
594 (define-key inferior-tcl-mode-map "\M-\C-x" 'tcl-eval-defun) 596 (define-key inferior-tcl-mode-map "\M-\C-x" 'tcl-eval-defun)
595 (define-key inferior-tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report) 597 (define-key inferior-tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report)
596 (define-key inferior-tcl-mode-map "\C-c\C-i" 'tcl-help-on-word) 598 (define-key inferior-tcl-mode-map "\C-c\C-i" 'tcl-help-on-word)
597 (define-key inferior-tcl-mode-map "\C-c\C-v" 'tcl-eval-defun) 599 (define-key inferior-tcl-mode-map "\C-c\C-v" 'tcl-eval-defun)
598 (define-key inferior-tcl-mode-map "\C-c\C-f" 'tcl-load-file) 600 (define-key inferior-tcl-mode-map "\C-c\C-f" 'tcl-load-file)