# HG changeset patch
# User Magnus Henoch <mange@freemail.hu>
# Date 1208969203 0
# Node ID f6d5eb496a394818f7f3d4ae56ec3dd40b5060aa
# Parent  11c1515dc9e3b4e43f513bbb42d4c974a225fe59
(tar-untar-buffer): If the entry has directory link type, extract it
as a directory even if its file name doesn't end with a slash.  Fixes
extraction of NetBSD tar archives.

diff -r 11c1515dc9e3 -r f6d5eb496a39 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed Apr 23 15:37:07 2008 +0000
+++ b/lisp/tar-mode.el	Wed Apr 23 16:46:43 2008 +0000
@@ -395,7 +395,9 @@
 	  (dolist (descriptor tar-parse-info)
 	    (let* ((tokens (tar-desc-tokens descriptor))
 		   (name (tar-header-name tokens))
-		   (dir (file-name-directory name))
+		   (dir (if (eq (tar-header-link-type tokens) 5)
+			    name
+			  (file-name-directory name)))
 		   (start (+ (tar-desc-data-start descriptor)
 			     (- tar-header-offset (point-min))))
 		   (end (+ start (tar-header-size tokens))))