1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/image/image-crop.el b/lisp/image/image-crop.el
index 682fce39866..8b6694f2231 100644
--- 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.
+  "Cut a rectangle from the image under point, filling it with COLOR.
-Interactively, if given a prefix, prompt for COLOR to use.
+COLOR defaults to the value of `image-cut-color'.
-Otherwise, default to `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)))

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