diff options
| author | Richard M. Stallman | 1997-09-19 04:24:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-19 04:24:02 +0000 |
| commit | 959096f8ec4374f0fb1f6524df2b50fe6b571288 (patch) | |
| tree | 980f80cc5f04e915b8aede1ecd581a3cf7a5e8f0 | |
| parent | dce5c9160a7e6d135fe42306f6dbb9c9f28f7409 (diff) | |
| download | emacs-959096f8ec4374f0fb1f6524df2b50fe6b571288.tar.gz emacs-959096f8ec4374f0fb1f6524df2b50fe6b571288.zip | |
(quail-simple-translation-keymap):
Bind delete and backspace explicitly, like DEL.
| -rw-r--r-- | lisp/international/quail.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 02dda28476d..97ec7ba4d27 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -319,6 +319,8 @@ This map is activated while translation region is active.") | |||
| 319 | (define-key map (char-to-string i) 'quail-self-insert-command) | 319 | (define-key map (char-to-string i) 'quail-self-insert-command) |
| 320 | (setq i (1+ i))) | 320 | (setq i (1+ i))) |
| 321 | (define-key map "\177" 'quail-delete-last-char) | 321 | (define-key map "\177" 'quail-delete-last-char) |
| 322 | (define-key map [delete] 'quail-delete-last-char) | ||
| 323 | (define-key map [backspace] 'quail-delete-last-char) | ||
| 322 | ;;; This interferes with handling of escape sequences on non-X terminals. | 324 | ;;; This interferes with handling of escape sequences on non-X terminals. |
| 323 | ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) | 325 | ;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command))) |
| 324 | (let ((meta-map (make-sparse-keymap))) | 326 | (let ((meta-map (make-sparse-keymap))) |