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