=== modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2012-12-11 07:49:06 +0000 +++ lisp/ChangeLog 2012-12-11 14:51:07 +0000 @@ -1,3 +1,13 @@ +2012-12-11 Christopher Schmidt + + * 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. + 2012-12-11 Eli Zaretskii * makefile.w32-in (compile4-SH): Fix a typo that caused term === modified file 'lisp/vc/vc-arch.el' --- lisp/vc/vc-arch.el 2012-07-11 23:13:41 +0000 +++ lisp/vc/vc-arch.el 2012-12-11 14:48:36 +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' --- lisp/vc/vc-bzr.el 2012-09-29 23:13:29 +0000 +++ lisp/vc/vc-bzr.el 2012-12-11 14:48:43 +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' --- lisp/vc/vc-cvs.el 2012-08-29 15:11:51 +0000 +++ lisp/vc/vc-cvs.el 2012-12-11 14:48:40 +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' --- lisp/vc/vc-git.el 2012-11-30 07:43:05 +0000 +++ lisp/vc/vc-git.el 2012-12-11 14:16:15 +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' --- lisp/vc/vc-hg.el 2012-12-05 01:49:31 +0000 +++ lisp/vc/vc-hg.el 2012-12-11 14:48:34 +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' --- lisp/vc/vc-mtn.el 2012-08-15 19:20:26 +0000 +++ lisp/vc/vc-mtn.el 2012-12-11 14:48:30 +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' --- lisp/vc/vc-svn.el 2012-11-18 01:52:36 +0000 +++ lisp/vc/vc-svn.el 2012-12-11 14:48: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)