[Emacs-diffs] /srv/bzr/emacs/trunk r111655: * vc/vc-arch.el (vc-arch-registered):

[Christopher Schmidt]

------------------------------------------------------------
revno: 111655
fixes bug: http://debbugs.gnu.org/13139
committer: Christopher Schmidt <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-01 18:19:24 +0100
message:
  * vc/vc-arch.el (vc-arch-registered):
  * vc/vc-bzr.el (vc-bzr-registered):
  * vc/vc-cvs.el (vc-cvs-registered):
  * vc/vc-git.el (vc-git-registered):
  * vc/vc-hg.el (vc-hg-registered):
  * vc/vc-mtn.el (vc-mtn-registered):
  * vc/vc-svn.el (vc-svn-registered): Suppress load messages.
  (Bug#13139)
modified:
  lisp/ChangeLog
  lisp/vc/vc-arch.el
  lisp/vc/vc-bzr.el
  lisp/vc/vc-cvs.el
  lisp/vc/vc-git.el
  lisp/vc/vc-hg.el
  lisp/vc/vc-mtn.el
  lisp/vc/vc-svn.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-01 16:46:46 +0000
+++ b/lisp/ChangeLog    2013-02-01 17:19:24 +0000
@@ -1,5 +1,14 @@
 2012-02-01  Christopher Schmidt  <address@hidden>
 
+       * vc/vc-arch.el (vc-arch-registered):
+       * vc/vc-bzr.el (vc-bzr-registered):
+       * vc/vc-cvs.el (vc-cvs-registered):
+       * vc/vc-git.el (vc-git-registered):
+       * vc/vc-hg.el (vc-hg-registered):
+       * vc/vc-mtn.el (vc-mtn-registered):
+       * vc/vc-svn.el (vc-svn-registered): Suppress load messages.
+       (Bug#13139)
+
        * info.el (Info-next-reference, Info-prev-reference): Add numeric
        prefix argument.  (Bug#11656)
 

=== modified file 'lisp/vc/vc-arch.el'
--- a/lisp/vc/vc-arch.el        2013-01-01 09:11:05 +0000
+++ b/lisp/vc/vc-arch.el        2013-02-01 17:19:24 +0000
@@ -101,7 +101,7 @@
 ;;;###autoload (defun vc-arch-registered (file)
 ;;;###autoload   (if (vc-find-root file "{arch}/=tagging-method")
 ;;;###autoload       (progn
-;;;###autoload         (load "vc-arch")
+;;;###autoload         (load "vc-arch" nil t)
 ;;;###autoload         (vc-arch-registered file))))
 
 (defun vc-arch-add-tagline ()

=== modified file 'lisp/vc/vc-bzr.el'
--- a/lisp/vc/vc-bzr.el 2013-01-12 03:15:14 +0000
+++ b/lisp/vc/vc-bzr.el 2013-02-01 17:19:24 +0000
@@ -291,7 +291,7 @@
 ;;;###autoload (defun vc-bzr-registered (file)
 ;;;###autoload   (if (vc-find-root file vc-bzr-admin-checkout-format-file)
 ;;;###autoload       (progn
-;;;###autoload         (load "vc-bzr")
+;;;###autoload         (load "vc-bzr" nil t)
 ;;;###autoload         (vc-bzr-registered file))))
 
 (defun vc-bzr-registered (file)

=== modified file 'lisp/vc/vc-cvs.el'
--- a/lisp/vc/vc-cvs.el 2013-01-01 09:11:05 +0000
+++ b/lisp/vc/vc-cvs.el 2013-02-01 17:19:24 +0000
@@ -198,7 +198,7 @@
 ;;;###autoload   "Return non-nil if file F is registered with CVS."
 ;;;###autoload   (when (file-readable-p (expand-file-name
 ;;;###autoload                           "CVS/Entries" (file-name-directory 
f)))
-;;;###autoload       (load "vc-cvs")
+;;;###autoload       (load "vc-cvs" nil t)
 ;;;###autoload       (vc-cvs-registered f)))
 
 (defun vc-cvs-registered (file)

=== modified file 'lisp/vc/vc-git.el'
--- a/lisp/vc/vc-git.el 2013-01-02 16:13:04 +0000
+++ b/lisp/vc/vc-git.el 2013-02-01 17:19:24 +0000
@@ -168,7 +168,7 @@
 ;;;###autoload   "Return non-nil if FILE is registered with git."
 ;;;###autoload   (if (vc-find-root file ".git")       ; Short cut.
 ;;;###autoload       (progn
-;;;###autoload         (load "vc-git")
+;;;###autoload         (load "vc-git" nil t)
 ;;;###autoload         (vc-git-registered file))))
 
 (defun vc-git-registered (file)

=== modified file 'lisp/vc/vc-hg.el'
--- a/lisp/vc/vc-hg.el  2013-01-02 16:13:04 +0000
+++ b/lisp/vc/vc-hg.el  2013-02-01 17:19:24 +0000
@@ -176,7 +176,7 @@
 ;;;###autoload   "Return non-nil if FILE is registered with hg."
 ;;;###autoload   (if (vc-find-root file ".hg")       ; short cut
 ;;;###autoload       (progn
-;;;###autoload         (load "vc-hg")
+;;;###autoload         (load "vc-hg" nil t)
 ;;;###autoload         (vc-hg-registered file))))
 
 ;; Modeled after the similar function in vc-bzr.el

=== modified file 'lisp/vc/vc-mtn.el'
--- a/lisp/vc/vc-mtn.el 2013-01-01 09:11:05 +0000
+++ b/lisp/vc/vc-mtn.el 2013-02-01 17:19:24 +0000
@@ -72,7 +72,7 @@
 ;;;###autoload (defun vc-mtn-registered (file)
 ;;;###autoload   (if (vc-find-root file vc-mtn-admin-format)
 ;;;###autoload       (progn
-;;;###autoload         (load "vc-mtn")
+;;;###autoload         (load "vc-mtn" nil t)
 ;;;###autoload         (vc-mtn-registered file))))
 
 (defun vc-mtn-revision-granularity () 'repository)

=== modified file 'lisp/vc/vc-svn.el'
--- a/lisp/vc/vc-svn.el 2013-01-02 16:13:04 +0000
+++ b/lisp/vc/vc-svn.el 2013-02-01 17:19:24 +0000
@@ -123,7 +123,7 @@
 ;;;###autoload                           "_svn")
 ;;;###autoload                          (t ".svn"))))
 ;;;###autoload     (when (vc-find-root f admin-dir)
-;;;###autoload       (load "vc-svn")
+;;;###autoload       (load "vc-svn" nil t)
 ;;;###autoload       (vc-svn-registered f))))
 
 (defun vc-svn-registered (file)