From 821677fb4d3b4d19a24531be285578a338e27d2e Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@snark.thyrsus.com>
Date: Tue, 6 May 2008 01:41:34 +0000
Subject: [PATCH] Move a customization variable.

---
 lisp/vc-dispatcher.el | 25 ++++++++++++++++++++++++-
 lisp/vc.el            |  5 -----
 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
-- 
2.39.2