3 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1d60d158ae..f03214efba8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-12-08  Eric S. Raymond  <esr@snark.thyrsus.com>
+
+        * vc/vc-arch.el: Moved to obsolete directory so a test framework
+        won't trip over bit-rot in it.  There has been no Arch snapshot
+        for nine years.
+
 2014-12-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * net/eww.el (eww-follow-link): Revert prefix behaviour to
diff --git a/lisp/vc/vc-arch.el b/lisp/obsolete/vc-arch.el
index d1344f2b1cc..d1344f2b1cc 100644
--- a/lisp/vc/vc-arch.el
+++ b/lisp/obsolete/vc-arch.el
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 61918c9886e..9a4fe162843 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -107,7 +107,7 @@ interpreted as hostnames."
   :type 'regexp
   :group 'vc)
 
-(defcustom vc-handled-backends '(RCS CVS SVN SCCS SRC Bzr Git Hg Mtn Arch)
+(defcustom vc-handled-backends '(RCS CVS SVN SCCS SRC Bzr Git Hg Mtn)
   ;; RCS, CVS, SVN, SCCS, and SRC come first because they are per-dir
   ;; rather than per-tree.  RCS comes first because of the multibackend
   ;; support intended to use RCS for local commits (with a remote CVS server).
@@ -122,7 +122,8 @@ An empty list disables VC altogether."
   :group 'vc)
 
 ;; Note: we don't actually have a darcs back end yet.
-;; Also, Meta-CVS (corresponding to MCVS) is unsupported.
+;; Also, Meta-CVS (corresponding to MCVS) and Arch are unsupported.
+;; The Arch back end will be retrieved and fixed if it is ever required.
 (defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS"
                                          ".src" ".svn" ".git" ".hg" ".bzr"
                                          "_MTN" "_darcs" "{arch}"))