Function: image--change-size

image--change-size is a byte-compiled function defined in image.el.gz.

Signature

(image--change-size FACTOR &optional POSITION)

Source Code

;; Defined in /usr/src/emacs/lisp/image.el.gz
(defun image--change-size (factor &optional position)
  (let* ((image (image--get-imagemagick-and-warn position))
         (new-image (image--image-without-parameters image))
         (scale (image--current-scaling image new-image)))
    (setcdr image (cdr new-image))
    (plist-put (cdr image) :scale (* scale factor))
    (when (and (image-property image :original-map) image-recompute-map-p)
      (setf (image-property image :map) (image--compute-map image)))))