From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Sep 1997 04:48:23 +0000 (+0000)
Subject: (string-to-sequence): Work usefully when enable-multibyte-characters is nil.
X-Git-Tag: emacs-20.1~203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7cdf2321b08230e891cb484cfdb5b2b1dfb16106;p=emacs.git

(string-to-sequence): Work usefully when enable-multibyte-characters is nil.
---

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index be55a22bf71..7a5bbe03775 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -37,7 +37,8 @@ TYPE should be `list' or `vector'."
 	 (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))