# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873348503 0
# Node ID 356bc22e88f6534b56f827439648a35f6de4fdcd
# Parent  b1774d359a3db067b824461d34923c55f1db1cae
(string-to-sequence): Work usefully when enable-multibyte-characters is nil.

diff -r b1774d359a3d -r 356bc22e88f6 lisp/international/mule-util.el
--- a/lisp/international/mule-util.el	Thu Sep 04 04:47:34 1997 +0000
+++ b/lisp/international/mule-util.el	Thu Sep 04 04:48:23 1997 +0000
@@ -37,7 +37,8 @@
 	 (i 0)
 	 l ch)
     (while (< i len)
-      (setq ch (sref string i))
+      (setq ch (if enable-multibyte-characters
+		   (sref string i) (aref string i)))
       (setq l (cons ch l))
       (setq i (+ i (char-bytes ch))))
     (setq l (nreverse l))