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

7cdf2321 · Richard M. Stallman · e41b4517 · 7cdf2321
Commit 7cdf2321 authored Sep 04, 1997 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/international/mule-util.el lisp/international/mule-util.el +2 -1

No files found.
--- 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))