diff options
| author | Karl Heuer | 1996-01-04 23:27:25 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-04 23:27:25 +0000 |
| commit | e946e18cffae8c9ef1aa00bd5525f1977e911af6 (patch) | |
| tree | 7193405cc005504f0b006c98fd8ab6002bc9ee54 | |
| parent | 1259a0808966d07c391febd60ac94ef46475cab4 (diff) | |
| download | emacs-e946e18cffae8c9ef1aa00bd5525f1977e911af6.tar.gz emacs-e946e18cffae8c9ef1aa00bd5525f1977e911af6.zip | |
(archive-summarize-files): Doc fix.
| -rw-r--r-- | lisp/arc-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 323205f2575..c5e7ea09bc7 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -166,7 +166,7 @@ Extraction should happen to standard output. Archive and member name will | |||
| 166 | be added. If `archive-zip-use-pkzip' is non-nil then this program is | 166 | be added. If `archive-zip-use-pkzip' is non-nil then this program is |
| 167 | expected to extract to a file junking the directory part of the name.") | 167 | expected to extract to a file junking the directory part of the name.") |
| 168 | 168 | ||
| 169 | ;; For several reasons the latter behaviour is not desireable in general. | 169 | ;; For several reasons the latter behaviour is not desirable in general. |
| 170 | ;; (1) It uses more disk space. (2) Error checking is worse or non- | 170 | ;; (1) It uses more disk space. (2) Error checking is worse or non- |
| 171 | ;; existent. (3) It tends to do funny things with other systems' file | 171 | ;; existent. (3) It tends to do funny things with other systems' file |
| 172 | ;; names. | 172 | ;; names. |
| @@ -616,7 +616,7 @@ is visible (and the real data of the buffer is hidden)." | |||
| 616 | (archive-next-line no))) | 616 | (archive-next-line no))) |
| 617 | 617 | ||
| 618 | (defun archive-summarize-files (files) | 618 | (defun archive-summarize-files (files) |
| 619 | "Insert a desciption of a list of files annotated with proper mouse face" | 619 | "Insert a description of a list of files annotated with proper mouse face" |
| 620 | (setq archive-file-list-start (point-marker)) | 620 | (setq archive-file-list-start (point-marker)) |
| 621 | (setq archive-file-name-indent (if files (aref (car files) 1) 0)) | 621 | (setq archive-file-name-indent (if files (aref (car files) 1) 0)) |
| 622 | ;; We don't want to do an insert for each element since that takes too | 622 | ;; We don't want to do an insert for each element since that takes too |