Function: thumbs-find-image

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

Signature

(thumbs-find-image IMG &optional NUM OTHERWIN)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/thumbs.el.gz
(defun thumbs-find-image (img &optional num otherwin)
  (let ((buffer (current-buffer)))
    (funcall
     (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer)
     "*Image*")
    (thumbs-view-image-mode)
    (setq mode-name
	  (concat "image-view-mode: " (file-name-nondirectory img)
		  " - " (number-to-string num)))
    (setq thumbs-buffer buffer)
    (let ((inhibit-read-only t))
      (setq thumbs-current-image-filename img
	    thumbs-current-tmp-filename nil
	    thumbs-image-num (or num 0))
      (delete-region (point-min)(point-max))
      (save-excursion
        (thumbs-insert-image img (image-supported-file-p img) 0)))))