From: Juanma Barranquero Date: Wed, 25 May 2005 14:09:14 +0000 (+0000) Subject: (thumbs-thumbsdir-max-size, thumbs-temp-file, thumbs-cleanup-thumbsdir, X-Git-Tag: ttn-vms-21-2-B4~6 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f75049fca3b6bc6068f6fbee7ffca03d178f166c;p=emacs.git (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. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cad4133c446..3a87822af49 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2005-05-25 Juanma Barranquero + + * 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 * progmodes/cperl-mode.el (cperl-vc-header-alist): Obsoleted. diff --git a/lisp/thumbs.el b/lisp/thumbs.el index fd3cb13de98..1657c4b01a9 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -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)))