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

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5cdbcbb9b2..b2e09b18112 100644
--- 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 e00d55218c8..d78564e15ed 100644
--- 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."