HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add 2010 to copyright years.
[bpt/emacs.git]
/
lisp
/
thumbs.el
diff --git
a/lisp/thumbs.el
b/lisp/thumbs.el
index
cf5ff79
..
f9f97b1
100644
(file)
--- a/
lisp/thumbs.el
+++ b/
lisp/thumbs.el
@@
-1,6
+1,6
@@
;;; thumbs.el --- Thumbnails previewer for images files
;;; thumbs.el --- Thumbnails previewer for images files
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2005, 2006, 2007, 2008
, 2009, 2010
Free Software Foundation, Inc.
;; Author: Jean-Philippe Theberge <jphiltheberge@videotron.ca>
;; Maintainer: FSF
;; Author: Jean-Philippe Theberge <jphiltheberge@videotron.ca>
;; Maintainer: FSF
@@
-65,13
+65,13
@@
:version "22.1"
:group 'multimedia)
:version "22.1"
:group 'multimedia)
-(defcustom thumbs-thumbsdir (
concat user-emacs-directory
"thumbs")
- "
*
Directory to store thumbnails."
+(defcustom thumbs-thumbsdir (
locate-user-emacs-file
"thumbs")
+ "Directory to store thumbnails."
:type 'directory
:group 'thumbs)
(defcustom thumbs-geometry "100x100"
:type 'directory
:group 'thumbs)
(defcustom thumbs-geometry "100x100"
- "
*
Size of thumbnails."
+ "Size of thumbnails."
:type 'string
:group 'thumbs)
:type 'string
:group 'thumbs)
@@
-100,7
+100,7
@@
When it reaches that size (in bytes), a warning is sent."
"convert.exe"
(or (executable-find "convert")
"/usr/X11R6/bin/convert"))
"convert.exe"
(or (executable-find "convert")
"/usr/X11R6/bin/convert"))
- "
*
Name of conversion program for thumbnails generation.
+ "Name of conversion program for thumbnails generation.
It must be 'convert'."
:type 'string
:group 'thumbs)
It must be 'convert'."
:type 'string
:group 'thumbs)
@@
-112,12
+112,12
@@
It must be 'convert'."
:group 'thumbs)
(defcustom thumbs-relief 5
:group 'thumbs)
(defcustom thumbs-relief 5
- "
*
Size of button-like border around thumbnails."
+ "Size of button-like border around thumbnails."
:type 'integer
:group 'thumbs)
(defcustom thumbs-margin 2
:type 'integer
:group 'thumbs)
(defcustom thumbs-margin 2
- "
*
Size of the margin around thumbnails.
+ "Size of the margin around thumbnails.
This is where you see the cursor."
:type 'integer
:group 'thumbs)
This is where you see the cursor."
:type 'integer
:group 'thumbs)
@@
-334,6
+334,8
@@
smaller according to whether INCREMENT is 1 or -1."
((string-match ".*\\.png\\'" img) 'png)
((string-match ".*\\.tiff?\\'" img) 'tiff)))
((string-match ".*\\.png\\'" img) 'png)
((string-match ".*\\.tiff?\\'" img) 'tiff)))
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
(defun thumbs-file-size (img)
(let ((i (image-size
(find-image `((:type ,(thumbs-image-type img) :file ,img))) t)))
(defun thumbs-file-size (img)
(let ((i (image-size
(find-image `((:type ,(thumbs-image-type img) :file ,img))) t)))