Commit 7cdf2321 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent e41b4517
...@@ -37,7 +37,8 @@ TYPE should be `list' or `vector'." ...@@ -37,7 +37,8 @@ TYPE should be `list' or `vector'."
(i 0) (i 0)
l ch) l ch)
(while (< i len) (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 l (cons ch l))
(setq i (+ i (char-bytes ch)))) (setq i (+ i (char-bytes ch))))
(setq l (nreverse l)) (setq l (nreverse l))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment