diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-04 04:48:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-04 04:48:23 +0000 |
| commit | 7cdf2321b08230e891cb484cfdb5b2b1dfb16106 (patch) | |
| tree | e38b3aeaf5debb9620744848a24279fbacb5a49d /lisp/international/mule-util.el | |
| parent | e41b451795bca8164ddcaae19d915f798e118590 (diff) | |
| download | emacs-7cdf2321b08230e891cb484cfdb5b2b1dfb16106.tar.gz | |
(string-to-sequence): Work usefully when enable-multibyte-characters is nil.
Diffstat (limited to 'lisp/international/mule-util.el')
| -rw-r--r-- | lisp/international/mule-util.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |