Mercurial > emacs
changeset 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 | b1774d359a3d |
| children | 2ee3950b5a35 |
| files | lisp/international/mule-util.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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))