diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-16 21:34:57 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-16 21:36:10 +0200 |
| commit | dda7502e0a7e0dafe6b4c4bdab8480f6cff11c66 (patch) | |
| tree | 04e2a2c417f5e14135321d3e6da4a53d87c7c017 /lisp/image/image-dired-external.el | |
| parent | a9b0d3b3fca84464b972b8e7780512b2168eab94 (diff) | |
| download | emacs-dda7502e0a7e0dafe6b4c4bdab8480f6cff11c66.tar.gz emacs-dda7502e0a7e0dafe6b4c4bdab8480f6cff11c66.tar.bz2 emacs-dda7502e0a7e0dafe6b4c4bdab8480f6cff11c66.zip | |
image-dired: Print command when debugging
* lisp/image/image-dired-external.el (image-dired-create-thumb-1):
Display command and arguments when debugging.
* lisp/image/image-dired-util.el (image-dired-debug): Rename from
'image-dired-debug-message'.
Diffstat (limited to 'lisp/image/image-dired-external.el')
| -rw-r--r-- | lisp/image/image-dired-external.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/image/image-dired-external.el b/lisp/image/image-dired-external.el index 1e63123a2d1..6ad2aa72c90 100644 --- a/lisp/image/image-dired-external.el +++ b/lisp/image/image-dired-external.el @@ -311,15 +311,17 @@ and remove the cached thumbnail files between each trial run.") ;; Thumbnail file creation processes begin here and are marshaled ;; in a queue by `image-dired-create-thumb'. - (setq process - (apply #'start-process "image-dired-create-thumbnail" nil - image-dired-cmd-create-thumbnail-program - (mapcar - (lambda (arg) (format-spec arg spec)) - (if (memq image-dired-thumbnail-storage - image-dired--thumbnail-standard-sizes) - image-dired-cmd-create-standard-thumbnail-options - image-dired-cmd-create-thumbnail-options)))) + (let ((cmd image-dired-cmd-create-thumbnail-program) + (args (mapcar + (lambda (arg) (format-spec arg spec)) + (if (memq image-dired-thumbnail-storage + image-dired--thumbnail-standard-sizes) + image-dired-cmd-create-standard-thumbnail-options + image-dired-cmd-create-thumbnail-options)))) + (image-dired-debug "Running %s %s" cmd (string-join args " ")) + (setq process + (apply #'start-process "image-dired-create-thumbnail" nil + cmd args))) (setf (process-sentinel process) (lambda (process status) @@ -327,7 +329,7 @@ and remove the cached thumbnail files between each trial run.") (cl-decf image-dired-queue-active-jobs) (image-dired-thumb-queue-run) (when (= image-dired-queue-active-jobs 0) - (image-dired-debug-message + (image-dired-debug (format-time-string "Generated thumbnails in %s.%3N seconds" (time-subtract nil |