[Emacs-diffs] Changes to emacs/lisp/tar-mode.el,v

[Magnus Henoch]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Magnus Henoch <legoscia>        08/04/23 16:46:44

Index: tar-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -b -r1.121 -r1.122
--- tar-mode.el 22 Apr 2008 22:49:46 -0000      1.121
+++ tar-mode.el 23 Apr 2008 16:46:43 -0000      1.122
@@ -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))))