From 0d6514967bee7d8289aa2e977a79fde14a55e626 Mon Sep 17 00:00:00 2001
From: Wojciech Siewierski <wojciech.siewierski@onet.pl>
Date: Mon, 24 Dec 2018 02:07:21 +0100
Subject: [PATCH] dired-subtree: Respect the value of dired-actual-switches

---
 dired-subtree.el | 37 ++++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 17 deletions(-)

diff --git a/dired-subtree.el b/dired-subtree.el
index 75a1709..10cf4b6 100644
--- a/dired-subtree.el
+++ b/dired-subtree.el
@@ -462,23 +462,26 @@ children."
   "Read in the directory.
 
 Return a string suitable for insertion in `dired' buffer."
-  (with-temp-buffer
-    (insert-directory dir-name dired-listing-switches nil t)
-    (delete-char -1)
-    (goto-char (point-min))
-    (delete-region
-     (progn (beginning-of-line) (point))
-     (progn (forward-line
-             (if (save-excursion
-                   (forward-line 1)
-                   (end-of-line)
-                   (looking-back "\\."))
-                 3 1)) (point)))
-    (insert "  ")
-    (while (= (forward-line) 0)
-      (insert "  "))
-    (delete-char -2)
-    (buffer-string)))
+  (let ((orig-buffer (current-buffer)))
+    (with-temp-buffer
+      (insert-directory dir-name
+                        (buffer-local-value 'dired-actual-switches orig-buffer)
+                        nil t)
+      (delete-char -1)
+      (goto-char (point-min))
+      (delete-region
+       (progn (beginning-of-line) (point))
+       (progn (forward-line
+               (if (save-excursion
+                     (forward-line 1)
+                     (end-of-line)
+                     (looking-back "\\."))
+                   3 1)) (point)))
+      (insert "  ")
+      (while (= (forward-line) 0)
+        (insert "  "))
+      (delete-char -2)
+      (buffer-string))))
 
 ;;;###autoload
 (defun dired-subtree-insert ()