; * lisp/arc-mode.el (archive-copy-file): Doc fix.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 97213ab9e1216b73fad1a0099e07b759fb30da51..ae85fc55add9635ac2b231e63dd453bb8ea04f1a 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1041,7 +1041,9 @@ return nil.  Otherwise point is returned."
     next))
 
 (defun archive-copy-file (file new-name)
-  "Copy file under point to a different location."
+  "Copy FILE to a location specified by NEW-NAME.
+Interactively, FILE is the file at point, and the function prompts
+for NEW-NAME."
   (interactive
    (let ((name (archive--file-desc-ext-file-name (archive-get-descr))))
      (list name