diff options
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)) |