aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-04 23:27:25 +0000
committerKarl Heuer1996-01-04 23:27:25 +0000
commite946e18cffae8c9ef1aa00bd5525f1977e911af6 (patch)
tree7193405cc005504f0b006c98fd8ab6002bc9ee54
parent1259a0808966d07c391febd60ac94ef46475cab4 (diff)
downloademacs-e946e18cffae8c9ef1aa00bd5525f1977e911af6.tar.gz
emacs-e946e18cffae8c9ef1aa00bd5525f1977e911af6.zip
(archive-summarize-files): Doc fix.
-rw-r--r--lisp/arc-mode.el4
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
166be added. If `archive-zip-use-pkzip' is non-nil then this program is 166be added. If `archive-zip-use-pkzip' is non-nil then this program is
167expected to extract to a file junking the directory part of the name.") 167expected 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