From: John Paul Wallington Date: Mon, 1 Nov 2004 08:01:14 +0000 (+0000) Subject: (group thumbs): Add :version keyword. X-Git-Tag: ttn-vms-21-2-B4~4286 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b601e1ccd453ca72f7dc31b31cb33c1342872a6;p=emacs.git (group thumbs): Add :version keyword. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e5dd9b7f3fa..020d20a23b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-11-01 John Paul Wallington + + * files.el (large-file-warning-threshold): Add :version keyword. + (kill-some-buffers): Doc fix. + + * thumbs.el (group thumbs): Add :version keyword. + 2004-11-01 Richard M. Stallman * allout.el (allout group): Add :version. diff --git a/lisp/thumbs.el b/lisp/thumbs.el index 13970e59ee8..b6a68df33c4 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -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 @@ and SAME-WINDOW to show thumbs in the same window." (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)) "*"))