Function: thumbs-resize-image-1

thumbs-resize-image-1 is a byte-compiled function defined in thumbs.el.gz.

Signature

(thumbs-resize-image-1 &optional INCREMENT SIZE)

Documentation

Resize image in current buffer.

If SIZE is specified use it. Otherwise make the image larger or smaller according to whether INCREMENT is 1 or -1.

Source Code

;; Defined in /usr/src/emacs/lisp/thumbs.el.gz
(defun thumbs-resize-image-1 (&optional increment size)
  "Resize image in current buffer.
If SIZE is specified use it.  Otherwise make the image larger or
smaller according to whether INCREMENT is 1 or -1."
  (let* ((buffer-read-only nil)
	 (old thumbs-current-tmp-filename)
	 (x (or size
		(thumbs-new-image-size thumbs-current-image-size increment)))
	 (tmp (thumbs-temp-file)))
    (erase-buffer)
    (thumbs-call-convert (or old thumbs-current-image-filename)
			 tmp "sample"
			 (concat (number-to-string (car x)) "x"
				 (number-to-string (cdr x))))
    (save-excursion
      (thumbs-insert-image tmp 'jpeg 0))
    (setq thumbs-current-tmp-filename tmp)))