Mercurial > emacs
comparison lisp/tar-mode.el @ 11071:d629a0af50ca
(tar-parse-octal-long-integer): Return list, not vector.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 21 Mar 1995 02:19:38 +0000 |
| parents | 0c3d44805949 |
| children | 48cbab79b9e7 |
comparison
equal
deleted
inserted
replaced
| 11070:ebee80744a06 | 11071:d629a0af50ca |
|---|---|
| 275 | 275 |
| 276 (defun tar-parse-octal-long-integer (string &optional start end) | 276 (defun tar-parse-octal-long-integer (string &optional start end) |
| 277 (if (null start) (setq start 0)) | 277 (if (null start) (setq start 0)) |
| 278 (if (null end) (setq end (length string))) | 278 (if (null end) (setq end (length string))) |
| 279 (if (= (aref string start) 0) | 279 (if (= (aref string start) 0) |
| 280 [0 0] | 280 (list 0 0) |
| 281 (let ((lo 0) | 281 (let ((lo 0) |
| 282 (hi 0)) | 282 (hi 0)) |
| 283 (while (< start end) | 283 (while (< start end) |
| 284 (if (>= (aref string start) ?0) | 284 (if (>= (aref string start) ?0) |
| 285 (setq lo (+ (* lo 8) (- (aref string start) ?0)) | 285 (setq lo (+ (* lo 8) (- (aref string start) ?0)) |