Mercurial > emacs
comparison lisp/tar-mode.el @ 53854:252f42ef56fc
(tar-parse-octal-integer-safe): Add missing format
string argument.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Feb 2004 22:30:54 +0000 |
| parents | 695cf19ef79e |
| children | 349fc0d0c8e8 |
comparison
equal
deleted
inserted
replaced
| 53853:9f8bd1b673a8 | 53854:252f42ef56fc |
|---|---|
| 1 ;;; tar-mode.el --- simple editing of tar files from GNU emacs | 1 ;;; tar-mode.el --- simple editing of tar files from GNU emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1990,91,93,94,95,96,97,98,99,2000,2001 | 3 ;; Copyright (C) 1990,91,93,94,95,96,97,98,99,2000,01,2004 |
| 4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Jamie Zawinski <jwz@lucid.com> | 6 ;; Author: Jamie Zawinski <jwz@lucid.com> |
| 7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 8 ;; Created: 04 Apr 1990 | 8 ;; Created: 04 Apr 1990 |
| 287 (let ((L (length string))) | 287 (let ((L (length string))) |
| 288 (if (= L 0) (error "empty string")) | 288 (if (= L 0) (error "empty string")) |
| 289 (dotimes (i L) | 289 (dotimes (i L) |
| 290 (if (or (< (aref string i) ?0) | 290 (if (or (< (aref string i) ?0) |
| 291 (> (aref string i) ?7)) | 291 (> (aref string i) ?7)) |
| 292 (error "`%c' is not an octal digit")))) | 292 (error "`%c' is not an octal digit" (aref string i))))) |
| 293 (tar-parse-octal-integer string)) | 293 (tar-parse-octal-integer string)) |
| 294 | 294 |
| 295 | 295 |
| 296 (defun tar-header-block-checksum (string) | 296 (defun tar-header-block-checksum (string) |
| 297 "Compute and return a tar-acceptable checksum for this block." | 297 "Compute and return a tar-acceptable checksum for this block." |