Function: thumbs-show-image-num

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

Signature

(thumbs-show-image-num NUM)

Documentation

Show the image with number NUM.

Source Code

;; Defined in /usr/src/emacs/lisp/thumbs.el.gz
(defun thumbs-show-image-num (num)
  "Show the image with number NUM."
  (let ((image-buffer (get-buffer-create "*Image*")))
    (let ((img (cdr (nth (1- num) (thumbs-file-alist)))))
      (with-current-buffer image-buffer
	(setq mode-name
	      (concat "image-view-mode: " (file-name-nondirectory img)
		      " - " (number-to-string num)))
	(let ((inhibit-read-only t))
	  (erase-buffer)
	  (thumbs-insert-image img (thumbs-image-type img) 0)
	  (goto-char (point-min))))
      (setq thumbs-image-num num
	    thumbs-current-image-filename img))))