lisp/vc/vc-sccs.el (vc-sccs-search-project-dir): Mark unused argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5cdbcb..b2e09b1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-09-23  Juanma Barranquero  <lekktu@gmail.com>
 
+       * vc/vc-sccs.el (vc-sccs-search-project-dir): Mark unused argument.
+
        * autoarg.el (autoarg-kp-digit-argument):
        * electric.el (Electric-command-loop):
        * kmacro.el (kmacro-step-edit-insert):

diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el
index e00d552..d78564e 100644 (file)
--- a/lisp/vc/vc-sccs.el
+++ b/lisp/vc/vc-sccs.el
@@ -506,7 +506,7 @@ Remaining arguments are ignored."
 ;; a (autoload 'vc-sccs-search-project-dir "vc-sccs") which would not
 ;; help us avoid loading vc-sccs.
 ;;;###autoload
-(progn (defun vc-sccs-search-project-dir (dirname basename)
+(progn (defun vc-sccs-search-project-dir (_dirname basename)
   "Return the name of a master file in the SCCS project directory.
 Does not check whether the file exists but returns nil if it does not
 find any project directory."