Mercurial > emacs
changeset 83392:2fdf37d06e0c
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Fri, 28 Oct 2005 14:41:54 +0000 |
| parents | e99392472e41 |
| children | 38af4e693f4e |
| files | lisp/subr.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Fri Oct 28 14:29:24 2005 +0000 +++ b/lisp/subr.el Fri Oct 28 14:41:54 2005 +0000 @@ -495,10 +495,10 @@ "Translate character FROM to TO at a low level. This function creates a `keyboard-translate-table' if necessary and then modifies one entry in it." - (let (t (terminal-local-value 'keyboard-translate-table)) - (or (char-table-p t) - (setq t (make-char-table 'keyboard-translate-table nil))) - (aset t from to))) + (let (tbl (terminal-local-value 'keyboard-translate-table)) + (or (char-table-p tbl) + (setq tbl (make-char-table 'keyboard-translate-table nil))) + (aset tbl from to))) ;;;; The global keymap tree.