Mercurial > emacs
changeset 63812:f4952f257c55
(global-map): Bind insertchar and its variants.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 28 Jun 2005 18:53:30 +0000 |
| parents | 83d11267d399 |
| children | e907a265ffd8 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)