Mercurial > emacs

comparison lisp/simple.el @ 83391:e99392472e41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change `keyboard-translate-table' to be terminal-local. * 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
author Karoly Lorentey <lorentey@elte.hu>
date Fri, 28 Oct 2005 14:29:24 +0000
parents 732c5740ca8f
children 7d093d9d4479
comparison
equal deleted inserted replaced
83390:513453e09ec7 83391:e99392472e41
5368 (define-key map key1 binding2) 5368 (define-key map key1 binding2)
5369 (define-key map key2 binding1))))))) 5369 (define-key map key2 binding1)))))))
5370 (t 5370 (t
5371 (if (terminal-parameter nil 'normal-erase-is-backspace) 5371 (if (terminal-parameter nil 'normal-erase-is-backspace)
5372 (progn 5372 (progn
5373 ;; XXX This should be terminal-local -- lorentey
5374 (keyboard-translate ?\C-h ?\C-?) 5373 (keyboard-translate ?\C-h ?\C-?)
5375 (keyboard-translate ?\C-? ?\C-d)) 5374 (keyboard-translate ?\C-? ?\C-d))
5376 (keyboard-translate ?\C-h ?\C-h) 5375 (keyboard-translate ?\C-h ?\C-h)
5377 (keyboard-translate ?\C-? ?\C-?)))) 5376 (keyboard-translate ?\C-? ?\C-?))))
5378 5377