Fix +dired/--subdirs-not-inserted
This commit is contained in:
@@ -3333,8 +3333,7 @@ Here I setup dired with a few niceties
|
|||||||
(subdirs-available (mapcar #'(lambda (x) (concat x "/"))
|
(subdirs-available (mapcar #'(lambda (x) (concat x "/"))
|
||||||
(dired-get-marked-files))))
|
(dired-get-marked-files))))
|
||||||
(dired-unmark-all-marks)
|
(dired-unmark-all-marks)
|
||||||
(cl-remove-if #'(lambda (f) (member f subdirs-present))
|
(cl-remove-if #'(lambda (f) (member f subdirs-inserted)) subdirs-available)))
|
||||||
subdirs-available)))
|
|
||||||
|
|
||||||
(defun +dired/insert-all-subdirectories (&optional arg)
|
(defun +dired/insert-all-subdirectories (&optional arg)
|
||||||
"Insert all subdirectories recursively."
|
"Insert all subdirectories recursively."
|
||||||
|
|||||||
Reference in New Issue
Block a user