aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohn Paul Wallington2004-11-01 08:01:14 +0000
committerJohn Paul Wallington2004-11-01 08:01:14 +0000
commit2b601e1ccd453ca72f7dc31b31cb33c1342872a6 (patch)
treeae12aef1b3ba1c72c40990ffb3232ef9aea9ca07
parentbb8eaf670558c4b670ec8fa6bd3d368e1483cfe3 (diff)
downloademacs-2b601e1ccd453ca72f7dc31b31cb33c1342872a6.tar.gz
emacs-2b601e1ccd453ca72f7dc31b31cb33c1342872a6.zip
(group thumbs): Add :version keyword.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/thumbs.el7
2 files changed, 11 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5dd9b7f3fa..020d20a23b6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12004-11-01 John Paul Wallington <jpw@gnu.org>
2
3 * files.el (large-file-warning-threshold): Add :version keyword.
4 (kill-some-buffers): Doc fix.
5
6 * thumbs.el (group thumbs): Add :version keyword.
7
12004-11-01 Richard M. Stallman <rms@gnu.org> 82004-11-01 Richard M. Stallman <rms@gnu.org>
2 9
3 * allout.el (allout group): Add :version. 10 * 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 @@
30;;; Commentary: 30;;; Commentary:
31 31
32;; This package create two new mode: thumbs-mode and 32;; This package create two new mode: thumbs-mode and
33;; thumbs-view-image-mode. It is used for images browsing and viewing 33;; thumbs-view-image-mode. It is used for images browsing and viewing
34;; from within emacs. Minimal image manipulation functions are also 34;; from within Emacs. Minimal image manipulation functions are also
35;; available via external programs. 35;; available via external programs.
36;; 36;;
37;; The 'convert' program from 'ImageMagick' 37;; The 'convert' program from 'ImageMagick'
@@ -62,6 +62,7 @@
62 62
63(defgroup thumbs nil 63(defgroup thumbs nil
64 "Thumbnails previewer." 64 "Thumbnails previewer."
65 :version "21.4"
65 :group 'multimedia) 66 :group 'multimedia)
66 67
67(defcustom thumbs-thumbsdir 68(defcustom thumbs-thumbsdir
@@ -416,7 +417,7 @@ and SAME-WINDOW to show thumbs in the same window."
416(defalias 'thumbs 'thumbs-show-all-from-dir) 417(defalias 'thumbs 'thumbs-show-all-from-dir)
417 418
418(defun thumbs-find-image (img &optional num otherwin) 419(defun thumbs-find-image (img &optional num otherwin)
419 (funcall 420 (funcall
420 (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer) 421 (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer)
421 (concat "*Image: " (file-name-nondirectory img) " - " 422 (concat "*Image: " (file-name-nondirectory img) " - "
422 (number-to-string (or num 0)) "*")) 423 (number-to-string (or num 0)) "*"))