Move a customization variable.

2 files changed, 24 insertions, 6 deletions

diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index b680421ac07..014d9492a2d 100644
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -27,6 +27,8 @@
 ;;; Credits:
 
 ;; Designed and implemented by Eric S. Raymond, originally as part of VC mode.
+;; Stefan Monnier and Dan Nicolaescu contributed substinituial work on the
+;; vc-dir front end.
 
 ;;; Commentary:
 
@@ -87,7 +89,23 @@
 ;; about the semantics of individual states, but mark and unmark commands
 ;; treat all entries with the same state as the currently selected one as 
 ;; a unit.
- 
+
+;; The interface
+;;
+;; The main interface to the lower level is vc-do-command.  This launches a
+;; comand, synchronously or asynchronously, making the output available
+;; in a command log buffer.  Two other functions, (vc-start-annotation) and
+;; (vc-finish-logentry), allow you to associate a command closure with an
+;; abbotation buffer so that when the user confirms the comment the closure
+;; is run (with the comment as part of its context).
+;;
+;; The interface to the upper level has the two main entry points (vc-dir)
+;; and (vc-dispatcher-selection-set) and a couple of convenience functions.
+;; (vc-dir) sets up a dispatcher browsing buffer; (vc-dispatcher-selection-set)
+;; returns a selection set of files, either the marked files in a browsing
+;; buffer or the singleton set consisting of the file visited by the current
+;; buffer (when that is appropriate).
+
 ;; To do:
 ;;
 ;; - vc-dir-kill-dir-status-process should not be specific to dir-status,
@@ -141,6 +159,11 @@ preserve the setting."
   :type 'boolean
   :group 'vc)
 
+(defcustom vc-suppress-confirm nil
+  "If non-nil, treat user as expert; suppress yes-no prompts on some things."
+  :type 'boolean
+  :group 'vc)
+
 ;; Variables the user doesn't need to know about.
 
 (defvar vc-log-operation nil)
diff --git a/lisp/vc.el b/lisp/vc.el
index 30d8b18046c..4b900087b83 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -688,11 +688,6 @@
   "Version-control system in Emacs."
   :group 'tools)
 
-(defcustom vc-suppress-confirm nil
-  "If non-nil, treat user as expert; suppress yes-no prompts on some things."
-  :type 'boolean
-  :group 'vc)
-
 (defcustom vc-initial-comment nil
   "If non-nil, prompt for initial comment when a file is registered."
   :type 'boolean