# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1119984810 0
# Node ID f4952f257c5509e5dea2447b04bb4e855b6f33e9
# Parent  83d11267d399105a54c1d0af957546d083b77096
(global-map): Bind insertchar and its variants.

diff -r 83d11267d399 -r f4952f257c55 lisp/bindings.el
--- a/lisp/bindings.el	Tue Jun 28 18:52:26 2005 +0000
+++ b/lisp/bindings.el	Tue Jun 28 18:53:30 2005 +0000
@@ -781,6 +781,11 @@
 (define-key global-map [insert]		'overwrite-mode)
 (define-key global-map [C-insert]	'kill-ring-save)
 (define-key global-map [S-insert]	'yank)
+;; `insertchar' is what term.c produces.  Should we change term.c
+;; to produce `insert' instead?
+(define-key global-map [insertchar]	'overwrite-mode)
+(define-key global-map [C-insertchar]	'kill-ring-save)
+(define-key global-map [S-insertchar]	'yank)
 (define-key global-map [undo]		'undo)
 (define-key global-map [redo]		'repeat-complex-command)
 (define-key global-map [again]		'repeat-complex-command) ; Sun keyboard
@@ -791,7 +796,6 @@
 ;; (define-key global-map [clearline]	'function-key-error)
 (define-key global-map [insertline]	'open-line)
 (define-key global-map [deleteline]	'kill-line)
-;; (define-key global-map [insertchar]	'function-key-error)
 (define-key global-map [deletechar]	'delete-char)
 ;; (define-key global-map [backtab]	'function-key-error)
 ;; (define-key global-map [f1]		'function-key-error)