Mercurial > emacs
comparison lisp/arc-mode.el @ 12437:c3597b66e4bf
(archive-mode): Add autoload cookie.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 29 Jun 1995 22:36:57 +0000 |
parents | 3cf4df625c3b |
children | 0a2d094db7d8 |
comparison
equal
deleted
inserted
replaced
12436:ffd777dc7d29 | 12437:c3597b66e4bf |
---|---|
85 ;; | 85 ;; |
86 ;; ZOO An archive header followed by a series of (header,file). | 86 ;; ZOO An archive header followed by a series of (header,file). |
87 ;; Each member header points to the next. The archive is | 87 ;; Each member header points to the next. The archive is |
88 ;; terminated by a bogus header with a zero next link. | 88 ;; terminated by a bogus header with a zero next link. |
89 ;; ------------------------------------- | 89 ;; ------------------------------------- |
90 ;; SETUP: .emacs fodder: | |
91 ;; | |
92 ;; (setq auto-mode-alist | |
93 ;; (cons '("\\.\\(arc\\|zip\\|lzh\\|zoo\\)\\'" . archive-mode) | |
94 ;; auto-mode-alist)) | |
95 ;; (autoload 'archive-mode "arc-mode" "Major mode for editing archives." t) | |
96 ;; | |
97 ;; Furthermore, for msdog, you need to make sure that the archives are loaded | |
98 ;; as binary files. For arc/zip/pak/lzh/zoo this is the default. | |
99 ;; ------------------------------------- | |
100 ;; HOOKS: `foo' means one the the supported archive types. | 90 ;; HOOKS: `foo' means one the the supported archive types. |
101 ;; | 91 ;; |
102 ;; archive-mode-hook | 92 ;; archive-mode-hook |
103 ;; archive-foo-mode-hook | 93 ;; archive-foo-mode-hook |
104 ;; archive-extract-hooks | 94 ;; archive-extract-hooks |
403 (if (not noerror) | 393 (if (not noerror) |
404 (error "Line does not describe a member of the archive"))))) | 394 (error "Line does not describe a member of the archive"))))) |
405 ;; ------------------------------------------------------------------------- | 395 ;; ------------------------------------------------------------------------- |
406 ;; Section: the mode definition | 396 ;; Section: the mode definition |
407 | 397 |
398 ;;;###autoload | |
408 (defun archive-mode (&optional force) | 399 (defun archive-mode (&optional force) |
409 "Major mode for viewing an archive file as a dired-like listing of its | 400 "Major mode for viewing an archive file as a dired-like listing of its |
410 contents. You can move around using the usual cursor motion commands. | 401 contents. You can move around using the usual cursor motion commands. |
411 Letters no longer insert themselves. | 402 Letters no longer insert themselves. |
412 Type `e' to pull a file out of the archive and into its own buffer; | 403 Type `e' to pull a file out of the archive and into its own buffer; |