mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

Change `keyboard-translate-table' to be terminal-local.

Browse source 
* lisp/subr.el (keyboard-translate): Use `terminal-local-value' to access `keyboard-translate-table'.
* lisp/obsolete/keyswap.el: Ditto.

* src/keyboard.c (Vkeyboard_translate_table): Moved to struct kboard.
* src/keyboard.h (Vkeyboard_translate_table): Moved to struct kboard.

* src/keyboard.c (read_char): Use current_kboard to access Vkeyboard_translate_table.
* src/keymap.c (Fdescribe_buffer_bindings): Ditto.

* src/keyboard.c (init_kboard): Initialize Vkeyboard_translate_table.

* src/keyboard.c (syms_of_keyboard): Use DEFVAR_KBOARD to define
  Vkeyboard_translate_table. Update doc strings.






git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-431
This commit is contained in:
Karoly Lorentey 2005-10-28 14:29:24 +00:00
parent 7a81ec10b3
commit 2e4782930a
7 changed files with 31 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/subr.el
View file

@ -495,10 +495,10 @@ saving keyboard macros (see `edmacro-mode')."
"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."
(or (char-table-p keyboard-translate-table)
(setq keyboard-translate-table
(make-char-table 'keyboard-translate-table nil)))
(aset keyboard-translate-table from to))
(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)))
;;;; The global keymap tree.