Clean up after SRC support merge (typo fixes).

diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 31ae9bf6dc04ce0734184ef6064aa661eaf5aaca..28fbaae9d1d90627bf18e4020a3bd0b19ab1e5fb 100644 (file)
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -118,7 +118,7 @@ Removing an entry from the list prevents VC from being activated
 when visiting a file managed by that backend.
 An empty list disables VC altogether."
   :type '(repeat symbol)
-  :version "23.1"
+  :version "25.1"
   :group 'vc)
 
 ;; Note: we don't actually have a darcs back end yet.

diff --git a/lisp/vc/vc-src.el b/lisp/vc/vc-src.el
index 18fac0e3865865f580346488b57b9ab7f2c94f63..d0787b033eee20bf8d95a2732ff80a3f43a31dd9 100644 (file)
--- a/lisp/vc/vc-src.el
+++ b/lisp/vc/vc-src.el
@@ -142,7 +142,7 @@ For a description of possible values, see `vc-check-master-templates'."
 ;;; Properties of the backend
 
 (defun vc-src-revision-granularity () 'file)
-(defun vc-hg-checkout-model (_files) 'implicit)
+(defun vc-src-checkout-model (_files) 'implicit)
 
 ;;;
 ;;; State-querying functions
@@ -302,7 +302,7 @@ If LIMIT is non-nil, show no more than this many entries."
       (apply 'vc-src-command buffer files (if shortlog "list" "log")
             (nconc
              ;;(when start-revision (list (format "%s-1" start-revision)))
-             ;;(when limit (list "-l" (format "%s" limit)))
+             (when limit (list "-l" (format "%s" limit)))
              vc-src-log-switches)))))
 
 (defun vc-src-diff (files &optional oldvers newvers buffer)