| @@ -1010,7 +1010,7 @@ Return nil if library unfound and failed to download, otherwise the path where t | |||||
| (progn | (progn | ||||
| (message "calculating du...") | (message "calculating du...") | ||||
| (shell-command (concat "du -hsD " | (shell-command (concat "du -hsD " | ||||
| f))) | |||||
| (shell-quote-argument f)))) | |||||
| (shell-command (concat "file " | (shell-command (concat "file " | ||||
| f))))) | f))))) | ||||
| @@ -1032,8 +1032,8 @@ Return nil if library unfound and failed to download, otherwise the path where t | |||||
| (dired-previous-line 1) | (dired-previous-line 1) | ||||
| (when (eq (line-number-at-pos) | (when (eq (line-number-at-pos) | ||||
| 2) | 2) | ||||
| (goto-line (- (line-number-at-pos (point-max)) | |||||
| 1)) | |||||
| (goto-char (point-max)) | |||||
| (forward-line -1) | |||||
| (dired-move-to-filename)) | (dired-move-to-filename)) | ||||
| (my-dired-previous-line (- arg 1)) | (my-dired-previous-line (- arg 1)) | ||||
| )) | )) | ||||
| @@ -1046,7 +1046,8 @@ Return nil if library unfound and failed to download, otherwise the path where t | |||||
| (dired-next-line 1) | (dired-next-line 1) | ||||
| (when (eq (point) | (when (eq (point) | ||||
| (point-max)) | (point-max)) | ||||
| (goto-line 3) | |||||
| (goto-char (point-min)) | |||||
| (forward-line 2) | |||||
| (dired-move-to-filename)) | (dired-move-to-filename)) | ||||
| (my-dired-next-line (- arg 1)) | (my-dired-next-line (- arg 1)) | ||||
| )) | )) | ||||