Mercurial > emacs

changeset 48233:1f9dc6bd11d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-input-string-to-events): Revert last change.
author Dave Love <fx@gnu.org>
date Sat, 09 Nov 2002 12:55:37 +0000
parents 6775017d289a
children 1ae575cd625c
files lisp/international/quail.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Sat Nov 09 12:53:43 2002 +0000
+++ b/lisp/international/quail.el	Sat Nov 09 12:55:37 2002 +0000
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: Kenichi HANDA <handa@etl.go.jp>
 ;;	   Naoto TAKAHASHI <ntakahas@etl.go.jp>
@@ -1279,11 +1279,9 @@
   (let* ((events (mapcar
 		  (lambda (c)
 		    ;; This gives us the chance to unify on input
-		    ;; (e.g. using ucs-tables.el).  Fixme: The result
-		    ;; of Quail input doesn't currently go through
-		    ;; `keyboard-translate-table'.
-		    (or (and (char-table-p keyboard-translate-table)
-			     (aref keyboard-translate-table c))
+		    ;; (e.g. using ucs-tables.el).
+		    (or (and translation-table-for-input
+			     (aref translation-table-for-input c))
 			c))
 		  str))
 	 (len (length str))