diff options
| author | John Paul Wallington | 2004-11-01 08:01:14 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2004-11-01 08:01:14 +0000 |
| commit | 2b601e1ccd453ca72f7dc31b31cb33c1342872a6 (patch) | |
| tree | ae12aef1b3ba1c72c40990ffb3232ef9aea9ca07 | |
| parent | bb8eaf670558c4b670ec8fa6bd3d368e1483cfe3 (diff) | |
| download | emacs-2b601e1ccd453ca72f7dc31b31cb33c1342872a6.tar.gz emacs-2b601e1ccd453ca72f7dc31b31cb33c1342872a6.zip | |
(group thumbs): Add :version keyword.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/thumbs.el | 7 |
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 @@ | |||
| 1 | 2004-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 | |||
| 1 | 2004-11-01 Richard M. Stallman <rms@gnu.org> | 8 | 2004-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)) "*")) |