procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(thumbs-thumbsdir-max-size, thumbs-temp-file, thumbs-cleanup-thumbsdir,

Browse source 
thumbs-call-convert, thumbs-resize-interactive, thumbs-insert-image,
thumbs-insert-thumb, thumbs-dired-show-marked, thumbs-find-image-at-point,
thumbs-delete-images, thumbs-rename-images, thumbs-next-image,
thumbs-dired-setroot, thumbs-increment-image-size, thumbs-decrement-image-size):
Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2005-05-25 14:09:14 +00:00
parent 5807219598
commit f75049fca3
2 changed files with 28 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,14 @@
2005-05-25 Juanma Barranquero <lekktu@gmail.com>
* thumbs.el (thumbs-thumbsdir-max-size, thumbs-temp-file)
(thumbs-cleanup-thumbsdir, thumbs-call-convert)
(thumbs-resize-interactive, thumbs-insert-image)
(thumbs-insert-thumb, thumbs-dired-show-marked)
(thumbs-find-image-at-point, thumbs-delete-images)
(thumbs-rename-images, thumbs-next-image, thumbs-dired-setroot)
(thumbs-increment-image-size, thumbs-decrement-image-size):
Fix typos in docstrings.
2005-05-24 Andre Spiegel <spiegel@gnu.org>
* progmodes/cperl-mode.el (cperl-vc-header-alist): Obsoleted.

34
lisp/thumbs.el
View file

@ -83,7 +83,7 @@
(defcustom thumbs-thumbsdir-max-size 50000000
"Max size for thumbnails directory.
When it reach that size (in bytes), a warning is send."
When it reachs that size (in bytes), a warning is sent."
:type 'string
:group 'thumbs)
@ -142,7 +142,7 @@ see some of your images."
;; Initialize some variable, for later use.
(defvar thumbs-temp-file
(concat thumbs-temp-dir thumbs-temp-prefix)
"Temporary filesname for images.")
"Temporary filename for images.")
(defvar thumbs-current-tmp-filename
nil
@ -188,8 +188,8 @@ The name is made by appending a number to PREFIX, default \"Thumbs\"."
(defun thumbs-cleanup-thumbsdir ()
"Clean the thumbnails directory.
If the total size of all files in 'thumbs-thumbsdir' is bigger than
'thumbs-thumbsdir-max-size', files are deleted until the max size is
If the total size of all files in `thumbs-thumbsdir' is bigger than
`thumbs-thumbsdir-max-size', files are deleted until the max size is
reached."
(let* ((filesL
(sort
@ -217,11 +217,11 @@ reached."
FILEIN is the input file,
FILEOUT is the output file,
ACTION is the command to send to convert.
Optional argument are:
Optional arguments are:
ARG any arguments to the ACTION command,
OUTPUT-FORMAT is the file format to output, default is jpeg
OUTPUT-FORMAT is the file format to output (default is jpeg),
ACTION-PREFIX is the symbol to place before the ACTION command
(default to '-' but can sometime be '+')."
(defaults to '-' but can sometimes be '+')."
(let ((command (format "%s %s%s %s \"%s\" \"%s:%s\""
thumbs-conversion-program
(or action-prefix "-")
@ -241,7 +241,7 @@ ACTION-PREFIX is the symbol to place before the ACTION command
(round (- n (/ (* d n) 100))))
(defun thumbs-increment-image-size (s)
"Increment S (a cons of width x heigh)."
"Increment S (a cons of width x height)."
(cons
(thumbs-increment-image-size-element (car s)
thumbs-image-resizing-step)
@ -249,7 +249,7 @@ ACTION-PREFIX is the symbol to place before the ACTION command
thumbs-image-resizing-step)))
(defun thumbs-decrement-image-size (s)
"Decrement S (a cons of width x heigh)."
"Decrement S (a cons of width x height)."
(cons
(thumbs-decrement-image-size-element (car s)
thumbs-image-resizing-step)
@ -349,7 +349,7 @@ Or, alternatively, a SIZE may be specified."
"Insert image IMG at point.
TYPE and RELIEF will be used in constructing the image; see `image'
in the emacs-lisp manual for further documentation.
if MARKED is non-nil, the image is marked."
If MARKED is non-nil, the image is marked."
(let ((i `(image :type ,type
:file ,img
:relief ,relief
@ -361,7 +361,7 @@ if MARKED is non-nil, the image is marked."
(defun thumbs-insert-thumb (img &optional marked)
"Insert the thumbnail for IMG at point.
if MARKED is non-nil, the image is marked"
If MARKED is non-nil, the image is marked."
(thumbs-insert-image
(thumbs-make-thumb img) 'jpeg thumbs-relief marked)
(put-text-property (1- (point)) (point)
@ -403,7 +403,7 @@ and SAME-WINDOW to show thumbs in the same window."
;;;###autoload
(defun thumbs-dired-show-marked ()
"In Dired, make a thumbs buffer with all marked files."
"In dired, make a thumbs buffer with all marked files."
(interactive)
(thumbs-show-thumbs-list (dired-get-marked-files) nil t))
@ -435,7 +435,7 @@ and SAME-WINDOW to show thumbs in the same window."
(defun thumbs-find-image-at-point (&optional img otherwin)
"Display image IMG for thumbnail at point.
use another window it OTHERWIN is t."
Use another window if OTHERWIN is t."
(interactive)
(let* ((i (or img (thumbs-current-image))))
(thumbs-find-image i (point) otherwin)))
@ -499,7 +499,7 @@ Open another window."
(nreverse list))))
(defun thumbs-delete-images ()
"Delete the image at point (and it's thumbnail) (or marked files if any)."
"Delete the image at point (and its thumbnail) (or marked files if any)."
(interactive)
(let ((files (or thumbs-markedL (list (thumbs-current-image)))))
(if (yes-or-no-p (format "Really delete %d files? " (length files)))
@ -520,7 +520,7 @@ Open another window."
(delq x thumbs-markedL)))))))))
(defun thumbs-rename-images (newfile)
"Rename the image at point (and it's thumbnail) (or marked files if any)."
"Rename the image at point (and its thumbnail) (or marked files if any)."
(interactive "FRename to file or directory: ")
(let ((files (or thumbs-markedL (list (thumbs-current-image))))
failures)
@ -574,7 +574,7 @@ Open another window."
thumbs-current-image-filename i))))
(defun thumbs-next-image ()
"Show next image."
"Show the next image."
(interactive)
(let* ((i (1+ thumbs-image-num))
(list (thumbs-file-alist))
@ -782,7 +782,7 @@ ACTION and ARG should be a valid convert command."
;;;###autoload
(defun thumbs-dired-setroot ()
"In dired, Call the setroot program on the image at point."
"In dired, call the setroot program on the image at point."
(interactive)
(thumbs-call-setroot-command (dired-get-filename)))