mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(quail-translation-keymap)

Browse Source 
(quail-simple-translation-keymap, quail-conversion-keymap):
Don't define escape.
This commit is contained in:
Richard M. Stallman 1997-09-09 09:02:25 +00:00
parent 7f72c06f7f
commit 20848896e4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/international/quail.el
View File

@ -287,7 +287,8 @@ LEIM is available from the same ftp directory as Emacs."))
(define-key map "\C-i" 'quail-completion)
(define-key map "\C-@" 'quail-select-current)
(define-key map "\C-h" 'quail-translation-help)
(define-key map "\e" '(keymap (t . quail-execute-non-quail-command)))
;;; This interferes with handling of escape sequences on non-X terminals.
;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command)))
(define-key map [?\C-\ ] 'quail-select-current)
(define-key map [tab] 'quail-completion)
(define-key map [delete] 'quail-delete-last-char)
@ -309,7 +310,8 @@ This map is activated while translation region is active.")
(define-key map (char-to-string i) 'quail-self-insert-command)
(setq i (1+ i)))
(define-key map "\177" 'quail-delete-last-char)
(define-key map "\e" '(keymap (t . quail-execute-non-quail-command)))
;;; This interferes with handling of escape sequences on non-X terminals.
;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command)))
;; At last, define default key binding.
(append map '((t . quail-execute-non-quail-command))))
"Keymap used while processing translation in simple Quail modes.
@ -336,7 +338,8 @@ This map is activated while translation region is active.")
(define-key map "\C-e" 'quail-conversion-end-of-region)
(define-key map "\C-d" 'quail-conversion-delete-char)
(define-key map "\C-h" 'quail-conversion-help)
(define-key map "\e" '(keymap (t . quail-execute-non-quail-command)))
;;; This interferes with handling of escape sequences on non-X terminals.
;;; (define-key map "\e" '(keymap (t . quail-execute-non-quail-command)))
(define-key map "\177" 'quail-conversion-backward-delete-char)
(define-key map [delete] 'quail-conversion-backward-delete-char)
(define-key map [backspace] 'quail-conversion-backward-delete-char)