bug#47058: 28.0.50; Dired Z: insert-directory: Reading directory: No such file or directory, CrossLine_linux_x86

[Gregory Heytings <gregory@heytings.org>]

[-- Attachment #1: Type: text/plain, Size: 371 bytes --]


>>> Would it not be easier to unconditionally untar the contents in a 
>>> temporary directory, and to either move its contents to the current 
>>> directory if it contains only one entry, or to rename it to a 
>>> directory based on the tar file name when it contains more than one 
>>> entry?
>> 
>> Easier in what sense?
>
> In the sense of "DWIM".
>

Patch attached.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-diff; name=Uncompress-tar-files-in-a-DWIMish-way.patch, Size: 3287 bytes --]

From 7a25f95b2a554ca281bb0e6d5000ef9ece980694 Mon Sep 17 00:00:00 2001
From: Gregory Heytings <gregory@heytings.org>
Date: Tue, 21 Sep 2021 20:43:27 +0000
Subject: [PATCH] Uncompress tar files in a DWIMish way

* lisp/dired-aux.el (dired-compress-file-suffixes): Add a '-C %o'
argument to tar commands.
(dired-compress-file): Extract files in a temporary directory; if
it contains a single file, use it as the output file, otherwise
rename the temporary directory and use it as the output file.
---
 lisp/dired-aux.el | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 53fbcfb6d0..66422e7b16 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1134,9 +1134,9 @@ dired-compress-file-suffixes
     ;; "tar -zxf" isn't used because it's not available on the
     ;; Solaris 10 version of tar (obsolete in 2024?).
     ;; Same thing on AIX 7.1 (obsolete 2023?) and 7.2 (obsolete 2022?).
-    ("\\.tar\\.gz\\'" "" "gzip -dc %i | tar -xf -")
-    ("\\.tar\\.xz\\'" "" "xz -dc %i | tar -xf -")
-    ("\\.tgz\\'" "" "gzip -dc %i | tar -xf -")
+    ("\\.tar\\.gz\\'" "" "gzip -dc %i | tar -C %o -xf -")
+    ("\\.tar\\.xz\\'" "" "xz -dc %i | tar -C %o -xf -")
+    ("\\.tgz\\'" "" "gzip -dc %i | tar -C %o -xf -")
     ("\\.gz\\'" "" "gzip -d")
     ("\\.lz\\'" "" "lzip -d")
     ("\\.Z\\'" "" "uncompress")
@@ -1148,8 +1148,8 @@ dired-compress-file-suffixes
     ("\\.bz2\\'" "" "bunzip2")
     ("\\.xz\\'" "" "unxz")
     ("\\.zip\\'" "" "unzip -o -d %o %i")
-    ("\\.tar\\.zst\\'" "" "unzstd -c %i | tar -xf -")
-    ("\\.tzst\\'" "" "unzstd -c %i | tar -xf -")
+    ("\\.tar\\.zst\\'" "" "unzstd -c %i | tar -C %o -xf -")
+    ("\\.tzst\\'" "" "unzstd -c %i | tar -C %o -xf -")
     ("\\.zst\\'" "" "unzstd --rm")
     ("\\.7z\\'" "" "7z x -aoa -o%o %i")
     ;; This item controls naming for compression.
@@ -1278,15 +1278,23 @@ dired-compress-file
            nil)
           ((and suffix (setq command (nth 2 suffix)))
            (if (string-match "%[io]" command)
-               (prog1 (setq newname (file-name-as-directory newname))
+               (let ((tmp (file-name-as-directory (make-temp-file newname t))))
                  (dired-shell-command
                   (replace-regexp-in-string
-                   "%o" (shell-quote-argument newname)
+                   "%o" (shell-quote-argument tmp)
                    (replace-regexp-in-string
                     "%i" (shell-quote-argument file)
                     command
                     nil t)
-                   nil t)))
+                   nil t))
+                 (let ((files (directory-files
+                               tmp nil
+                               directory-files-no-dot-files-regexp)))
+                   (if (> (length files) 1)
+                       (rename-file tmp newname)
+                     (rename-file (concat tmp (car files)) newname)
+                     (delete-directory tmp)))
+                 (file-name-as-directory newname))
              ;; We found an uncompression rule.
              (let ((match (string-search " " command))
                    (msg (concat "Uncompressing " file)))
-- 
2.33.0