mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(group thumbs): Add :version keyword.

Browse source
This commit is contained in:
John Paul Wallington 2004-11-01 08:01:14 +00:00
parent bb8eaf6705
commit 2b601e1ccd
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2004-11-01 John Paul Wallington <jpw@gnu.org>
* 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 <rms@gnu.org>
* allout.el (allout group): Add :version.

7
lisp/thumbs.el
View file

@ -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)) "*"))