Mercurial > hg > xemacs-beta
diff lisp/modes/tcl.el @ 161:28f395d8dc7a r20-3b7
Import from CVS: tag r20-3b7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:42:26 +0200 |
| parents | 25f70ba0133c |
| children | 489f57a838ef |
line wrap: on
line diff
--- a/lisp/modes/tcl.el Mon Aug 13 09:41:47 2007 +0200 +++ b/lisp/modes/tcl.el Mon Aug 13 09:42:26 2007 +0200 @@ -565,8 +565,6 @@ ;; FIXME. (define-key tcl-mode-map "\e\C-h" 'tcl-mark-defun) (define-key tcl-mode-map "\e\C-q" 'indent-tcl-exp) -;; GDF - Don't mess with the DEL key -;; (define-key tcl-mode-map "\177" 'backward-delete-char-untabify) (define-key tcl-mode-map "\t" 'tcl-indent-command) (define-key tcl-mode-map "\M-;" 'tcl-indent-for-comment) (define-key tcl-mode-map "\M-\C-x" 'tcl-eval-defun) @@ -591,8 +589,6 @@ 'comint-dynamic-list-filename-completions) (define-key inferior-tcl-mode-map "\e\C-a" 'tcl-beginning-of-defun) (define-key inferior-tcl-mode-map "\e\C-e" 'tcl-end-of-defun) -;; GDF - Don't mess with the DEL key -;; (define-key inferior-tcl-mode-map "\177" 'backward-delete-char-untabify) (define-key inferior-tcl-mode-map "\M-\C-x" 'tcl-eval-defun) (define-key inferior-tcl-mode-map "\C-c\C-b" 'tcl-submit-bug-report) (define-key inferior-tcl-mode-map "\C-c\C-i" 'tcl-help-on-word)