# HG changeset patch # User John Paul Wallington # Date 1099295839 0 # Node ID 5e17e1a1eacfe1404d91aac20809d3574f40881e # Parent c139689dbd5d64aba40fff6b80c2bc98b68b5684 (group thumbs): Add :version keyword. diff -r c139689dbd5d -r 5e17e1a1eacf lisp/thumbs.el --- a/lisp/thumbs.el Mon Nov 01 07:56:17 2004 +0000 +++ b/lisp/thumbs.el Mon Nov 01 07:57:19 2004 +0000 @@ -30,8 +30,8 @@ ;;; Commentary: ;; This package create two new mode: thumbs-mode and -;; thumbs-view-image-mode. It is used for images browsing and viewing -;; from within emacs. Minimal image manipulation functions are also +;; thumbs-view-image-mode. It is used for images browsing and viewing +;; from within Emacs. Minimal image manipulation functions are also ;; available via external programs. ;; ;; The 'convert' program from 'ImageMagick' @@ -62,6 +62,7 @@ (defgroup thumbs nil "Thumbnails previewer." + :version "21.4" :group 'multimedia) (defcustom thumbs-thumbsdir @@ -416,7 +417,7 @@ (defalias 'thumbs 'thumbs-show-all-from-dir) (defun thumbs-find-image (img &optional num otherwin) - (funcall + (funcall (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer) (concat "*Image: " (file-name-nondirectory img) " - " (number-to-string (or num 0)) "*"))