emacs: lisp/thumbs.el comparison

comparison lisp/thumbs.el @ 90185:5b029ff3b08d

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-55 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 320-323) - Update from CVS

author	Miles Bader <miles@gnu.org>
date	Thu, 26 May 2005 05:42:19 +0000
parents	4da4a09e8b1b 6dd34b690fa9
children	01137c1fdbe9

comparison

equal deleted inserted replaced

-:9e5e2f01c7ab
+:5b029ff3b08d
 :type 'string
 :group 'thumbs)
 (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)
 (defcustom thumbs-conversion-program
 (if (equal 'windows-nt system-type)
 :group 'thumbs)
 ;; 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
 "Temporary filename of current image.")
 (defvar thumbs-current-image-filename
 		 (setq thumbs-gensym-counter (1+ thumbs-gensym-counter))))))
 (make-symbol (format "%s%d" prefix num))))
 (defun thumbs-cleanup-thumbsdir ()
 "Clean the thumbnails directory.
-If the total size of all files in 'thumbs-thumbsdir' is bigger than
+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
+`thumbs-thumbsdir-max-size', files are deleted until the max size is
 reached."
 (let* ((filesL
 	  (sort
 	   (mapcar
 	    (lambda (f)
 				   &optional arg output-format action-prefix)
 "Call the convert program.
 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 "-")
 			 action
 			 (or arg "")
 (defun thumbs-decrement-image-size-element (n d)
 "Decrement number N by D percent."
 (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)
 (thumbs-increment-image-size-element (cdr s)
 					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)
 (thumbs-decrement-image-size-element (cdr s)
 					thumbs-image-resizing-step)))
 (defun thumbs-insert-image (img type relief &optional marked)
 "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
 		   :conversion ,(if marked 'disabled)
 		   :margin ,thumbs-margin)))
 (setq thumbs-current-image-size
 	  (image-size i t))))
 (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)
 		     'thumb-image-file img))
 		    (or reg (image-file-name-regexp)))
 (concat "*Thumbs: " dir) 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))
 ;;;###autoload
 (defun thumbs-dired-show-all ()
 (delete-region (point-min)(point-max))
 (thumbs-insert-image img (thumbs-image-type img) 0)))
 (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)))
 (defun thumbs-find-image-at-point-other-window ()
 	    (push (thumbs-current-image) list))
 	(forward-char 1))
 (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)))
 	(let ((thumbs-fileL (thumbs-file-alist))
 	      (inhibit-read-only t))
 		  (delete-region (point) (1+ (point))))
 		(setq thumbs-markedL
 		      (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)
 (if (and (not (file-directory-p newfile))
 	     thumbs-markedL)
 	(thumbs-insert-image i (thumbs-image-type i) 0))
 (setq thumbs-image-num num
 	    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))
 	 (l (caar list)))
 (while (and (/= i thumbs-image-num) (not (assoc i list)))
 fundamental-mode "image-view-mode"
 (setq buffer-read-only t))
 ;;;###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)))
 ;; Modif to dired mode map
 (define-key dired-mode-map "\C-ta" 'thumbs-dired-show-all)

Mercurial > emacs

comparison lisp/thumbs.el @ 90185:5b029ff3b08d