*** /tmp/ediffhiunfK	2019-03-03 11:26:50.677462619 +0100
--- /home/albinus/src/elpa/packages/disk-usage/disk-usage.el	2019-03-03 10:59:27.620803344 +0100
***************
*** 263,269 ****
                       (and (file-accessible-directory-p directory)
                            (directory-files-and-attributes
                             directory
!                            'full nil 'nosort)))))
      (or (cl-loop for l in listing
                   for attributes = (cl-rest l)
                   for path = (cl-first l)
--- 263,270 ----
                       (and (file-accessible-directory-p directory)
                            (directory-files-and-attributes
                             directory
!                            'full directory-files-no-dot-files-regexp
! 			   'nosort)))))
      (or (cl-loop for l in listing
                   for attributes = (cl-rest l)
                   for path = (cl-first l)
***************
*** 280,288 ****
                            :name path
                            :size (file-attribute-size attributes))
                   ;; Folders
!                  else if (and (eq t (file-attribute-type attributes))
!                               (not (string= "." (file-name-base path)))
!                               (not (string= ".." (file-name-base path))))
                   collect
                   (disk-usage--file-info-make
                    :name path
--- 281,287 ----
                            :name path
                            :size (file-attribute-size attributes))
                   ;; Folders
!                  else if (eq t (file-attribute-type attributes))
                   collect
                   (disk-usage--file-info-make
                    :name path
***************
*** 305,313 ****
                                          "-type" "d")
                            (buffer-string))
                          "\n" 'omit-nulls)))
!     (cl-loop for dir in subdirs
!              append (cl-loop for file in (directory-files-and-attributes dir 'full nil 'nosort)
!                              for name = (concat (file-remote-p directory) (car file))
                               for attributes = (cdr file)
                               when (and attributes
                                         (not (file-attribute-type attributes))
--- 304,317 ----
                                          "-type" "d")
                            (buffer-string))
                          "\n" 'omit-nulls)))
!     (cl-loop for dir in (mapcar (lambda (item)
! 				  (concat (file-remote-p directory) item))
! 				subdirs)
!              append (cl-loop for file in (directory-files-and-attributes
! 					  dir 'full
! 					  directory-files-no-dot-files-regexp
! 					  'nosort)
!                              for name = (car file)
                               for attributes = (cdr file)
                               when (and attributes
                                         (not (file-attribute-type attributes))