Exclude VCS metadata dirs from completion.

* bindings.el (completion-ignored-extensions):
  Add entries for VCS metadata directories (CVS/, .svn, etc).

* pcvs.el (completion-ignored-extensions):
* vc-svn.el (completion-ignored-extensions): Don't add VCS-specific
  directory, now done in bindings.el.

4 files changed, 13 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65d7917c616..e7877671742 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2009-01-29  Juanma Barranquero  <lekktu@gmail.com>
+
+        * bindings.el (completion-ignored-extensions):
+        Add entries for VCS metadata directories (CVS/, .svn, etc).
+
+        * pcvs.el (completion-ignored-extensions):
+        * vc-svn.el (completion-ignored-extensions): Don't add VCS-specific
+        directory, now done in bindings.el.
+
 2009-01-29  Klaus Straubinger  <KSNetz@UseNet.ArcorNews.DE>  (tiny change)
 
         * pcmpl-rpm.el (pcmpl-rpm): Doc fix.
@@ -42,8 +51,8 @@
 
 2009-01-28  Michael Albinus  <michael.albinus@gmx.de>
 
-        * net/dbus.el (dbus-event-error-hooks): Fix docstring.  Describe
-        second parameter of hook functions.
+        * net/dbus.el (dbus-event-error-hooks): Fix docstring.
+        Describe second parameter of hook functions.
         (dbus-handle-event): Apply it.
 
 2009-01-28  Chong Yidong  <cyd@stupidchicken.com>
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 36f9489c998..88073a85da1 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -600,6 +600,8 @@ is okay.  See `mode-line-format'.")
                 ".a" ".ln" ".blg" ".bbl")))
        '(".elc" ".lof"
          ".glo" ".idx" ".lot"
+         ;; VCS metadata directories
+         ".svn/" ".hg/" ".git/" ".bzr/" "CVS/" "_darcs/" "_MTN/"
          ;; TeX-related
          ".fmt" ".tfm"
          ;; Java compiled
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 64606f6dfe2..dc01c45ad3f 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -2325,9 +2325,6 @@ this file, or a list of arguments to send to the program."
 ;;;; useful global settings
 ;;;;
 
-;;;###autoload
-(add-to-list 'completion-ignored-extensions "CVS/")
-
 ;;
 ;; Hook to allow calling PCL-CVS by visiting the /CVS subdirectory
 ;;
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 5c444ffee72..884ab4d2879 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -119,9 +119,6 @@ want to force an empty list of arguments, use t."
 ;;;###autoload       (load "vc-svn")
 ;;;###autoload       (vc-svn-registered f))))
 
-;;;###autoload
-(add-to-list 'completion-ignored-extensions ".svn/")
-
 (defun vc-svn-registered (file)
   "Check if FILE is SVN registered."
   (when (file-readable-p (expand-file-name (concat vc-svn-admin-directory