Function: thumbs-make-thumb

thumbs-make-thumb is a byte-compiled function defined in thumbs.el.gz.

Signature

(thumbs-make-thumb IMG)

Documentation

Create the thumbnail for IMG.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/thumbs.el.gz
(defun thumbs-make-thumb (img)
  "Create the thumbnail for IMG."
  (let ((fn (expand-file-name img))
        (tn (thumbs-thumbname img)))
    (if (or (not (file-exists-p tn))
	    ;;  This is not the right fix, but I don't understand
	    ;;  the external program or why it produces a geometry
	    ;;  unequal to the one requested -- rms.
;;;	    (not (equal (thumbs-file-size tn) thumbs-geometry))
	    )
	(thumbs-call-convert fn tn "sample" thumbs-geometry))
    tn))