Mercurial > emacs

changeset 42126:996e8ae50fc0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-input-string-to-events): Don't use string-to-list.
author Dave Love <fx@gnu.org>
date Tue, 18 Dec 2001 15:35:35 +0000
parents 8163dcb4653b
children 298738c23c3e
files lisp/international/quail.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Tue Dec 18 15:26:51 2001 +0000
+++ b/lisp/international/quail.el	Tue Dec 18 15:35:35 2001 +0000
@@ -635,7 +635,7 @@
 (defconst quail-keyboard-layout-len 180)
 
 ;; Here we provide several examples of famous keyboard layouts.
-
+;; This is a candidate for a language environment-dependent setting.
 (defvar quail-keyboard-layout-alist
   (list
    (cons "standard" quail-keyboard-layout-standard)
@@ -1270,14 +1270,14 @@
 Do so while interleaving with the following special events:
 \(compose-last-chars LEN COMPONENTS)
 \(quail-advice INPUT-STRING)"
-  (let* ((events
-	  (mapcar (lambda (c)
+  (let* ((events (mapcar
+		  (lambda (c)
 		    ;; This gives us the chance to unify on input
 		    ;; (e.g. using ucs-tables.el).
 		    (or (and translation-table-for-input
 			     (aref translation-table-for-input c))
 			c))
-		  (string-to-list str)))
+		  str))
 	 (len (length str))
 	 (idx len)
 	 composition from to)