From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Sep 1997 09:02:25 +0000 (+0000)
Subject: (quail-translation-keymap)
X-Git-Tag: emacs-20.1~104
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20848896e467fb5e69bf45fa0e9c12d9bd355c2e;p=emacs.git

(quail-translation-keymap)
(quail-simple-translation-keymap, quail-conversion-keymap):
Don't define escape.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index b7a5592d5ab..b6723bfbb0b 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -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)