We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 1f19e24 commit d1a2bdaCopy full SHA for d1a2bda
dired-collapse.el
@@ -102,9 +102,10 @@
102
(insert-directory file dired-listing-switches nil nil)
103
(forward-line -1)
104
(dired-align-file (line-beginning-position) (1+ (line-end-position)))
105
- (when (file-remote-p (dired-utils-get-filename))
106
- (while (search-forward (dired-current-directory) (line-end-position) t)
107
- (replace-match ""))))
+ (-when-let (replaced-file (dired-utils-get-filename))
+ (when (file-remote-p replaced-file)
+ (while (search-forward (dired-current-directory) (line-end-position) t)
108
+ (replace-match "")))))
109
110
(defun dired-collapse--create-ov (&optional to-eol)
111
"Create the shadow overlay which marks the collapsed path.
0 commit comments