Mercurial > emacs
comparison lisp/arc-mode.el @ 38409:153f1b1f2efd
Emacs lisp coding convention fixes.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 14 Jul 2001 11:21:08 +0000 |
| parents | 4dc11485950d |
| children | f952f4f3d625 |
comparison
equal
deleted
inserted
replaced
| 38408:621d2afcdfc2 | 38409:153f1b1f2efd |
|---|---|
| 690 ((looking-at "....................[\334]\247\304\375") 'zoo) | 690 ((looking-at "....................[\334]\247\304\375") 'zoo) |
| 691 ((and (looking-at "\C-z") ; signature too simple, IMHO | 691 ((and (looking-at "\C-z") ; signature too simple, IMHO |
| 692 (string-match "\\.[aA][rR][cC]$" | 692 (string-match "\\.[aA][rR][cC]$" |
| 693 (or buffer-file-name (buffer-name)))) | 693 (or buffer-file-name (buffer-name)))) |
| 694 'arc) | 694 'arc) |
| 695 (t (error "Buffer format not recognized."))))) | 695 (t (error "Buffer format not recognized"))))) |
| 696 ;; ------------------------------------------------------------------------- | 696 ;; ------------------------------------------------------------------------- |
| 697 (defun archive-summarize (&optional shut-up) | 697 (defun archive-summarize (&optional shut-up) |
| 698 "Parse the contents of the archive file in the current buffer. | 698 "Parse the contents of the archive file in the current buffer. |
| 699 Place a dired-like listing on the front; | 699 Place a dired-like listing on the front; |
| 700 then narrow to it, so that only that listing | 700 then narrow to it, so that only that listing |
| 1742 ;; rms 15 Oct 98 | 1742 ;; rms 15 Oct 98 |
| 1743 (provide 'archive-mode) | 1743 (provide 'archive-mode) |
| 1744 | 1744 |
| 1745 (provide 'arc-mode) | 1745 (provide 'arc-mode) |
| 1746 | 1746 |
| 1747 ;; arc-mode.el ends here. | 1747 ;;; arc-mode.el ends here |