Function: image-dired-insert-thumbnail

image-dired-insert-thumbnail is a byte-compiled function defined in image-dired.el.gz.

Signature

(image-dired-insert-thumbnail FILE ORIGINAL-FILE-NAME ASSOCIATED-DIRED-BUFFER)

Documentation

Insert thumbnail image FILE.

Add text properties ORIGINAL-FILE-NAME and ASSOCIATED-DIRED-BUFFER.

Source Code

;; Defined in /usr/src/emacs/lisp/image-dired.el.gz
(defun image-dired-insert-thumbnail (file original-file-name
                                     associated-dired-buffer)
  "Insert thumbnail image FILE.
Add text properties ORIGINAL-FILE-NAME and ASSOCIATED-DIRED-BUFFER."
  (let (beg end)
    (setq beg (point))
    (image-dired-insert-image file
                        ;; TODO: this should depend on the real file type
                        (if (memq image-dired-thumbnail-storage
                                  '(standard standard-large))
                            'png 'jpeg)
                        image-dired-thumb-relief
                        image-dired-thumb-margin)
    (setq end (point))
    (add-text-properties
     beg end
     (list 'image-dired-thumbnail t
           'original-file-name original-file-name
           'associated-dired-buffer associated-dired-buffer
           'tags (image-dired-list-tags original-file-name)
           'mouse-face 'highlight
           'comment (image-dired-get-comment original-file-name)))))