; * lisp/image/image-crop.el (image-cut): Doc fix.

diff --git a/lisp/image/image-crop.el b/lisp/image/image-crop.el
index 682fce39866bb0e6be8b1154a19e105517b881b2..8b6694f22314bd58658b7ee1db96cd3b2e07a8c0 100644 (file)
--- a/lisp/image/image-crop.el
+++ b/lisp/image/image-crop.el
@@ -105,9 +105,9 @@ image data.")
 
 ;;;###autoload
 (defun image-cut (&optional color)
-  "Cut a rectangle from the image under point.
-Interactively, if given a prefix, prompt for COLOR to use.
-Otherwise, default to `image-cut-color'."
+  "Cut a rectangle from the image under point, filling it with COLOR.
+COLOR defaults to the value of `image-cut-color'.
+Interactively, with prefix argument, prompt for COLOR to use."
   (interactive (list (and current-prefix-arg (read-color "Use color: "))))
   (image-crop (if (zerop (length color)) image-cut-color color)))