diff options
| author | Karoly Lorentey | 2005-10-28 14:41:54 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-10-28 14:41:54 +0000 |
| commit | 181c980649bea8fb0e94b5772cd6429fb41332e2 (patch) | |
| tree | c0768470be13b46c2ed9a902bdaf7f7f82251579 | |
| parent | 2e4782930af512802ac0ee1067d22b5136524dfc (diff) | |
| download | emacs-181c980649bea8fb0e94b5772cd6429fb41332e2.tar.gz emacs-181c980649bea8fb0e94b5772cd6429fb41332e2.zip | |
Don't try to rebind the `t' symbol.
* lisp/subr.el (keyboard-translate): Fix stupid thinko.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-432
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 01288b44132..a1417945ee7 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -495,10 +495,10 @@ saving keyboard macros (see `edmacro-mode')." | |||
| 495 | "Translate character FROM to TO at a low level. | 495 | "Translate character FROM to TO at a low level. |
| 496 | This function creates a `keyboard-translate-table' if necessary | 496 | This function creates a `keyboard-translate-table' if necessary |
| 497 | and then modifies one entry in it." | 497 | and then modifies one entry in it." |
| 498 | (let (t (terminal-local-value 'keyboard-translate-table)) | 498 | (let (tbl (terminal-local-value 'keyboard-translate-table)) |
| 499 | (or (char-table-p t) | 499 | (or (char-table-p tbl) |
| 500 | (setq t (make-char-table 'keyboard-translate-table nil))) | 500 | (setq tbl (make-char-table 'keyboard-translate-table nil))) |
| 501 | (aset t from to))) | 501 | (aset tbl from to))) |
| 502 | 502 | ||
| 503 | 503 | ||
| 504 | ;;;; The global keymap tree. | 504 | ;;;; The global keymap tree. |