Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 19744:b1774d359a3d | 19745:356bc22e88f6 |
|---|---|
| 35 (error "Invalid type: %s" type)) | 35 (error "Invalid type: %s" type)) |
| 36 (let* ((len (length string)) | 36 (let* ((len (length string)) |
| 37 (i 0) | 37 (i 0) |
| 38 l ch) | 38 l ch) |
| 39 (while (< i len) | 39 (while (< i len) |
| 40 (setq ch (sref string i)) | 40 (setq ch (if enable-multibyte-characters |
| 41 (sref string i) (aref string i))) | |
| 41 (setq l (cons ch l)) | 42 (setq l (cons ch l)) |
| 42 (setq i (+ i (char-bytes ch)))) | 43 (setq i (+ i (char-bytes ch)))) |
| 43 (setq l (nreverse l)) | 44 (setq l (nreverse l)) |
| 44 (if (eq type 'list) | 45 (if (eq type 'list) |
| 45 l | 46 l |