Mercurial > emacs
diff lisp/international/mule-util.el @ 19745:356bc22e88f6
(string-to-sequence): Work usefully when enable-multibyte-characters is nil.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 04 Sep 1997 04:48:23 +0000 |
parents | 7cf3d42a6fd7 |
children | f43513081277 |
line wrap: on
line diff
--- 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))