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/obsolete/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 (image-supported-file-p img) 0)
(goto-char (point-min))))
(setq thumbs-image-num num
thumbs-current-image-filename img))))