Mercurial > emacs
diff lisp/thumbs.el @ 87441:350032476821
(thumbs-call-convert): Use call-process directly
with thumbs-conversion-program instead of through shell-file-name
for better error reporting when program is missing.
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Fri, 28 Dec 2007 08:09:57 +0000 |
parents | b98604865ea0 |
children | 66dec6867b40 56a72e2bd635 |
line wrap: on
line diff
--- a/lisp/thumbs.el Fri Dec 28 08:08:34 2007 +0000 +++ b/lisp/thumbs.el Fri Dec 28 08:09:57 2007 +0000 @@ -248,15 +248,12 @@ OUTPUT-FORMAT is the file format to output (default is jpeg), ACTION-PREFIX is the symbol to place before the ACTION command (defaults to '-' but can sometimes be '+')." - (let ((command (format "%s %s%s %s \"%s\" \"%s:%s\"" - thumbs-conversion-program - (or action-prefix "-") - action - (or arg "") - filein - (or output-format "jpeg") - fileout))) - (call-process shell-file-name nil nil nil shell-command-switch command))) + (call-process thumbs-conversion-program nil nil nil + (or action-prefix "-") + action + (or arg "") + filein + (format "%s:%s" (or output-format "jpeg") fileout))) (defun thumbs-new-image-size (s increment) "New image (a cons of width x height)."