Mercurial > emacs
comparison lisp/tar-mode.el @ 20808:e1e1f6fd72bd
Customized.
| author | Stephen Eglen <stephen@gnu.org> |
|---|---|
| date | Sun, 01 Feb 1998 17:46:32 +0000 |
| parents | d1b61f2a6701 |
| children | 00fce41bcd4f |
comparison
equal
deleted
inserted
replaced
| 20807:498136447303 | 20808:e1e1f6fd72bd |
|---|---|
| 91 ;; some scratch directory would be very wasteful, and wouldn't be able to | 91 ;; some scratch directory would be very wasteful, and wouldn't be able to |
| 92 ;; preserve the file owners. | 92 ;; preserve the file owners. |
| 93 | 93 |
| 94 ;;; Code: | 94 ;;; Code: |
| 95 | 95 |
| 96 (defvar tar-anal-blocksize 20 | 96 (defgroup tar nil |
| 97 "Simple editing of tar files." | |
| 98 :prefix "tar-" | |
| 99 :group 'data) | |
| 100 | |
| 101 (defcustom tar-anal-blocksize 20 | |
| 97 "*The blocksize of tar files written by Emacs, or nil, meaning don't care. | 102 "*The blocksize of tar files written by Emacs, or nil, meaning don't care. |
| 98 The blocksize of a tar file is not really the size of the blocks; rather, it is | 103 The blocksize of a tar file is not really the size of the blocks; rather, it is |
| 99 the number of blocks written with one system call. When tarring to a tape, | 104 the number of blocks written with one system call. When tarring to a tape, |
| 100 this is the size of the *tape* blocks, but when writing to a file, it doesn't | 105 this is the size of the *tape* blocks, but when writing to a file, it doesn't |
| 101 matter much. The only noticeable difference is that if a tar file does not | 106 matter much. The only noticeable difference is that if a tar file does not |
| 102 have a blocksize of 20, tar will tell you that; all this really controls is | 107 have a blocksize of 20, tar will tell you that; all this really controls is |
| 103 how many null padding bytes go on the end of the tar file.") | 108 how many null padding bytes go on the end of the tar file." |
| 104 | 109 :type '(choice integer (const nil)) |
| 105 (defvar tar-update-datestamp nil | 110 :group 'tar) |
| 111 | |
| 112 (defcustom tar-update-datestamp nil | |
| 106 "*Non-nil means tar-mode should play fast and loose with sub-file datestamps. | 113 "*Non-nil means tar-mode should play fast and loose with sub-file datestamps. |
| 107 If this is true, then editing and saving a tar file entry back into its | 114 If this is true, then editing and saving a tar file entry back into its |
| 108 tar file will update its datestamp. If false, the datestamp is unchanged. | 115 tar file will update its datestamp. If false, the datestamp is unchanged. |
| 109 You may or may not want this - it is good in that you can tell when a file | 116 You may or may not want this - it is good in that you can tell when a file |
| 110 in a tar archive has been changed, but it is bad for the same reason that | 117 in a tar archive has been changed, but it is bad for the same reason that |
| 111 editing a file in the tar archive at all is bad - the changed version of | 118 editing a file in the tar archive at all is bad - the changed version of |
| 112 the file never exists on disk.") | 119 the file never exists on disk." |
| 113 | 120 :type 'boolean |
| 114 (defvar tar-mode-show-date nil | 121 :group 'tar) |
| 122 | |
| 123 (defcustom tar-mode-show-date nil | |
| 115 "*Non-nil means Tar mode should show the date/time of each subfile. | 124 "*Non-nil means Tar mode should show the date/time of each subfile. |
| 116 This information is useful, but it takes screen space away from file names.") | 125 This information is useful, but it takes screen space away from file names." |
| 126 :type 'boolean | |
| 127 :group 'tar) | |
| 117 | 128 |
| 118 (defvar tar-parse-info nil) | 129 (defvar tar-parse-info nil) |
| 119 (defvar tar-header-offset nil) | 130 (defvar tar-header-offset nil) |
| 120 (defvar tar-superior-buffer nil) | 131 (defvar tar-superior-buffer nil) |
| 121 (defvar tar-superior-descriptor nil) | 132 (defvar tar-superior-descriptor nil) |