diff options
| author | Richard M. Stallman | 2002-03-28 18:15:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-28 18:15:47 +0000 |
| commit | f95807815b76c98efd0f3a465e72d49e3417d5f5 (patch) | |
| tree | b7d6e49e54f7629dc2edacbda6ea46e5dc82baeb | |
| parent | 8ab4da6cc028d2a7a2b39273626a3f9c86bcd0b1 (diff) | |
| download | emacs-f95807815b76c98efd0f3a465e72d49e3417d5f5.tar.gz emacs-f95807815b76c98efd0f3a465e72d49e3417d5f5.zip | |
(tar-header-block-summarize, tar-get-descriptor):
Support "next has longname" link type.
| -rw-r--r-- | lisp/tar-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 576d8be02e6..9d0a6d2e6c9 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -356,6 +356,7 @@ MODE should be an integer which is a file mode value." | |||
| 356 | ((eq type 5) ?d) ; directory | 356 | ((eq type 5) ?d) ; directory |
| 357 | ((eq type 6) ?p) ; FIFO/pipe | 357 | ((eq type 6) ?p) ; FIFO/pipe |
| 358 | ((eq type 20) ?*) ; directory listing | 358 | ((eq type 20) ?*) ; directory listing |
| 359 | ((eq type 28) ?L) ; next has longname | ||
| 359 | ((eq type 29) ?M) ; multivolume continuation | 360 | ((eq type 29) ?M) ; multivolume continuation |
| 360 | ((eq type 35) ?S) ; sparse | 361 | ((eq type 35) ?S) ; sparse |
| 361 | ((eq type 38) ?V) ; volume header | 362 | ((eq type 38) ?V) ; volume header |
| @@ -660,6 +661,7 @@ appear on disk when you save the tar-file's buffer." | |||
| 660 | (error "This is a %s, not a real file" | 661 | (error "This is a %s, not a real file" |
| 661 | (cond ((eq link-p 5) "directory") | 662 | (cond ((eq link-p 5) "directory") |
| 662 | ((eq link-p 20) "tar directory header") | 663 | ((eq link-p 20) "tar directory header") |
| 664 | ((eq link-p 28) "next has longname") | ||
| 663 | ((eq link-p 29) "multivolume-continuation") | 665 | ((eq link-p 29) "multivolume-continuation") |
| 664 | ((eq link-p 35) "sparse entry") | 666 | ((eq link-p 35) "sparse entry") |
| 665 | ((eq link-p 38) "volume header") | 667 | ((eq link-p 38) "volume header") |