[Emacs-diffs] /srv/bzr/emacs/trunk r105118: Minor Dired doc fixes.

[Chong Yidong]

------------------------------------------------------------
revno: 105118
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-07-11 22:54:26 -0400
message:
  Minor Dired doc fixes.
  
  * lisp/dired.el (dired-mark-prompt):
  * lisp/dired-aux.el (dired-read-shell-command): Doc fix.
modified:
  lisp/ChangeLog
  lisp/dired-aux.el
  lisp/dired.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-11 20:15:04 +0000
+++ b/lisp/ChangeLog    2011-07-12 02:54:26 +0000
@@ -1,3 +1,8 @@
+2011-07-12  Chong Yidong  <address@hidden>
+
+       * dired.el (dired-mark-prompt):
+       * dired-aux.el (dired-read-shell-command): Doc fix.
+
 2011-07-11  Lars Magne Ingebrigtsen  <address@hidden>
 
        * mail/sendmail.el (sendmail-query-once): Use

=== modified file 'lisp/dired-aux.el'
--- a/lisp/dired-aux.el 2011-07-06 18:26:29 +0000
+++ b/lisp/dired-aux.el 2011-07-12 02:54:26 +0000
@@ -514,22 +514,25 @@
 
 ;; This is an extra function so that you can redefine it, e.g., to use gmhist.
 (defun dired-read-shell-command (prompt arg files)
-  "Read a dired shell command prompting with PROMPT.
-Passes the prefix argument ARG to `dired-mark-prompt', so that it
-can be used in the prompt to indicate which FILES are affected.
-Normally reads the command with `read-shell-command', but if the
-`dired-x' packages is loaded, uses `dired-guess-shell-command' to offer
-a smarter default choice of shell command."
+  "Read a dired shell command.
+PROMPT should be a format string with one \"%s\" format sequence,
+which is replaced by the value returned by `dired-mark-prompt',
+with ARG and FILES as its arguments.  FILES should be a list of
+file names.  The result is used as the prompt.
+
+This normally reads using `read-shell-command', but if the
+`dired-x' package is loaded, use `dired-guess-shell-command' to
+offer a smarter default choice of shell command."
   (minibuffer-with-setup-hook
       (lambda ()
        (set (make-local-variable 'minibuffer-default-add-function)
             'minibuffer-default-add-dired-shell-commands))
     (setq prompt (format prompt (dired-mark-prompt arg files)))
-    (if (featurep 'dired-x)
+    (if (functionp 'dired-guess-shell-command)
        (dired-mark-pop-up nil 'shell files
-                          #'dired-guess-shell-command prompt files)
+                          'dired-guess-shell-command prompt files)
       (dired-mark-pop-up nil 'shell files
-                        #'read-shell-command prompt nil nil))))
+                        'read-shell-command prompt nil nil))))
 
 ;;;###autoload
 (defun dired-do-async-shell-command (command &optional arg file-list)

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2011-07-07 04:16:52 +0000
+++ b/lisp/dired.el     2011-07-12 02:54:26 +0000
@@ -2831,8 +2831,12 @@
   (if (= 1 count) "" "s"))
 
 (defun dired-mark-prompt (arg files)
-  "Return a string for use in a prompt, either the current file
-name, or the marker and a count of marked files."
+  "Return a string suitable for use in a Dired prompt.
+ARG is normally the prefix argument for the calling command.
+FILES should be a list of file names.
+
+The return value has a form like \"foo.txt\", \"[next 3 files]\",
+or \"* [3 files]\"."
   ;; distinguish-one-marked can cause the first element to be just t.
   (if (eq (car files) t) (setq files (cdr files)))
   (let ((count (length files)))
@@ -4104,7 +4108,7 @@
 ;;;***
 
 ;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump)
-;;;;;;  "dired-x" "dired-x.el" "90459fb5998296fc67986945701b2bfc")
+;;;;;;  "dired-x" "dired-x.el" "cb07aa079a02fde43b9fe1354a8b7a31")
 ;;; Generated autoloads from dired-x.el
 
 (autoload 'dired-jump "dired-x" "\